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.
+ XMW (NCOMP_NCC),
------------------^
C:\userkin\userkin.for(59) : Error: A specification expression is invalid.
+ XMW (NCOMP_NCC),
------------------^
C:\userkin\userkin.for(25) : Error: This name does not have a type, and must have an explicit type.
EQUIVALENCE (RMISS, USER_RUMISS)
--------------------------^
C:\userkin\userkin.for(26) : Error: This name does not have a type, and must have an explicit type.
EQUIVALENCE (IMISS, USER_IUMISS)
--------------------------^
C:\userkin\userkin.for(30) : Error: This name does not have a type, and must have an explicit type.
EQUIVALENCE (TEMP, RPROPS_UTEMP)
-------------------------^
C:\userkin\userkin.for(31) : Error: This name does not have a type, and must have an explicit type.
EQUIVALENCE (PRES, RPROPS_UPRES)
-------------------------^
C:\userkin\userkin.for(32) : Error: This name does not have a type, and must have an explicit type.
EQUIVALENCE (VFRAC, RPROPS_UVFRAC)
--------------------------^
C:\userkin\userkin.for(33) : Error: This name does not have a type, and must have an explicit type.
EQUIVALENCE (BETA, RPROPS_UBETA)
-------------------------^
C:\userkin\userkin.for(34) : Error: This name does not have a type, and must have an explicit type.
EQUIVALENCE (VVAP, RPROPS_UVVAP)
-------------------------^
C:\userkin\userkin.for(35) : Error: This name does not have a type, and must have an explicit type.
EQUIVALENCE (VLIQ, RPROPS_UVLIQ)
-------------------------^
C:\userkin\userkin.for(36) : Error: This name does not have a type, and must have an explicit type.
EQUIVALENCE (VLIQS, RPROPS_UVLIQS)
--------------------------^
C:\userkin\userkin.for(37) : Error: This name does not have a type, and must have an explicit type.
EQUIVALENCE (B(1), IB(1))
-------------------------^
C:\userkin\userkin.for(99) : Error: This name does not have a type, and must have an explicit type.
VBED=RCSTRR_VFRRC
-------------^
C:\userkin\userkin.for(164) : Error: This name does not have a type, and must have an explicit type.
RCARO2=KOVER*PO2*1.0D4/1.0D3*(1.0D0-VBED)*RCSTRR_VOLRC
--------------------------------------------------^
Error executing df.exe.
userkin.exe - 14 error(s), 7 warning(s)
感激不尽！
页:
[1]