module 传输数据

风平老涡

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

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

call subroutine1     ! 设定 X
call subroutine2    ！读取 X
call subroutine1    ！设定新的X
call subroutine2    ！读取新的X

风平老涡

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

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