语法问题

916115735

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

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

查看代码

打印?

01

程序1

02	C     定义气体粘度(MPa·s)

03	miu = (1.48E-5+2.5E-8*TEMP)*1E-6

04	C     分解热（mj/t）

05	Qi = -2.34E11

06

07

程序2

08	C     普适气体常数 (mJ/mol/K)

09	R = 8.3144E3

10	C     定义气体粘度(MPa·s)

11	miu = (1.48E-5+2.5E-8*L)*1E-6

风平老涡

请上传module的定义部分。

916115735

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

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

查看代码

打印?

1	MODULE COMMON_DATA

2	IMPLICIT NONE

3

SAVE

4	REAL::X(19200),Z(19200), W(19200), B(19200), D(19200)

5	REAL::G(19200),O(19200),P(19200),Q(19200)

6

7	END MODULE

风平老涡

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

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