| 查看: 273 | 回复: 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 |
回复此楼» 猜你喜欢
今年审到国自然15份，谈谈感受
已经有11人回复
-
考博自荐
已经有5人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有10人回复
-
我在等一个没有答案的答案
已经有3人回复
-
半夜喝咖啡
已经有5人回复
-
面上本子正文33页，违规吗？会被低分嘛？
已经有6人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有7人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有6人回复
2楼2009-12-17 10:49:48
3楼2009-12-20 20:54:30
