Fortran Coder

查看: 101|回复: 2

[求助] fortran77定义parameter出错,不知道怎么修改?

[复制链接]

12

帖子

5

主题

0

精华

入门

F 币
77 元
贡献
40 点
发表于 2022-7-18 22:22:10 | 显示全部楼层 |阅读模式
本帖最后由 芥子纳须弥 于 2022-7-18 22:21 编辑


[Fortran] 纯文本查看 复制代码
      program test
      implicit real*8 (a-h,o-z)
 
      include 'params_def.f'
      write(*,*)"indmax:",indmax
     
      end program test

params_def.f 代码如下:
[Fortran] 纯文本查看 复制代码
      parameter (indmax=200,nchrmax=60,nparmax=4)
c  indmax  = maximum # of individuals, i.e. max population size
c  nchrmax = maximum # of chromosomes (binary bits) per individual
c  nparmax = maximum # of parameters which the chromosomes make up



我在ubuntu运行后报错:
params_def.f:1:48:

c  nparmax = maximum # of parameters which the chromosomes make up
                                                1
Error: Unexpected characters in PARAMETER statement at (1)
params_def.f:1:48:

c  nparmax = maximum # of parameters which the chromosomes make up
                                                1
Error: Unexpected characters in PARAMETER statement at (1)

67

帖子

0

主题

0

精华

专家

F 币
415 元
贡献
206 点

规矩勋章新人勋章元老勋章

QQ
发表于 2022-7-19 09:47:34 | 显示全部楼层
自由格式源代码只能 include 自由格式的包含文件。
固定格式源代码只能 include 固定格式的包含文件。

注意源代码的扩展名,以便让编译器清晰的知道此文件是自由格式还是固定格式。
彼岸,有永恒的守候...

12

帖子

5

主题

0

精华

入门

F 币
77 元
贡献
40 点
 楼主| 发表于 2022-7-19 09:59:04 | 显示全部楼层
是的。我后来统一了扩展名 .f 就解决了。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2022-8-17 18:51

Powered by Tencent X3.4

© 2013-2022 Tencent

快速回复 返回顶部 返回列表