这段一直提醒语法错误，想请帮忙看一下

沧海

kk=0
do ii=1,60
do jj=2,61         
!射线向右 判断射线与边界有几条交点
           if ((pointx(ii)>xm .and. pointxx(jj)>xm) .or. (pointx(ii)>xm .and. pointxx(jj)<xm) .or. (pointx(ii)<xm .and. pointxx(jj)>xm)) then
              if (pointy(ii)>=ym .and. pointyy(jj)<ym) .or. (pointy(ii)<=ym .and. pointyy(jj)>ym) then
                 if (MOD(kk+1,2.)/=0.) then
                 kk=kk+1
                 ux(i,j,k)=0.
                 uy(i,j,k)=0.
                 uz(i,j,k)=0.
                 ep1(i,j,k)=1.
                 end if
              end if
           end if
    stop
end do
end do
return


一直提示语法错误，错误提示在截图上
请帮忙看一下，谢谢了

胡文刚

if (pointy(ii)>=ym .and. pointyy(jj)<ym) .or. (pointy(ii)<=ym .and. pointyy(jj)>ym) then
更改为
if ((pointy(ii)>=ym .and. pointyy(jj)<ym) .or. (pointy(ii)<=ym .and. pointyy(jj)>ym)) then

沧海

胡文刚 发表于 2019-9-17 12:00
if (pointy(ii)>=ym .and. pointyy(jj)=ym .and. pointyy(jj)

这个改了，可是上边那一句
if ((pointx(ii)>xm .and. pointxx(jj)>xm) .or. (pointx(ii)>xm .and. pointxx(jj)<xm) .or. (pointx(ii)<xm .and. pointxx(jj)>xm)) then
还是会提示出错  还是开始同要的错误，您在帮忙看一下 ，谢谢了

沧海

有没有人帮忙看一下

胡文刚

续个行吧
或者编译时加选项
-ffree-line-length-none

沧海

胡文刚 发表于 2019-9-17 16:12
续个行吧
或者编译时加选项
-ffree-line-length-none

您好，什么意思啊。不明白

胡文刚

额，额，哪儿不明白？

沧海

胡文刚 发表于 2019-9-17 20:58
额，额，哪儿不明白？

您说的续行或者编译时加选项

沧海

胡文刚 发表于 2019-9-17 20:58
额，额，哪儿不明白？

明白了  出来了 加了一个续行符，非常感谢

胡文刚

你编译时的命令，后面那些：
-O3
-funroll-loops
-ftree-vectorize
-fcray-pointer
-cpp
都是编译选项呀。
现在，你可以增加一个选项
-ffree-line-length-none
这样，你就不需要续行了。