Fortran Coder

查看: 341|回复: 3

[求助] 语法问题

[复制链接]

19

帖子

5

主题

0

精华

入门

F 币
98 元
贡献
61 点
发表于 2020-12-3 10:13:42 | 显示全部楼层 |阅读模式
在我程序中需要计算两次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

回复

使用道具 举报

96

帖子

2

主题

0

精华

大师

F 币
753 元
贡献
369 点

规矩勋章

发表于 2020-12-3 11:34:54 | 显示全部楼层
请上传module的定义部分。

19

帖子

5

主题

0

精华

入门

F 币
98 元
贡献
61 点
 楼主| 发表于 2020-12-6 13:43:52 | 显示全部楼层
风平老涡 发表于 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

96

帖子

2

主题

0

精华

大师

F 币
753 元
贡献
369 点

规矩勋章

发表于 2020-12-7 04:00:48 | 显示全部楼层
916115735 发表于 2020-12-6 13:43
[mw_shl_code=fortran,true]  MODULE COMMON_DATA
      IMPLICIT NONE
      SAVE

没有看到对 TEMP 和 L 的定义。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2021-3-3 03:31

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表