Search Site | Contact Details | FAQ

ADAS Subroutine lh404ru

       SUBROUTINE LH404RU(DATE  , USER , 
     &                    IZ0   , IZL  , IZH   , CHPRFIX ,
     &                    MAXT  , MAXD , TEK   , DENSA   ,
     &                    DSNIN , DSNO , LDTYP , YEAR    , OPEN17
     &                   )
C----------------------------------------------------------------------
C
C ************ FORTRAN 77 PROGRAM: LH404RU *****************************
C
C   VERSION 1.0
C
C   PURPOSE:  TO FETCH DATA FROM MASTER CONDENSED PARENT/METASTABLE
C             RESOLVED COLLISIONAL DIELECTRONIC FILES, BUNDLE THEM,
C             AND PREPARE UNRESOLVED ISONUCLEAR (ADF11) MASTER FILES.
C           
C             ALSO CHECK FOR AN EQUIVALENTLY NAMED ADF15 FILES
C           
C             AND BUNDLE RESOLVED DATA BLOCKS INTO UNRESOLVED ONES.
C           
C             LOOSELY BASED UPON WJD404R
C           
C
C   PROGRAM:
C
C   PARAMETER : (I*4)  NUTMAX - OUTPUT  ELEMENT MASTER FILE
C                                 MAXIMUM NUMBER OF TEMPERATURES
C   PARAMETER : (I*4)  NUDMAX - OUTPUT  ELEMENT MASTER FILE
C                                 MAXIMUM NUMBER OF DENSITIES
C   PARAMETER : (I*4)  NUZMAX - OUTPUT  ELEMENT MASTER FILE
C                                 MAXIMUM NUMBER OF CHARGE STATES
C   PARAMETER : (I*4)  NUMMAX - METASTABLE FRACTIONS
C                                 MAXIMUM NUMBER OF METASTABLES
C
C       (R*8)  DENSA()        - OUTPUT ELEMENT MASTER FILE
C                                 SET OF MAXD DENSITIES
C       (R*8)  TEK()          - OUTPUT ELEMENT MASTER FILE
C                                 SET OF MAXT TEMPERATURES
C       (R*8)  DENSL()        - OUTPUT ELEMENT MASTER FILE
C                                 SET OF MAXD DENSITIES IN LOGARITHM
C       (R*8)  TEVL()         - OUTPUT ELEMENT MASTER FILE
C                                 SET OF MAXT TEMPERATURES IN LOGARITHM
C
C
C     ROUTINES:
C     ---------
C         XUFLOW   - VS FORTRAN UNDERFLOW EXCEPTION HANDLER
C         CL3270   - JET-SPECIFIC CLEAR SCREEN ROUTINE
C         XXDATE   - ADAS - GATHER CURRENT DATE
C         XXOPEN   - ADAS - OPEN FILE
C         XXSLEN   - ADAS - GET FIRST AND LAST CHAR. POS. IN A STRING
C         DMGUID   - JET-SPECIFIC - GATHER USERS ID
C         METRD    - READ MET FILES AND SPLINE ONTO TEMP/DENS ARRAY
C         FILEINF  - VS FORTRAN FILE INFORMATION ROUTINE
C         BND404A  - READ ACD,SCD,CCD,PRB,PRC RESOLVED ADF10 FILES
C                    AND BUNDLE THEM INTO UNRESOLVED ADF11 FILES
C         BND404B  - READ PLT,PLS RESOLVED ADF10 FILES
C                    AND BUNDLE THEM INTO UNRESOLVED ADF11 FILES
C         BND404C  - READ ADF10 FILES AND BUNDLE THE RESOLVED
C                    BLOCKS INTO UNRESOLVED BLOCKS TO BE TACKED
C                    ONTO THE BOTTOM OF THE FILE
C
C----------------------------------------------------------------------
C AUTHOR:  LORNE D. HORTON
C          ROOM K1/1/58, JET JOINT UNDERTAKING
C
C   DATE:  21ST FEBRUARY 1996
C
C----------------------------------------------------------------------
C
C VERSION: 1.2							
C DATE: 20-10-97
C MODIFIED: LORNE HORTON
C		- MODIFIED CALL TO BND404A and BND404B.
C
C VERSION:  1.3                         
C DATE: 4/11/99
C MODIFIED: Martin O'Mullane
C           - Add real name of producer.
C           - Modify comments.
C
C VERSION :  1.4                         
C DATE    : 04-01-2007
C MODIFIED: Martin O'Mullane
C           - F-like and Ne-like stages have 2 (not 1) metastables. 
C             Change NGRD vector.
C           - Use 11605.4 as K/eV conversion (same as xxtcon).
C
C VERSION :  1.5                        
C DATE    : 17-05-2007
C MODIFIED: Allan Whiteford
C           - Updated comments as part of subroutine documentation
C             procedure.
C
C----------------------------------------------------------------------

      CHARACTER*2         CHPRFIX
      CHARACTER*8         DATE
      CHARACTER*80        DSNIN(50,10),             DSNO(10)
      CHARACTER*30        USER
      CHARACTER*2         YEAR
      INTEGER             IZ0,         IZH,         IZL,         MAXD
      INTEGER             MAXT
      LOGICAL             LDTYP(9),    OPEN17
      REAL*8              DENSA(NUDMAX),            TEK(NUTMAX)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk