| 查看: 261 | 回复: 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 |
回复此楼» 猜你喜欢
292求调剂
已经有17人回复
-
266分，求材料相关专业调剂
已经有15人回复
-
化工求调剂
已经有4人回复
-
283分材料与化工求调剂
已经有23人回复
-
320分，材料与化工专业，求调剂
已经有23人回复
-
293求调剂
已经有6人回复
-
334求调剂
已经有9人回复
-
esi高被引论文是不是能对中标有所加分和帮助呢
已经有6人回复
-
求调剂机会
已经有5人回复
-
0856，269分求调剂
已经有17人回复
2楼2009-12-17 10:49:48
3楼2009-12-20 20:54:30
