用户模型aspcomp命令有错误！大家看下？ 这是我的程序： C$ #2 BY: ANAVI DATE: 15-NOV-1994 FIXED TYPO INI(NINT)-->INT(NINT) C$ #1 BY: ANAVI DATE: 1-JUL-1994 NEW FOR USER MODELS C C User Unit Operation Model (or Report) Subroutine for USER C SUBROUTINE USRUSR (NSIN, NINFI, SIN1, SIN2, SIN3, 2 SIN4, SINFI, NSOUT, NINFO, SOUT1, 3 SOUT2, SOUT3, SOUT4, SINFO, NSUBS, 4 IDXSUB, ITYPE, NINT, INT, NREAL, 5 REAL, IDS, NPO, NBOPST, NIWORK, 6 IWORK, NWORK, WORK, NSIZE, SIZE, 7 INTSIZ, LD) C IMPLICIT NONE C C DECLARE VARIABLES USED IN DIMENSIONING C INTEGER NSUBS, NINT, NPO, NIWORK,NWORK, + NSIZE C #include "ppexec_user.cmn" EQUIVALENCE (RMISS, USER_RUMISS) EQUIVALENCE (IMISS, USER_IUMISS) C C C #include "dms_ncomp.cmn" C C THIS SUBROUTINE WILL SPLIT AN INLET TO TWO OUTLETS C C RETRIEVE THE SLPIT FACTOR C C C DECLARE ARGUMENTS C INTEGER IDXSUB(NSUBS),ITYPE(NSUBS), INT(NINT), + IDS(2,13), NBOPST(6,NPO), + IWORK(NIWORK),INTSIZ(NSIZE),NSIN, NINFI, + NSOUT, NINFO, NREAL, LD, I REAL*8 SIN1(1), SIN2(1), SIN3(1), + SIN4(1), SOUT1(1), SOUT2(1), + SOUT3(1), SOUT4(1), WORK(NWORK), + SIZE(NSIZE), SINFI, SINFO C C DECLARE LOCAL VARIABLES C INTEGER IMISS REAL*8 REAL(NREAL), RMISS, SPLIT C C BEGIN EXECUTABLE CODE REAL*8 POWER,P,T,PREF,TREF,A,AREF,PO2,PO2REF,VREF,LHV,VP REAL*8 IC,VT,VANODE,VCATHODE,B,H2,NH2,EFF,UF,FUEL,AREA,V DATA PREF,TREF,A,AREF,PO2,PO2REF/1,1000,0.2,0.15,0.18,0.16/ DATA UF,LHV,AREA,VREF/0.85,1000,96.1,1000/ POWER=REAL(1); P=REAL(2); T=REAL(3); VP=76*LOG10(P/PREF) IC=178 VT=0.008*(T-TREF)*IC VANODE=172*LOG10(A/AREF) VCATHODE=92*LOG10(PO2/PO2REF) V=VREF+VP+VT+VANODE+VCATHODE 10 I=POWER/V IC=I/AREA VT=0.008*(T-TREF)*IC H2=0.018655*I/UF FUEL=H2/3.53 EFF=POWER/(FUEL*LHV) UF=EFF NH2=0.018655*I/UF B=NH2/H2 PO2=0.5*B*PO2 A=B*A VANODE=172*LOG10(A/AREF) VCATHODE=92*LOG10(PO2/PO2REF) V=VREF+VP+VT+VANODE+VCATHODE IF(ABS(V*I-POWER).GE.1E-5) GOTO 10 SOUT1=V SOUT2=I end C SPLIT = 0D0 IF ( NREAL .GT. 0 ) SPLIT = REAL(1) IF ( SPLIT .LT. 0D0 ) SPLIT = 0D0 IF ( SPLIT .GE. RMISS ) SPLIT = 0D0 C C SPLIT FIRST INLET TO FIRST AND SECOND OUTLETS C DO 100 I = 1, NCOMP_NCC+1 SOUT1(I) = SIN1(I) * SPLIT SOUT2(I) = SIN1(I) - SOUT1(I) 100 CONTINUE C C COPY ALL INTENSIVE VARIABLES C DO 200 I = NCOMP_NCC+2, NCOMP_NCC+9 SOUT1(I) = SIN1(I) SOUT2(I) = SIN1(I) 200 CONTINUE C RETURN END 我调用的是USR1的用户模型接口！ 出现了如图的错误。我不加自己的程序时候usrusr程序编译是能通过的，为什么我加了自己的程序编译就有错误呢？查看更多1个回答 . 4人已关注
第1天
关注盖德视界
添加小助手
