Fortranデバッグによる動力学子プログラムコードのエラー

Thread Content

私はASPENPULSEとFORTRANを初めて学んでおり、Compac Visual FORTRANコンパイラを使って動力学シミュレーション用のFORTRANプログラムをデバッグしている際に問題に直面しました。エラーが発生したサブルーチンのコードとエラー内容は以下の通りです：

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
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)

C
#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
--------------------

Fortranをコンパイル中...
C:\userkin\userkin.for
C:\userkin\userkin.for(24) : 警告: 不正な#プリプロセッサ行
#include "ppexec_user.cmn" -^
C:\userkin\userkin.for(27) : 警告: 不正な#プリプロセッサ行
#include "dms_ncomp.cmn" -^
C:\userkin\userkin.for(28) : 警告: 不正な#プリプロセッサ行
#include "rxn_rcstrr.cmn" -^
C:\userkin\userkin.for(29) : 警告: 不正な#プリプロセッサ行
#include "rxn_rprops.cmn" -^
C:\userkin\userkin.for(39) : 警告: 不正な#プリプロセッサ行
#include "pputl_ppglob.cmn" -^
C:\userkin\userkin.for(40) : 警告: 不正な#プリプロセッサ行
#include "dms_maxwrt.cmn" -^
C:\userkin\userkin.for(41) : 警告: 不正な#プリプロセッサ行
#include "dms_plex.cmn" -^
C:\userkin\userkin.for(59) : エラー: この名前に型がなく、明示的な型が必要です。
+ XMW (NCOMP_NCC), ------------------^
C:\userkin\userkin.for(59) : エラー: 指定式が無効です。
+ XMW (NCOMP_NCC), ------------------^
C:\userkin\userkin.for(25) : エラー: この名前に型がなく、明示的な型が必要です。
EQUIVALENCE (RMISS, USER_RUMISS) --------------------------^
C:\userkin\userkin.for(26) : エラー: この名前に型がなく、明示的な型が必要です。
EQUIVALENCE (IMISS, USER_IUMISS) --------------------------^
C:\userkin\userkin.for(30) : エラー: この名前に型がなく、明示的な型が必要です。
EQUIVALENCE (TEMP, RPROPS_UTEMP) -------------------------^
C:\userkin\userkin.for(31) : エラー: この名前に型がなく、明示的な型が必要です。
EQUIVALENCE (PRES, RPROPS_UPRES) -------------------------^
C:\userkin\userkin.for(32) : エラー: この名前に型がなく、明示的な型が必要です。
EQUIVALENCE (VFRAC, RPROPS_UVFRAC) --------------------------^
C:\userkin\userkin.for(33) : エラー: この名前に型がなく、明示的な型が必要です。
EQUIVALENCE (BETA, RPROPS_UBETA) -------------------------^
C:\userkin\userkin.for(34) : エラー: この名前に型がなく、明示的な型が必要です。
EQUIVALENCE (VVAP, RPROPS_UVVAP) -------------------------^
C:\userkin\userkin.for(35) : エラー: この名前に型がなく、明示的な型が必要です。
EQUIVALENCE (VLIQ, RPROPS_UVLIQ) -------------------------^
C:\userkin\userkin.for(36) : エラー: この名前に型がなく、明示的な型が必要です。
EQUIVALENCE (VLIQS, RPROPS_UVLIQS) --------------------------^
C:\userkin\userkin.for(37) : エラー: この名前に型がなく、明示的な型が必要です。
EQUIVALENCE (B(1), IB(1)) -------------------------^
C:\userkin\userkin.for(99) : エラー: この名前に型がなく、明示的な型が必要です。
VBED=RCSTRR_VFRRC -------------^
C:\userkin\userkin.for(164) : エラー: この名前に型がなく、明示的な型が必要です。
RCARO2=KOVER*PO2*1.0D4/1.0D3*(1.0D0-VBED)*RCSTRR_VOLRC --------------------------------------------------
df.exeの実行にエラーが発生しました。
userkin.exe - 14件のエラー、7件の警告
感謝いたします！