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) 感激不尽！ 查看更多
第1天
关注盖德视界
添加小助手
