语法问题

916115735

在我程序中需要计算两次miu分别在两个程序中 中间通过module进行数据交换
在第一个程序中无法计算miu
但第二个程序可以正常计算miu
程序2中的L也是程序1中的TEMP通过module传输过来的

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

程序1
C     定义气体粘度(MPa·s)
      miu = (1.48E-5+2.5E-8*TEMP)*1E-6
C     分解热（mj/t）
      Qi = -2.34E11

程序2
C     普适气体常数 (mJ/mol/K)
      R = 8.3144E3
C     定义气体粘度(MPa·s)
      miu = (1.48E-5+2.5E-8*L)*1E-6

风平老涡

916115735 发表于 2020-12-6 13:43
[mw_shl_code=fortran,true]  MODULE COMMON_DATA
      IMPLICIT NONE
      SAVE

没有看到对 TEMP 和 L 的定义。

916115735

风平老涡 发表于 2020-12-3 11:34
请上传module的定义部分。

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

  MODULE COMMON_DATA
      IMPLICIT NONE 
      SAVE
      REAL::X(19200),Z(19200), W(19200), B(19200), D(19200)
      REAL::G(19200),O(19200),P(19200),Q(19200)
      
      END MODULE

风平老涡

请上传module的定义部分。