| 查看: 256 | 回复: 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 |
回复此楼» 猜你喜欢
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有7人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有9人回复
-
今年春晚有几个节目很不错，点赞！
已经有10人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有10人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有5人回复
2楼2009-12-17 10:49:48
3楼2009-12-20 20:54:30