新手问几个关于module的使用问题

Frank · 发表于 2017-1-24 21:43:44

1、module只能写在程序最前面吗？
2、module中用read读入文件怎么实现？一定要用contains+subroutine吗？
3、我要定义一个数组类型，这样可以么？

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

01MODULE parameters
02 
03INTEGER,PARAMETER :: n1=1000
04INTEGER,PARAMETER :: n2=1000
05INTEGER,PARAMETER :: n3=1000
06INTEGER,PARAMETER :: n4=20000
07 
08INTEGER,PARAMETER :: n=441
09INTEGER,PARAMETER :: m=226
10 
11END MODULE parameters
12 
13 
14MODULE fjgj
15USE MODULE parameters
16REAL,DIMENSION(n1) :: fj, gj
17    END MODULE fjgj

除了n1，n2，n3，n4，n，m之外，我的module里的变量是一直会变的。比如这里的fj，gj会在多个子程序里调用，所以单独列了一个module。
刚刚从fortran77 语法转过来，以前都用common，module实在不太会用，望各位大神指教。

楚香饭 · 发表于 2017-1-24 23:05:01

1. 不是必须写最前面。而是：
module 必须写在 use 这个module的程序单元的前面。
如果写在同一个源代码里，那么应该写在前面。
如果写在多个源代码里，应该保证module先于use这个module的程序单元编译。

2. module 中不能直接书写执行语句（比如read）
所有执行语句必须写在contains下面的subroutine（或function）中

3. 可以这样
module并没有改变以前关于数组大小，数组维度，常量与变量的关系。

更多内容，可以收看本站视频教程：
http://v.fcode.cn/video-module.html

Frank · 发表于 2017-1-25 10:38:54

楚香饭发表于 2017-1-24 23:05
1. 不是必须写最前面。而是：
module 必须写在 use 这个module的程序单元的前面。
如果写在同一个源代码里 ...

好的，非常感谢您的回答。我再追问两个问题：

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

01MODULE DC_flow
02USE MODULE parameters
03REAL,DIMENSION(n1) :: qo, zo
04    CONTAINS
05    Subroutine fileread4
06!Initial Conditions
07  Open (1, File='DINI_1%.txt', Status='old')
08  Read (1, *)(qo(j), j=1, ns)
09  Read (1, *)(zo(j), j=1, ns)
10  Close (1)
11    END Subroutine fileread4
12   
13    END MODULE DC_flow

这个代码里面的qo，zo虽然是读进来的，但之后的值会发生改变，加入下次使用这个module的时候，是不是qo，zo的值还是初始在module中读入的值啊？

2、在使用subroutine的时候，一般都是SUBROUTINE BOUND(A,A1,IA,J,IGG,KD)的格式，但是我公用的变量过多，可不可以省略变量，直接用CALL SUBROUTINE BOUND()，不写变量啊？

vvt · 发表于 2017-1-25 10:48:21

1. module是函数过程和变量的集合。并不能“下次使用module”，只能下次使用“qo”或 "zo"
2. qo 和 zo 的值会保持不变，直到你下次改变它。（而不管在哪里使用）
3. 可以省略函数的虚参，即只写 call bound() 【注意不是 call subroutine bound()】
4. 自己打开文件，请使用 10 以上的通道号，不要用 1 这个通道号
5. Read( 1 , * ) (qo(j),j=1,ns) 可以简写为 Read( 1 , * ) qo(1:ns)

Frank · 发表于 2017-1-25 11:09:23

vvt 发表于 2017-1-25 10:48
1. module是函数过程和变量的集合。并不能“下次使用module”，只能下次使用“qo”或 "zo"
2. qo 和 zo 的 ...

非常感谢，很有帮助。
我现在面临一个问题是，之前写了两个子程序1和2，分别计算两个部分。现在需要写一个主程序把他俩结合起来，其实这样写就可以实现这个功能：

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

01PROGRAM MAIN
02       
03 WRITE(*,*) ('Start 1D calculation……')
04       
05      CALL RIVER_1D
06      WRITE(*,*) ('1D calculation end')
07       
08      WRITE(*,*) ('Start 2D calculation……')
09      CALL RIVER_2D
10 
11      STOP
12      END

但是为了输入数据都在主程序里输入，需要把共享的变量都提到主程序中来，该怎么实现呢？之前用fortran77的语法，这些公用数据的形式有这些种类：

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

1PARAMETER (N1=1000,N2=1000,N3=1000,N4=20000)
2COMMON/BL1/ZO(N1),QO(N1),VO(N1)
3COMMON/BL2/ZN(N4,N1),QN(N4,N1),VN(N4,N1)
4COMMON/BL5/T
5……

当然还有很多其他的，请问用社么方法可以最好的实现“变量从子程序中提取到主程序这个功能”呢？

vvt · 发表于 2017-1-25 18:02:59

可以把变量改到module里，然后分别 use 这个module即可。

[Module] 新手问几个关于module的使用问题

新人勋章

爱心勋章

水王勋章

元老勋章

热心勋章

规矩勋章