The problem of errors always occurring when compiling a Fortran subroutine
Thread Content
SUBROUTINE ME (NSIN, NINFI, SIN1, SIN2, SIN3, SIN4, SINFI, NSOUT, NINFO, SOUT1, SOUT2, SOUT3, SOUT, SINFO, NSUBS, IDXSUB, ITYPE, NINT, INT, NREAL, REAL, IDS, NPO, NBOPST, NIWORK, IWORK, NWORK, WORK, NSIZE, SIZE, INTSIZ, LD ) IMPLICIT NONE INTEGER NSUBS, NINT, NPO, NIWORK, NWORK, NSIZE #include "ppexec_user.cmn" EQUIVALENCE (RMISS, USER_RUMISS) EQUIVALENCE (IMISS, USER_IUMISS) #include "dms_ncomp.cmn" INTEGER IDXSUB(NSUBS), ITYPE(NSUBS), INT(NINT), IDS(2,13), NBOPST(6,NPO), IWORK(NIWORK), INTSIZ(NSIZE), MSIN, 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 INTEGER IMISS REAL*8 REAL(NREAL), RMISS, SPLIT ! INTERGER NCOMP_NCC REAL*8 K,E,R,T,PH,PL_H2,P,FRAC_H2,FRAC_H21,OUT_DH2,DC,PL,C,H,A,B INTEGER G REAL*8 FIN_MOL(NCOMP_NCC+1),FIN_MOL1(NCOMP_NCC+1),PHEND,OUT_H2 PARAMETER (K=1.084E-10, E=9.18E03, R=8.3145) T=SIN1(NCOMP_NCC+2) P=SIN1(NCOMP_NCC+3) C=120; H=1; PL_H2=30000; OUT_DH2=0 DC=C/10000 DO 50 G=1, NCOMP_NCC+1 FIN_MOL(G)=SIN1(G) 50 CONTINUE FRAC_H2=FIN_MOL(1)/FIN_MOL(NCOMP_NCC+1) PH=FRAC_H2*P IF(PH
There are many error messages similar to this: MEM.F(1) : Error: Syntax error, found END-OF-StateMENT when expecting one of: * SUBROUTINE ME (NSIN, NINFI, SIN1, SIN2, SIN3,
It might be a FORTRAN syntax error that causes the compilation to fail