Question

提高Fortran

我这有一段Fortran的加法计算程序，用OpenMP实现并行计算，在visual studio2010下计算，有两台主机一台是两个Intel Xeon E5 CPU的，另外一台是4个Intel Xeon E7CPU，系统用的是Windows2008，问题：4个CPU的计算机并行计算的时间跟2个CPU的并行计算时间相差不大，但是Intel Xeon E7比E5性能强很多，而且还有4个E7，为什么计算效率却相差不大呢？要怎么设置才可以提高4个CPU计算机的计算效率？ 跪求答案，谢谢！
以下是程序

program test1

implicit none
integer,parameter::nscanpts =8
integer:: n=10000,m=5000
integer i,j,k
real time1,time2,timescan(nscanpts),time3,time4
integer rel(nscanpts)

rel = 0
call cputime(time3)
!$OMP PARALLEL SHARED(n,m,timescan,rel), PRIVATE(i,j,k,time1,time2)
!$OMP DO
do i = 1, nscanpts
write(*,*) "iscan=",i
call cputime(time1)
do j = 1, 4*n
do k = 1, 4*m
rel(i) = k*(j-1)/j

end do
end do
call cputime(time2)
timescan(i) = time2-time1

Answer 1

你的程序未贴完整，不过应该知道你的问题在哪里了.

在含OpenMP代码里面测试时间应该使用其自带的函数，omp_get_wtime() ，所以直接将你的call cpu_time(time) 换成 time= omp_get_wtime()。

以上.