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)