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

沧海 · 发表于 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-25 10:29:14

胡文刚发表于 2019-9-24 12:09
你在源代码里写编译选项，是没用的。（如果不是注释，还会报错）
对于编译选项，每个编译器会有区别。同一 ...

您好，我使用的是linux系统gfortran编译器，我想问一下这些编译选项怎么加这些知识点在哪找，我直接百度搜都搜不到，我想学习一下。还是这些编译器的帮助文档里面有说明？

胡文刚 · 发表于 2019-9-24 12:09:03

你在源代码里写编译选项，是没用的。（如果不是注释，还会报错）
对于编译选项，每个编译器会有区别。同一款编译器的windows版和linux版可能也有差异。
你需要查阅编译器的帮助文档。

对于你提到的这几个选项，在windows上的VS里，可以这样设置：
项目菜单，属性。
-assume byterecl : 展开 Fortran，在Data分类里找到：Use Bytes as RECL= Unit for Unformatted files ，设置为 Yes
-mcmodel : 在 windows 上没有对应选项，无需设置
-shared-intel : 在 windows 上没有对应选项，无需设置

沧海 · 发表于 2019-9-24 09:44:39

胡文刚发表于 2019-9-19 08:17
第43行
OPTFC = -O3 -funroll-loops -ftree-vectorize -fcray-pointer -cpp
改成

您好我想在问一下，如果是单个程序想加编译选项的时候（没有Makefile文件）应该怎么加呢？是不是直接加到程序中就像图一这样（去掉注释符）

程序的说明是图二

您在帮忙看一下谢谢了。

沧海 · 发表于 2019-9-24 09:06:03

胡文刚发表于 2019-9-19 08:17
第43行
OPTFC = -O3 -funroll-loops -ftree-vectorize -fcray-pointer -cpp
改成

非常感谢

胡文刚 · 发表于 2019-9-19 08:17:16

第43行
OPTFC = -O3 -funroll-loops -ftree-vectorize -fcray-pointer -cpp
改成
OPTFC = -O3 -funroll-loops -ftree-vectorize -fcray-pointer -cpp -ffree-line-length-none