我正在使用FORTRAN
为ASPEN plus
编写代码。我在FORTRAN
中创建了一个代码,编译它并创建.obj
文件没有问题。但是,当测试链接过程时,我遇到了这个错误。这是我在.dl
文件中获得的所有行。
-------------------- sum5.lnk ------------------------------
"sum5.obj"
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\atdms.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zemath.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zesqp.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zereport.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppmon.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\pputil.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppupp.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zeftools.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zevaraccu.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppflash.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppexec.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zeshs.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\pprxn.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppbase.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppeos.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zeuosutl.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zestreamu.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zeitutl.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\pppces.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppstub.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zeusrutl.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\pptgs.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\atdms2.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\aphier.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\pptransport.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppelec.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\pphysysprop.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppgamma.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\tabledatawrapper.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\zeuser3.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\zeratefrac.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\pppoly.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\zerplug.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\zercstr.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\zerbatch.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\zeu3utils.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\zepml.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\aosbridge.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\zeu3dl.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\zeopi.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppncsolid.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\rtpdfutl.lib
C:\PROGRA~2\ASPENT~1\OOMFV7~1.3\\lib\oomfutils.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppada.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\zerxrplus.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\ppfact.lib
C:\PROGRA~2\ASPENT~1\ASPENP~2.3\Engine\lib\zeradfrac.lib
C:\PROGRA~2\ASPENT~1\APRSYS~1.3\Engine\lib\pptderefprop.lib
libifcoremd.lib
libifportmd.lib
libmmd.lib
msvcrt.lib
-------------------- sum5.dyl ------------------------------
EXPORTS _SUM5=_SUM5@120
EXPORTS _SUM5@120
-------------------- Link command ------------------------------
link /DLL /nologo /out:"sum5.dll"
/def:"sum5.dyl" -nodefaultlib:libifcore.lib -nodefaultlib:libifport.lib - nodefaultlib:libm.lib -nodefaultlib:libifcoremt.lib -nodefaultlib:libmmt.lib
-nodefaultlib:libc.lib @"sum5.lnk"
-------------------- Link message ------------------------------
Creating library sum5.lib and object sum5.exp
sum5.obj : error LNK2019: unresolved external symbol _N@8 referenced in function _SUM5
sum5.dll : fatal error LNK1120: 1 unresolved externals
Link failure, status = 1120
asplink return code = 5
在上一个链接消息中,您可以看到错误。您是否认为代码内容有问题或者FORTRAN
与编译器Visual Studio
的兼容性有问题?
SUBROUTINE sum5 (SOUT, NSUBS, IDXSUB, ITYPE, NINTK, INTK, NREALK,
2 REALK, IDS, NPO, NBOPST, NIWK, IWK, NWK, WK,
3 NC, NR , STOIC, RATES, FLUXM, FLUXS, XCURR,
4 NTCAT, RATCAT, NTSSAT, RATSSA, KCALL,
* KFAIL, KFLASH, NCOMP)
IMPLICIT real*8 (A-H, O-Z)
INTEGER NSUBS, NINTK, NPO, NIWK, NWK, NC, NR, MIM, NCOMP
INTEGER I, J
DIMENSION SOUT(40),IDXSUB(NSUBS),ITYPE(NSUBS),INK(NINTK),
1 REALK(NREALK) ,IDS(2,1) ,NBOPST(6,NPO) ,IWK(NIWK),
2 WK(NWK),STOIC(NSUBS,NC,NR),RATES(50,50)
#include "ppexec_user.cmn"
EQUIVALENCE (RMISS, USER_RUMISS)
EQUIVALENCE (IMISS, USER_IUMISS)
#include "dms_ncomp.cmn"
#include "dms_maxwrt.cmn"
REAL Ri,PA,N, Ti, M(100)
REAL k(100,100), keq, NU(100,100)
REAL R(100,100), P(100,100), X(100)
REAL Xin(100), t, h, k9, tim(100)
REAL Pi(100), K1(100,100), K2(100,100)
REAL K3(100,100), K4(100,100), RATES(100,100)
DIMENSION INDX(1)
FLOW=SOUT(NCOMP_NCC+1)
T = SOUT(NCOMP_NCC+2)
PA = SOUT(NCOMP_NCC + 3)
CALL PPMON_VOLV (T,PA,RESLTS,NCPM,INDX,NBOPST, 3, 1,
1 VOLM,D2, KER)
R=8.314