Fortran Coder

标题: 如何接受传递过来的常量值 [打印本页]

作者: cyh 时间: 2019-11-28 12:55
标题: 如何接受传递过来的常量值
这是主程序

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

program Console1

implicit  none

Integer,parameter::nm=100

call   start(nm)

end

!这是子例行程序

SUBROUTINE start(nm)

     implicit  real*8 ( a-h,o-z )

      integer*4       tv0001

common/area1/x0(nm)

    end

现在的问题是在子例行程序中怎么接受nm这个常量值,然后赋值给common中这个x0数组

作者: necrohan 时间: 2019-11-28 14:40
既然nm是常数，在子程序重新定义一下不就行了？如果很多地方都用也可以单独生成一个include文件共同引用

作者: li913 时间: 2019-11-28 15:57

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

SUBROUTINE start(nm)

     implicit  real*8 ( a-h,o-z )

      integer*4       nm



    common/area1/x0(nm)

x0=nm

    end

作者: fcode 时间: 2019-11-29 09:28
都什么年代了，还用 common

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