Search Site | Contact Details | FAQ

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
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk