| 查看: 294 | 回复: 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 |
回复此楼» 猜你喜欢
面上项目filecode邪修
已经有6人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有14人回复
-
2026国自然放榜时间
已经有4人回复
-
关于代码变化问题，想知道的进来
已经有22人回复
-
这样的filecode谁见过
已经有21人回复
-
filecode与中标关系的预测
已经有5人回复
-
fileCode有新解读？
已经有18人回复
-
关于filecode，很负责任的告诉大家
已经有7人回复
-
【2027博士申请】纳米药物递送方向
已经有5人回复
-
关于豆爷回答的JTJC与%2F数量
已经有7人回复
2楼2009-12-17 10:49:48
3楼2009-12-20 20:54:30
100