module 传输数据

916115735 · 发表于 2020-11-3 22:15:52

我放弃COMMON了
改用MODULE了，现在出现了点问题传输过来的数据依旧是最后一步计算的数据
求大神帮我看看我程序哪里有问题

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

01MODULE COMMON_DATA
02      IMPLICIT NONE
03      SAVE
04      REAL::X(32)
05       
06      END MODULE
07 
08SUBROUTINE 1…………
09…………
10USE  COMMON_DATA
11 
12 DO i=1,4,1
13          IF(i==NOEL)THEN
14              DO j=1,8,1
15                  IF(j==NPT)THEN    
16              X((i-1)*8+j)=STATEV(2)
17                  END IF
18              END DO
19          END IF
20      END DO
21 
22END SUBROUTINE1
23 
24SUBROUTINE 2…………
25…………
26 
27USE  COMMON_DATA
28 
29DO i=5,8,1
30          IF(i==NOEL)THEN
31              DO j=1,8,1
32                  IF(j==NPT)THEN    
33              L=X((i-5)*8+j)
34                  END IF
35              END DO
36          END IF
37      END DO
38 
39END SUBROUTINE2

风平老涡 · 发表于 2020-11-4 02:10:29

没有错，x 是全域变量。不知道你想要什么效果？

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

1call subroutine1     ! 设定 X
2call subroutine2    ！读取 X
3call subroutine1    ！设定新的X
4call subroutine2    ！读取新的X

fcode · 发表于 2020-11-4 08:34:48

这要看你的 SUBROUTINE 1 和 SUBROUTINE 2 的执行顺序是怎样的。

916115735 · 发表于 2020-11-4 11:10:17

风平老涡发表于 2020-11-4 02:10
没有错，x 是全域变量。不知道你想要什么效果？
[mw_shl_code=fortran,true]call subroutine1 ! 设定 X ...

但是传输过来的数据不对 1~4是 subroutine1计算的结果
5~8是subroutine2读取的结果

1 1 1.00000000000000 313.2038
1 2 1.00000000000000 313.2038
1 3 1.00000000000000 300.0083
1 4 1.00000000000000 300.0083
1 5 1.00000000000000 313.2038
1 6 1.00000000000000 313.2038
1 7 1.00000000000000 300.0083
1 8 1.00000000000000 300.0083
2 1 1.00000000000000 313.2038
2 2 1.00000000000000 313.2038
2 3 1.00000000000000 300.0083
2 4 1.00000000000000 300.0083
2 5 1.00000000000000 313.2038
2 6 1.00000000000000 313.2038
2 7 1.00000000000000 300.0083
2 8 1.00000000000000 300.0083
3 1 1.00000000000000 313.2038
3 2 1.00000000000000 313.2038
3 3 1.00000000000000 300.0083
3 4 1.00000000000000 300.0083
3 5 1.00000000000000 313.2038
3 6 1.00000000000000 313.2038
3 7 1.00000000000000 300.0083
3 8 1.00000000000000 300.0083
4 1 1.00000000000000 313.2038
4 2 1.00000000000000 313.2038
4 3 1.00000000000000 300.0083
4 4 1.00000000000000 300.0083
4 5 1.00000000000000 313.2038
4 6 1.00000000000000 313.2038
4 7 1.00000000000000 300.0083
4 8 1.00000000000000 300.0083
5 1 1.00000000000000 300.0083
5 2 1.00000000000000 300.0083
5 3 1.00000000000000 300.0083
5 4 1.00000000000000 300.0083
5 5 1.00000000000000 300.0083
5 6 1.00000000000000 300.0083
5 7 1.00000000000000 300.0083
5 8 1.00000000000000 300.0083
6 1 1.00000000000000 300.0083
6 2 1.00000000000000 300.0083
6 3 1.00000000000000 300.0083
6 4 1.00000000000000 300.0083
6 5 1.00000000000000 300.0083
6 6 1.00000000000000 300.0083
6 7 1.00000000000000 300.0083
6 8 1.00000000000000 300.0083
7 1 1.00000000000000 300.0083
7 2 1.00000000000000 300.0083
7 3 1.00000000000000 300.0083
7 4 1.00000000000000 300.0083
7 5 1.00000000000000 300.0083
7 6 1.00000000000000 300.0083
7 7 1.00000000000000 300.0083
7 8 1.00000000000000 300.0083
8 1 1.00000000000000 300.0083
8 2 1.00000000000000 300.0083
8 3 1.00000000000000 300.0083
8 4 1.00000000000000 300.0083
8 5 1.00000000000000 300.0083
8 6 1.00000000000000 300.0083
8 7 1.00000000000000 300.0083
8 8 1.00000000000000 300.0083

复制代码

916115735 · 发表于 2020-11-4 11:11:06

fcode 发表于 2020-11-4 08:34
这要看你的 SUBROUTINE 1 和 SUBROUTINE 2 的执行顺序是怎样的。

应该是先1后2的情况

fcode · 发表于 2020-11-4 11:38:49

如果你在 subroutine 1 ，subroutine 2 中又一次定义了 X，那么会覆盖掉module中的X
尝试取消在subroutine中对X的定义

风平老涡 · 发表于 2020-11-5 00:23:56

916115735 发表于 2020-11-4 11:10
但是传输过来的数据不对 1~4是 subroutine1计算的结果
5~8是subroutine2读取的结果 ...

在subroutine1中把X显示出来，与Subroutine2进行比较。

916115735 · 发表于 2020-11-6 11:04:09

fcode 发表于 2020-11-4 11:38
如果你在 subroutine 1 ，subroutine 2 中又一次定义了 X，那么会覆盖掉module中的X
尝试取消在subroutine ...

确实是 1中重新定义了谢谢

[Module] module 传输数据

规矩勋章

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

元老勋章

水王勋章