| 查看: 306 | 回复: 2 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】ASPEN子程序编程问题
|
|||
|
本人是新手 ，刚刚开始学习ASPEN用户模型，这是本人在网上下载的一个FORTRAN子程序，但是在本人机子上却运行不起，老是提示有错误 ，不知道怎么修改 ，请各位达人看看 ，到底是哪里出了错误。 #include "dms_ncomp.cmn" SUBROUTINE model(A B C T_OUT1 P_OUT1 FIN_MOL FOUT_MOL ) implicit none real*8 A , B ,C, T_OUT1,P_OUT1 ,SIN1(NCOMP_NCC),SOUT1(NCOMP_NCC), &SOUT2(NCOMP_NCC+1), real*8 FIN_MOL(NCOMP_NCC) ,FOUT_MOL(NCOMP_NCC) ,real(NCOMP_NCC) A=real(1) B=real(2) C=real(3) c 将模型中的可变参数放到BLOCK的real区域 do 50 I=1,NCOMP_NCC+1 FIN_MOL(I)=SIN1(I) 50 CONTINUE FOUT_MOL(1)=A*FIN_MOL(1) FOUT_MOL(2)=B*FIN_MOL(2) FOUT_MOL(3)=C*FIN_MOL(3) T_OUT1=SIN1(NCOMP_NCC+2) P_OUT1=SIN1(NCOMP_NCC+3)*2 DO 80 I=1,NCOMP_NCC SOUT1(I)=FOUT_MOL(I) 80 CONTINUE SOUT1(NCOMP_NCC+1)=SUM(SOUT1) SOUT1(NCOMP_NCC+2)=T_OUT1 SOUT1(NCOMP_NCC+3)=P_OUT1 DO 100 I=1,NCOMP_NCC+1 SOUT2(I)=SIN1(I)-SOUT1(I) 100 CONTINUE DO 200 I=NCOMP_NCC+2,NCOMP_NCC+3 SOUT2(I)=SIN1(I) 200 CONTINUE END |
回复此楼» 猜你喜欢
40+中年人失业后，还能找到好工作吗？
已经有13人回复
-
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
申请科研项目纯靠实力能成功吗？
已经有11人回复
-
极限拉扯，如何抉择
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
2楼2009-12-17 10:49:48
3楼2009-12-20 20:54:30
200