fortran调试动力学子程序代码error？ 小弟初学aspenplus和fortran，在用compaq visual fortran编译器调试动力学子程序fortran代码过程中遇到问题，出error的部分子程序代码及错误如下： SUBROUTINE USERKIN(SOUT, NSUBS, IDXSUB, ITYPE, NINT, 2 INT, NREAL, REAL, IDS, NPO, 3 NBOPST, NIWORK, IWORK, NWORK, WORK, 4 NC, NR, STOIC, RATES, FLUXM, 5 FLUXS, XCURR, NTCAT, RATCAT, NTSSAT, 6 RATSSA, KCALL, KFAIL, KFLASH, NCOMP, 7 IDX, Y, X, X1, X2, 8 NRALL, RATALL, NUSERV, USERV, NINTR, 9 INTR, NREALR, REALR, NIWR, IWR, * NWR, WR, NRL, RATEL, NRV, 1 RATEV) C 以上定义子程序变量 IMPLICIT NONE C C DECLARE VARIABLES USED IN DIMENSIONING C INTEGER NSUBS, NINT, NPO, NIWORK, NWORK, + NC, NR, NTCAT, NTSSAT, NCOMP, + NRALL, NUSERV, NINTR, NREALR, NIWR, + NWR C #include "ppexec_user.cmn" EQUIVALENCE (RMISS, USER_RUMISS) EQUIVALENCE (IMISS, USER_IUMISS) #include "dms_ncomp.cmn" #include "rxn_rcstrr.cmn" #include "rxn_rprops.cmn" EQUIVALENCE (TEMP, RPROPS_UTEMP) EQUIVALENCE (PRES, RPROPS_UPRES) EQUIVALENCE (VFRAC, RPROPS_UVFRAC) EQUIVALENCE (BETA, RPROPS_UBETA) EQUIVALENCE (VVAP, RPROPS_UVVAP) EQUIVALENCE (VLIQ, RPROPS_UVLIQ) EQUIVALENCE (VLIQS, RPROPS_UVLIQS) EQUIVALENCE (B(1), IB(1)) --------------------Configuration: userkin - Win32 Debug-------------------- Compiling Fortran... C:\userkin\userkin.for C:\userkin\userkin.for(24) : Warning: Bad # preprocessor line #include "ppexec_user.cmn" -^ C:\userkin\userkin.for(27) : Warning: Bad # preprocessor line #include "dms_ncomp.cmn" -^ C:\userkin\userkin.for(28) : Warning: Bad # preprocessor line #include "rxn_rcstrr.cmn" -^ C:\userkin\userkin.for(29) : Warning: Bad # preprocessor line #include "rxn_rprops.cmn" -^ C:\userkin\userkin.for(39) : Warning: Bad # preprocessor line #include "pputl_ppglob.cmn" -^ C:\userkin\userkin.for(40) : Warning: Bad # preprocessor line #include "dms_maxwrt.cmn" -^ C:\userkin\userkin.for(41) : Warning: Bad # preprocessor line #include "dms_plex.cmn" -^ C:\userkin\userkin.for(59) : Error: This name does not have a type, and must have an explicit type. [NCOMP_NCC] + XMW (NCOMP_NCC), ------------------^ C:\userkin\userkin.for(59) : Error: A specification expression is invalid. [NCOMP_NCC] + XMW (NCOMP_NCC), ------------------^ C:\userkin\userkin.for(25) : Error: This name does not have a type, and must have an explicit type. [USER_RUMISS] EQUIVALENCE (RMISS, USER_RUMISS) --------------------------^ C:\userkin\userkin.for(26) : Error: This name does not have a type, and must have an explicit type. [USER_IUMISS] EQUIVALENCE (IMISS, USER_IUMISS) --------------------------^ C:\userkin\userkin.for(30) : Error: This name does not have a type, and must have an explicit type. [RPROPS_UTEMP] EQUIVALENCE (TEMP, RPROPS_UTEMP) -------------------------^ C:\userkin\userkin.for(31) : Error: This name does not have a type, and must have an explicit type. [RPROPS_UPRES] EQUIVALENCE (PRES, RPROPS_UPRES) -------------------------^ C:\userkin\userkin.for(32) : Error: This name does not have a type, and must have an explicit type. [RPROPS_UVFRAC] EQUIVALENCE (VFRAC, RPROPS_UVFRAC) --------------------------^ C:\userkin\userkin.for(33) : Error: This name does not have a type, and must have an explicit type. [RPROPS_UBETA] EQUIVALENCE (BETA, RPROPS_UBETA) -------------------------^ C:\userkin\userkin.for(34) : Error: This name does not have a type, and must have an explicit type. [RPROPS_UVVAP] EQUIVALENCE (VVAP, RPROPS_UVVAP) -------------------------^ C:\userkin\userkin.for(35) : Error: This name does not have a type, and must have an explicit type. [RPROPS_UVLIQ] EQUIVALENCE (VLIQ, RPROPS_UVLIQ) -------------------------^ C:\userkin\userkin.for(36) : Error: This name does not have a type, and must have an explicit type. [RPROPS_UVLIQS] EQUIVALENCE (VLIQS, RPROPS_UVLIQS) --------------------------^ C:\userkin\userkin.for(37) : Error: This name does not have a type, and must have an explicit type. [IB] EQUIVALENCE (B(1), IB(1)) -------------------------^ C:\userkin\userkin.for(99) : Error: This name does not have a type, and must have an explicit type. [RCSTRR_VFRRC] VBED=RCSTRR_VFRRC -------------^ C:\userkin\userkin.for(164) : Error: This name does not have a type, and must have an explicit type. [RCSTRR_VOLRC] RCARO2=KOVER*PO2*1.0D4/1.0D3*(1.0D0-VBED)*RCSTRR_VOLRC --------------------------------------------------^ Error executing df.exe. userkin.exe - 14 error(s), 7 warning(s) 感激不尽！ 查看更多5个回答 . 1人已关注
第1天
关注盖德视界
添加小助手
