ADAS Subroutine outtmp
SUBROUTINE OUTTMP(TITLE,MN,RX3,DPT,EHCT,NHCT,LHCT,NIP,NEX,IPRT, & NDEL,INTD,IPRS,ILOW,IONIP,NIONIP,ILPRS,IVDISP,ZEFF, & DEDEG,NL1,NL2,NL3,Z0,Z1,ALF,AMSZ0,AMSHYD,LP,ISP,LMAX, & NTAIL,LSWCH,IGHNL,IRNDGV,MJ,IREF,JREF,SREF,WREF,CREF, & WIREF,WCREF,MG,IRA,TE,TP,TS,DENS,DENSP,W,BMENER,DENSH, & NIMP,ZIMPA,AMIMPA,FRIMPA,ZP,EMP,NGA,LGA,ISGA,NGLA,INAL, & INALTG,ANAEGY,ANAFPG,NSERA,LAA,LTAA,INBL,INBLT,INBIN0, & INBN1,ANBE1,INBN2,ANBE2,INBN3,ANBE3,INREP,ILREP,ILTREP, & NREP,INLREP1,INLMP,IUTMP,IDIEL,EIJA,FIJA,CORA,EIJSA, & FIJSA,CORSA ) C------------------------------------------------------------------------- C C ********************* FORTRAN 77 ROUTINE : OUTTMP ********************* C C PURPOSE : ROUTINE TO WRITE INPUT TO TEMPORARY FILE. C C C CONTACT : HARVEY ANDERSON C UNIVERSITY OF STRATHCLYDE C ANDERSON@BARWANI.PHYS.STRATH.AC.UK C C DATE : 04/21/98 C C C VERSION : 1.2 C MODIFIED: RICHARD MARTIN C DATE : 21-03-2000 C DECLARED LOGICAL VARIABLE LOPEN. C C VERSION : 1.3 C MODIFIED: Martin O'Mullane C DATE : 3-6-2000 C Tidied code to be within column 72. C TITLE was passed as c*6 but here was c*1 title(10). C Change to make them compatible and alter writing of C TITLE to file. C C VERSION : 1.4 C MODIFIED: Martin O'Mullane C DATE : 20-01-2004 C Further code tidying. C C------------------------------------------------------------------------- CHARACTER*6 TITLE INTEGER IDIEL, IGHNL, ILOW, ILPRS INTEGER ILREP, ILTREP, INAL(2,10) INTEGER INALTG(2,10), INBIN0(2,10) INTEGER INBL(2,10), INBLT(2,10), INBN1(2,10) INTEGER INBN2(2,10), INBN3(2,10), INLMP(10,10) INTEGER INLREP1(10), INREP, INTD, IONIP INTEGER IPRS, IPRT, IRA(20) INTEGER IREF(10), IRNDGV, ISGA(2), ISP INTEGER IUTMP, IVDISP, JREF(10), LAA(2) INTEGER LGA(2), LHCT, LMAX, LP INTEGER LSWCH, LTAA(2), MG, MJ INTEGER MN, NDEL, NEX, NGA(2) INTEGER NGLA(2), NHCT, NIMP, NIONIP INTEGER NIP, NL1, NL2, NL3 INTEGER NREP(31), NSERA(2), NTAIL REAL*8 ALF, AMIMPA(10), AMSHYD, AMSZ0 REAL*8 ANAEGY(2,10), ANAFPG(2,10) REAL*8 ANBE1(2,10), ANBE2(2,10), ANBE3(2,10), BMENER REAL*8 CORA(10,6), CORSA(10,6), CREF(10), DEDEG REAL*8 DENS, DENSH, DENSP, DPT REAL*8 EHCT, EIJA(10), EIJSA(10), EMP REAL*8 FIJA(10), FIJSA(10), FRIMPA(10), RX3 REAL*8 SREF(10), TE, TP, TS REAL*8 W, WCREF(10), WIREF(10) REAL*8 WREF(10), Z0, Z1, ZEFF REAL*8 ZIMPA(10), ZP