fortran动力学子程序代码error，感激不尽！

0夕雪飞天0

小弟初学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)
感激不尽！