19
5
0
入门
程序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
大师
风平老涡 发表于 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
916115735 发表于 2020-12-6 13:43 [mw_shl_code=fortran,true] MODULE COMMON_DATA IMPLICIT NONE SAVE
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode
GMT+8, 2021-3-3 03:31
Powered by Discuz! X3.2
© 2001-2017 Comsenz Inc.