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

胡文刚 · 发表于 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 16:12:59

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

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

额，额，哪儿不明白？

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

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

胡文刚 · 发表于 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

胡文刚 · 发表于 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 上没有对应选项，无需设置

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

规矩勋章

元老勋章

新人勋章