沧海 发表于 2019-9-17 10:28:07

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

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


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





胡文刚 发表于 2019-9-17 12:00:33

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 14:52:37

胡文刚 发表于 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
还是会提示出错还是开始同要的错误，您在帮忙看一下 ，谢谢了

沧海 发表于 2019-9-17 15:39:21

有没有人帮忙看一下

胡文刚 发表于 2019-9-17 16:12:59

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

沧海 发表于 2019-9-17 16:16:57

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

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

胡文刚 发表于 2019-9-17 20:58:36

额，额，哪儿不明白？

沧海 发表于 2019-9-18 09:51:30

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

您说的续行或者编译时加选项{:4_107:}

沧海 发表于 2019-9-18 10:00:27

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

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

胡文刚 发表于 2019-9-18 11:06:28

你编译时的命令，后面那些：
-O3
-funroll-loops
-ftree-vectorize
-fcray-pointer
-cpp
都是编译选项呀。
现在，你可以增加一个选项
-ffree-line-length-none
这样，你就不需要续行了。
页: [1] 2
查看完整版本: 这段一直提醒语法错误，想请帮忙看一下