Fortran Coder

标题: Fortran77中parameter从文件中读取的问题 [打印本页]

作者: Frank 时间: 2017-2-21 21:10
标题: Fortran77中parameter从文件中读取的问题
目前在改一个Fortran77语法的程序，遇到这样的问题。对于下面这段代码：

[Fortran] 纯文本查看 复制代码

PARAMETER(N=218,M=401)

        PARAMETER(IDQU=70,IDZD=70)

        PARAMETER(IDSU=70,IDSD=70)

        PARAMETER(K0=20000)

      PARAMETER(NP=20)



DIMENSION X0(N,M),Y0(N,M),Z0(N,M)

DIMENSION U(N,M),V(N,M),Z(N,M),H(N,M)

        DIMENSION AN(N,M),CC(N,M),CK(N,M)

DIMENSION TQU(IDQU),QU0(IDQU),TZD(IDZD),ZD0(IDZD)

COMMON/PIER2/NPJ(NP),PSTA(NP),PEND(NP),DPP(NP)

其中N,M,IDQU,IDZD,IDSU,IDSD,NP等这些parameter定义了许多数组的维度参数，根据不同的算例是需要改变的，可否将他们改成从文件中读取对应的值啊？或者用别的方式定义数组实现这一功能。但需要是F77语法范围内的。

注：不能讲他们定义成如代码中K0这样不可能的极大值，因为在程序中，IDQU=70代表需要读入某个文件的前面70行。
谢谢大家~

作者: fcode 时间: 2017-2-21 21:35
parameter 的值不能被改变，永远不能。
只能用常规变量作为数组大小（动态数组）
F77 语法不支持动态数组。
F90 以后语法可以用动态数组。

作者: Frank 时间: 2017-2-21 21:43

fcode 发表于 2017-2-21 21:35
parameter 的值不能被改变，永远不能。
只能用常规变量作为数组大小（动态数组）
F77 语法不支持动态数组。 ...

好的谢谢，那请问能用常规变量作为数组大小在F77语法中可以实现么？所以我想实现的这个功能在F77中实现不了了吗？

作者: fcode 时间: 2017-2-21 22:50
是的，实现不了。

没有任何理由，局限于 F77 ！！！

why not F90 ？

作者: Frank 时间: 2017-2-21 23:30

fcode 发表于 2017-2-21 22:50
是的，实现不了。

没有任何理由，局限于 F77 ！！！

好的谢谢啦。因为老程序是f77的，改成f90工作量有点大。
非常感谢！

作者: vvt 时间: 2017-2-22 14:50

Frank 发表于 2017-2-21 23:30
好的谢谢啦。因为老程序是f77的，改成f90工作量有点大。
非常感谢！

傻孩子~~

F77和F90并不是完全独立和互不相干的。

一段代码，本来是F77，也可以在上面加F90的用法~~形成95%是F77,+5%是F90。

这丝毫不影响它是合法的fortran代码。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)