Fortran Coder

标题: 语法问题 [打印本页]

作者: 916115735 时间: 2020-12-3 10:13
标题: 语法问题
在我程序中需要计算两次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

作者: 风平老涡 时间: 2020-12-3 11:34
请上传module的定义部分。

作者: 916115735 时间: 2020-12-6 13:43

风平老涡发表于 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

作者: 风平老涡 时间: 2020-12-7 04:00

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

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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)