Search Site | Contact Details | FAQ

ADAS Subroutine lh404rr

      SUBROUTINE LH404RR(DATE  , USER  , 
     &                   IZ0   , IZL   , IZH   , CHPRFIX ,
     &                   MAXT  , MAXD  , TEK   , DENSA   ,
     &                   DSNIN , DSNO  , LDTYP , YEAR    , OPEN17
     &                  )
C----------------------------------------------------------------------
C
C ************ FORTRAN 77 PROGRAM: LH404RR *****************************
C
C   VERSION 1.0
C
C   PURPOSE:
C           TO FETCH DATA FROM MASTER CONDENSED PARENT/METASTABLE
C           RESOLVED COLLISIONAL DIELECTRONIC FILES AND PREPARE
C           RESOLVED ISONUCLEAR (ADF11) MASTER FILES.
C
C           BASED UPON LH404RU
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         FILEINF  - VS FORTRAN FILE INFORMATION ROUTINE
C         CNV404A  - READ ACD,SCD,CCD,PRB,PRC,QCD,XCD RESOLVED
C                    ADF10 FILES AND WRITE RESOLVED ADF11 FILES
C         CNV404B  - READ PLT,PLS RESOLVED ADF10 FILES
C                    AND WRITE RESOLVED ADF11 FILES
C
C----------------------------------------------------------------------
C AUTHOR:  LORNE D. HORTON
C          ROOM K1/1/58, JET JOINT UNDERTAKING
C
C   DATE:   5TH AUGUST 1996
C
C----------------------------------------------------------------------
C UNIX-IDL PORT:
C
C VERSION: 1.1				DATE: 11-11-96
C MODIFIED: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C		- FIRST CONVERTED
C               - MADE A SUBROUTINE OF ADAS404
C
C VERSION:  1.2                         DATE: 4/11/99
C MODIFIED: Martin O'Mullane
C           - Add real name of producer.
C           - Modify comments.
C           - Write the metastable line with new D4WMET subroutine.
C           - Increase size of DSNOUT to 80 from 35.
C
C VERSION :  1.2                         
C DATE    : 23-02-2006
C MODIFIED: Martin O'Mullane
C           - Use the same extrapolation as unresolved case. ie
C             do not bypass options in the dxspl<n>.for routines.
C
C VERSION :  1.3                         
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----------------------------------------------------------------------

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