fortran 中openmp的问题?
下面是一段代码
!$omp do private(igt,mself,ix,iy,ig,iz,ignear,igblk,igblkcs,ipnear)
do 1000 ipgp=igrs(1),igrs(2)-1
do ix=max(1,igp(1)-ifar),min(lxyz(1,l),igp(1)+ifar)
do iy=max(1,igp(2)-ifar),min(lxyz(2,l),igp(2)+ifar)
do iz 。。。。
enddo
enddo
enddo
1000 continue
!$omp enddo
但是编译的时候总显示:Syntax error, found END-OF-STATEMENT when expecting one of: ( ) , %% .
!$omp do private(igt,mself,ix,iy,ig,iz,ignear,igblk,igblkcs,ipnear)
这是什么原因?