| 查看: 1014 | 回复: 4 | |||
| 当前主题已经存档。 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 lx5599 的 10 个金币 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】Fortran编译链接Aspen的问题
|
|||
|
各位哥哥姐姐们，东西有点长，不过请您看下去，您的坚持说不定对我有很大的影响，谢谢了啊！请各位Fortran高手指点：下面是我编的一个动力学程序，链接到ASPEN中的，出现的问题，（本人是外行,还望各位帮忙)，再鞠躬! 源程序这样的： Program DLX CALL ASPEN(N, NCOMP, NR, NRL, NRV, T, TLIQ, TVAP, P, PHFRAC,& F, X, Y, IDX, NBOPST, KDIAG, STOIC, IHLBAS, HLDLIQ, TIMLIQ,& IHVBAS, HLDVAP, TIMVAP, NINT, INT, NREAL, REAL, RATES, RATEV, NINTB,& INTB, NREALB, REALB, NIWORK, IWORK, NWORK, WORK) STOP END !---------------------------------------------------------------------- SUBROUTINE ASPEN(N, NCOMP, NR, NRL, NRV, T, TLIQ, TVAP, P, PHFRAC,& F, X, Y, IDX, NBOPST, KDIAG, STOIC, IHLBAS, HLDLIQ, TIMLIQ,& IHVBAS, HLDVAP, TIMVAP, NINT, INT, NREAL, REAL, RATES, RATEV, NINTB,& INTB, NREALB, REALB, NIWORK, IWORK, NWORK, WORK) !---------------------------------------------------------------------- IMPLICIT NONE !DECLARE VARIABLES USED IN DIMENSIONING !---------------------------------------------------------------------- INTEGER NCOMP, NR, NRV, NINT, NINTB, NREALB, NIWORK, NWORK, USER_IUMISS REAL USER_RUMISS !#include "ppexec_user.cmn" EQUIVALENCE(RMISS,USER_RUMISS) EQUIVALENCE(IMISS,USER_IUMISS) !DECLARE ARGUMENTS !---------------------------------------------------------------------- INTEGER NRL(3), IDX(NCOMP), NBOPST(6), INT(NINT), INTB(NINTB),& IWORK(NIWORK), N, KDIAG, IHLBAS, IHVBAS, NREAL REAL*8 PHFRAC(1), X(NCOMP,3), Y(NCOMP), STOIC(NCOMP,NR), RATES(NCOMP), RATEL(1),& RATEV(NRV), REALB(NREALB), WORK(NWORK), T, TLIQ, TVAP,& P, F, HLDLIQ, TIMLIQ, HLDVAP, TIMVAP !---------------------------------------------------------------------- !DECLARE LOCAL VARIABLES INTEGER IMISS REAL*8 REAL(NREAL), RMISS !BEGIN EXECUTABLE CODE !----------------------------------------------------------------------- REAL*8, DIMENSION (1 : 5) :: K, Ea, a, b,REATS K (1:5) = (/ 0.000683, 0.001584, 0.0000010948, 0.006148, 0.91509 /) Ea (1:5) = (/ 15578, 54112, 49646, 17404, 27131 /) a (1:5) = (/ 0.6785, 1.7544, 0.55373, 0.30319, 1.6426 /) b (1:5) = (/ 0.4550, 2.2449, 1.9672, 0.11062, 0.66696 /) !------------------------------------------------------------------------ REATS(1)= -K(1) * EXP( -Ea(1)/8.314/(T-273.15) ) * ( F*PHFRAC(1)*Y(1) )**a(1) * ( Y(7)*P )**b(1) REATS(2)= -K(2) * EXP( -Ea(2)/8.314/(T-273.15) ) * ( F*PHFRAC(1)*Y(2) )**a(2) * ( Y(7)*P )**b(2) REATS(3)= -K(3) * EXP( -Ea(3)/8.314/(T-273.15) ) * ( F*PHFRAC(1)*Y(3) )**a(3) * ( Y(7)*P )**b(3) REATS(4)= -K(4) * EXP( -Ea(4)/8.314/(T-273.15) ) * ( F*PHFRAC(1)*Y(4) )**a(4) * ( Y(7)*P )**b(4) REATS(5)= -K(5) * EXP( -Ea(5)/8.314/(T-273.15) ) * ( F*PHFRAC(1)*Y(5) )**a(5) * ( Y(7)*P )**b(5) !------------------------------------------------------------------------- RETURN END 编译时，出现警告： Compiling Fortran... D:\exam\exam1\exam1.f90 D:\exam\exam1\exam1.f90(2) : Warning: In the call to ASPEN, actual argument #6 does not match the type and kind of the corresponding dummy argument. CALL ASPEN(N, NCOMP, NR, NRL, NRV, T, TLIQ, TVAP, P, PHFRAC,& 在我用Aspen中的 aspcomp进行编译时，出现这些错误： 第一类错误： f90: Error: Illegal character in statement label field [P] f90: Error: Illegal character in statement label field [r] f90: Error: Illegal character in statement label field [o] 第二类： f90: Error: First statement in file must not be continued exam1.f90(1) : Error: Syntax error, found END-OF-STATEMENT when expecting one of : ( : % . = => 第三类错误： f90: Error: First statement in file must not be continued exam1.f90(1) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( : % . = => 这是什么原因啊？怎么解决？ |
回复此楼» 猜你喜欢
求调剂 有机化学考研356分
已经有4人回复
-
0703 化学 求调剂，一志愿山东大学 342 分
已经有4人回复
-
086000生物与医药调剂
已经有7人回复
-
305求调剂
已经有7人回复
-
348求调剂
已经有3人回复
-
332求调剂
已经有6人回复
-
各位老师好，我的一志愿为北京科技大学085601材料专硕
已经有6人回复
-
085600 材料与化工 329分求调剂
已经有10人回复
-
356求调剂
已经有3人回复
-
一志愿武汉理工，总分321，英一数二，求老师收留。
已经有7人回复
4楼2010-01-18 21:13:05
tianlangxingaa
铁杆木虫 (著名写手)
- 应助: 52 (初中生)
- 贵宾: 0.02
- 金币: 7464.2
- 红花: 19
- 帖子: 1283
- 在线: 735.1小时
- 虫号: 438857
- 注册: 2007-09-30
- 专业: 理论和计算化学
2楼2010-01-04 19:25:57
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
3楼2010-01-04 20:41:53
