Frank 发表于 2017-2-21 21:10:31

Fortran77中parameter从文件中读取的问题

目前在改一个Fortran77语法的程序，遇到这样的问题。对于下面这段代码：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:28

parameter 的值不能被改变，永远不能。
只能用常规变量作为数组大小（动态数组）
F77 语法不支持动态数组。
F90 以后语法可以用动态数组。

Frank 发表于 2017-2-21 21:43:41

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

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

fcode 发表于 2017-2-21 22:50:03

是的，实现不了。

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

why notF90 ？

Frank 发表于 2017-2-21 23:30:07

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

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


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

vvt 发表于 2017-2-22 14:50:22

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

傻孩子~~

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

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

这丝毫不影响它是合法的fortran代码。
页: [1]
查看完整版本: Fortran77中parameter从文件中读取的问题