Question

Fortran语言进行openMP并行计算do循环内的函数a(i),i=1,10000000

do i=1,10000000
a(i)=i**2+1
end do

Answer 1

OpenMP像这种单层循环的就直接写就行了。

!$OMP DO
    do i = 1, 1000
    ...
    enddo
!$OMP END DO