Search Site | Contact Details | FAQ

ADAS Subroutine d4lbal

      SUBROUTINE D4LBAL( NDZ    ,          NDDEN , NDTIN ,
     &                   IZ1    , IZ2    , MAXD  , MAXT  ,
     &                   LDACDL , LDSCDL ,
     &                   LTACDL , LTSCDL ,
     &                   LDIBAL ,
     &                   LTIBAL
     &                 )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: D4LBAL *********************
C
C  PURPOSE:  TO IDENTIFY THE TEMPERATURES AND DENSITY FOR WHICH THE
C            CALCULATION OF IONISATION BALANCES INVOLVED THE USE OF
C            EXTRAPOLATED DATA.
C
C  CALLING PROGRAM: ADAS404
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  NDZ     = NUMBER OF CHARGE STATES
C  INPUT : (I*4)  NDDEN   = MAXIMUM NUMBER OF INPUT DENSITIES
C  INPUT : (I*4)  NDTIN   = MAXIMUM NUMBER OF INPUT TEMPERATURES
C
C  INPUT : (I*4)  IZ1     = MINIMUM ALLOWED IONIC CHARGE + 1
C  INPUT : (I*4)  IZ2     = MAXIMUM ALLOWED IONIC CHARGE + 1
C  INPUT : (I*4)  MAXD    = NUMBER OF USER ENTERED DENSITIES (<=NDDEN)
C  INPUT : (I*4)  MAXT    = NUMBER OF USER ENTERED TEMPERATURES(<=NDTIN)
C
C  INPUT : (L*4)  LDACDL(,)=.TRUE. => RECOMBINATION COLL.-DIEL COEFFT.
C                                     VALUE FOR DENSITY     INDEX AND
C                                     CHARGE INTERPOLATED.
C                          =.FALSE.=> RECOMBINATION COLL.-DIEL COEFFT.
C                                     VALUE FOR DENSITY     INDEX AND
C                                     CHARGE EXTRAPOLATED.
C                           1ST DIMENSION: DENSITY     INDEX
C                           2ND DIMENSION: CHARGE-STATE INDEX
C  INPUT : (L*4)  LDSCDL(,)=.TRUE. => IONIZATION    COLL.-DIEL COEFFT.
C                                     VALUE FOR DENSITY     INDEX AND
C                                     CHARGE INTERPOLATED.
C                          =.FALSE.=> IONIZATION    COLL.-DIEL COEFFT.
C                                     VALUE FOR DENSITY     INDEX AND
C                                     CHARGE EXTRAPOLATED.
C                           1ST DIMENSION: DENSITY     INDEX
C                           2ND DIMENSION: CHARGE-STATE INDEX
C
C  INPUT : (L*4)  LTACDL(,)=.TRUE. => RECOMBINATION COLL.-DIEL COEFFT.
C                                     VALUE FOR TEMPERATURE INDEX AND
C                                     CHARGE INTERPOLATED.
C                          =.FALSE.=> RECOMBINATION COLL.-DIEL COEFFT.
C                                     VALUE FOR TEMPERATURE INDEX AND
C                                     CHARGE EXTRAPOLATED.
C                           1ST DIMENSION: TEMPERATURE INDEX
C                           2ND DIMENSION: CHARGE-STATE INDEX
C  INPUT : (L*4)  LTSCDL(,)=.TRUE. => IONIZATION    COLL.-DIEL COEFFT.
C                                     VALUE FOR TEMPERATURE INDEX AND
C                                     CHARGE INTERPOLATED.
C                          =.FALSE.=> IONIZATION    COLL.-DIEL COEFFT.
C                                     VALUE FOR TEMPERATURE INDEX AND
C                                     CHARGE EXTRAPOLATED.
C                           1ST DIMENSION: TEMPERATURE INDEX
C                           2ND DIMENSION: CHARGE-STATE INDEX
C
C  OUTPUT: (L*4)  LDIBAL() =.TRUE. => IONIZATION BALANCES FOR DENSITY
C                                     INVOLVE NOT EXTRAPOLATION.
C                          =.FALSE.=> IONIZATION BALANCES FOR DENSITY
C                                     INVOLVE EXTRAPOLATION  IN  SOME
C                                     PART OF THEIR CALCULTION.
C                           1ST DIMENSION: DENSITY INDEX
C  OUTPUT: (L*4)  LTIBAL() =.TRUE. => IONIZATION BALANCES FOR TEMP'TURE
C                                     INVOLVE NOT EXTRAPOLATION.
C                          =.FALSE.=> IONIZATION BALANCES FOR TEMP'TURE
C                                     INVOLVE EXTRAPOLATION  IN  SOME
C                                     PART OF THEIR CALCULTION.
C                           1ST DIMENSION: TEMPERATURE INDEX
C
C          (I*4)  NZ      = NUMBER OF CHARGE STATES TO BE ASSESSED
C          (I*4)  ID      = ARRAY SUBSCRIPT USED FOR DENSITY INDEX
C          (I*4)  IT      = ARRAY SUBSCRIPT USED FOR TEMPERATURE INDEX
C          (I*4)  IZ      = ARRAY SUBSCRIPT USED FOR CHARGE-STATE INDEX
C
C          (L*4)  LS      = .TRUE.  => NO EXTRAPOLATION
C                           .FALSE. => EXTRAPOLATION
C
C NOTE:
C
C ROUTINES: NONE
C
C AUTHOR:   PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C           K1/0/81
C           JET EXT. 4569
C
C DATE:     30/01/91 - ADAS91 ROUTINE
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
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             IZ1,         IZ2,         MAXD,        MAXT
      INTEGER             NDDEN,       NDTIN,       NDZ
      LOGICAL             LDACDL(NDDEN,NDZ),        LDIBAL(NDDEN)
      LOGICAL             LDSCDL(NDDEN,NDZ),        LTACDL(NDTIN,NDZ)
      LOGICAL             LTIBAL(NDTIN),            LTSCDL(NDTIN,NDZ)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk