916115735 发表于 2020-12-3 10:13:42

语法问题

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

风平老涡 发表于 2020-12-3 11:34:54

请上传module的定义部分。

916115735 发表于 2020-12-6 13:43:52

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

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

风平老涡 发表于 2020-12-7 04:00:48

916115735 发表于 2020-12-6 13:43
MODULE COMMON_DATA
      IMPLICIT NONE
      SAVE


没有看到对 TEMP 和 L 的定义。
页: [1]
查看完整版本: 语法问题