应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】Fortran编译链接Aspen的问题
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 1013  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 lx5599 的 10 个金币

lx5599

银虫 (初入文坛)

[交流] 【求助】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: ( : % . = =>
这是什么原因啊？怎么解决？
回复此楼

» 猜你喜欢
1楼 2010-01-04 16:59:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tianlangxingaa

铁杆木虫 (著名写手)
★ ★
余泽成(金币+2,VIP+0):谢谢参与应助！ 1-4 21:32
很抱歉，我对你这个程序进行了测试，编译和运行时没有发现你发现的错误

但是你这个程序没有输出，所以不太清楚是不是真的有错误，还是编译器的问题

希望在检查下

cheers
赞一下(10人) 回复此楼
2楼2010-01-04 19:25:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
★ ★
余泽成(金币+2,VIP+0):专家辛苦了！ 1-4 21:33
我编译了一下，好像也没问题，
不过看你的第一类错误，好像是需要把第一行往里挪挪的意思，但是你这是90，我不知道。

[ Last edited by maomao1210 on 2010-1-4 at 20:45 ]
赞一下(10人) 回复此楼
3楼2010-01-04 20:41:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

许虎_lenovo

铁虫 (初入文坛)
★
jjdg(金币+1,VIP+0):欢迎新虫 1-19 00:43
我做过类似的问题，要仔细排查，需要你个人努力，当初我就是这么弄出来的！！
赞一下(10人) 回复此楼
4楼2010-01-18 21:13:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

f41898

至尊木虫 (文坛精英)
nono2009(金币+0,VIP+0):请勿在专业区灌水。在这个版面再提醒1次！ 1-21 09:53
????
回复此楼
5楼2010-01-20 19:35:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lx5599 的主题更新
51/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 数一英一271专硕（085401）求调剂，可跨 +6 前行必有光 2026-03-28 7/350 2026-03-28 22:42 by chemzp
[考研] 085701求调剂初试286分 +4 secret0328 2026-03-28 4/200 2026-03-28 21:09 by 15366876211
[考研] 压国家一区线，求导师收留，有恩必谢！ +7 迷人的哈哈 2026-03-28 7/350 2026-03-28 16:47 by 催化大白
[考研] 283求调剂 +3 A child 2026-03-28 3/150 2026-03-28 15:41 by ms629
[考研] 312，生物学求调剂 +3 小译同学abc 2026-03-28 3/150 2026-03-28 15:32 by 落睿可思
[考研] 085602 307分 求调剂 +7 不知道叫什么！ 2026-03-26 7/350 2026-03-28 09:57 by 神马都不懂
[考研] 328求调剂 +7 嗯滴的基本都 2026-03-27 7/350 2026-03-28 04:19 by fmesaito
[考研] 化学调剂 +4 爱吃番茄的旭 2026-03-24 5/250 2026-03-27 17:50 by kiokin
[考研] 308求调剂 +7 墨墨漠 2026-03-25 7/350 2026-03-27 14:47 by 狂炫麦当当
[考研] 一志愿华东理工大学081700，初试分数271 +6 kotoko_ik 2026-03-23 7/350 2026-03-27 12:29 by 惠州彭于晏
[考研] 085601 材料工程 313分 求调剂 +5 Ong3 2026-03-27 5/250 2026-03-27 12:24 by goldfish51
[考研] 一志愿211，335分，0856，求调剂院校和导师 +4 倾____萧 2026-03-27 5/250 2026-03-27 11:52 by zhshch
[考研] 求调剂 +3 刘柯@ 2026-03-24 4/200 2026-03-27 11:28 by shangxh
[考研] 考研调剂 +9 小蜡新笔 2026-03-26 9/450 2026-03-27 11:10 by 不吃魚的貓
[考研] 294分080500材料科学与工程求调剂 +4 柳溪边 2026-03-26 4/200 2026-03-26 21:14 by XPU李庆
[考研] 081700 调剂 267分 +11 迷人的哈哈 2026-03-23 11/550 2026-03-26 15:41 by zzll406
[考研] 总分293求调剂 +6 加一一九 2026-03-25 8/400 2026-03-26 13:30 by yujianx
[考研] 化学调剂一志愿上海交通大学336分-本科上海211 +4 小鱼爱有机 2026-03-25 4/200 2026-03-26 10:19 by aa331100
[考研] 293求调剂 +7 加一一九 2026-03-24 7/350 2026-03-25 12:02 by userper
[考研] 085404电子信息284分求调剂 +4 13659058978 2026-03-24 4/200 2026-03-24 12:15 by syl20081243
信息提示
关闭
请填处理意见
关闭