Search Site | Contact Details | FAQ

ADAS Subroutine h9trni

       SUBROUTINE H9TRNI( NDLEV  , NDTRN  , NDTEM , ndmet ,
     &                    IL     , ISTRN  , NV    ,
     &                    IA     , WA     , XJA   ,
     &                    I1A    , I2A    , AVAL  ,
     &                    SCOM   , zpla   , bwnoa , ipla ,
     &                    IUPPER , ILOWER ,
     &                    LUPPER , LLOWER ,
     &                    WUPPER , WLOWER ,
     &                    EUPPER , ELOWER ,
     &                    AA     , GAMMA  ,
     &                    zeta   , ip
     &                  )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: H9TRNI *********************
C
C  PURPOSE:  TO SET UP SELECTED IONISATION TRANSITION PARAMETERS
C
C  CALLING PROGRAM: ADAS809
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  NDLEV     = MAXIMUM NUMBER OF INDEX LEVELS
C  INPUT : (I*4)  NDTRN     = MAXIMUM NUMBER OF TRANSITIONS
C  INPUT : (I*4)  NDTEM     = MAXIMUM NUMBER OF INPUT FILE TEMPERATURES
C
C  INPUT : (I*4)  IL        = NUMBER OF INDEX LEVELS
C  INPUT : (I*4)  ISTRN     = SELECTED TRANSITION INDEX.
C  INPUT : (I*4)  NV        = INPUT DATA FILE: NUMBER OF GAMMA/TEMPERATURE
C                             PAIRS FOR THE SELECTED TRANSITION.
C
C  INPUT : (I*4)  IA()      = LEVEL INDEX NUMBER ARRAY
C  INPUT : (R*8)  WA()      = LEVEL ENERGIES RELATIVE TO LEVEL 1 (CM-1)
C  INPUT : (R*8)  XJA()     = QUANTUM NUMBER (J-VALUE) FOR LEVEL
C                             NOTE: (2*XJA)+1 = STATISTICAL WEIGHT
C
C  INPUT : (I*4)  I1A()     = LOWER LEVEL INDEX FOR ELECTRON IMPACT
C                             TRANSITION
C  INPUT : (I*4)  I2A()     = UPPER LEVEL INDEX FOR ELECTRON IMPACT
C                             TRANSITION
C  INPUT : (I*4)  AVAL()    = A-VALUE FOR ELECTRON IMPACT TRANSITION
C  INPUT : (I*4)  SCOM(,)   = GAMMA VALUES FOR ELECTRON IMPACT 
C                             (DE-)EXCITATION
C                             1st DIMENSION: TEMPERATURE INDEX
C                             2nd DIMENSION: TRANSITION INDEX
C  OUTPUT: (I*4)  IUPPER    = SELECTED TRANSITION: UPPER LEVEL ARRAY INDEX
C  OUTPUT: (I*4)  ILOWER    = SELECTED TRANSITION: LOWER LEVEL ARRAY INDEX
C
C
C  OUTPUT: (I*4)  LUPPER    = SELECTED TRANSITION: UPPER INDEX LEVEL
C  OUTPUT: (I*4)  LLOWER    = SELECTED TRANSITION: LOWER INDEX LEVEL
C
C  OUTPUT: (R*8)  WUPPER    = SELECTED TRANSITION: UPPER LEVEL STAT. WT.
C  OUTPUT: (R*8)  WLOWER    = SELECTED TRANSITION: LOWER LEVEL STAR. WT.
C                             (NOTE: STAT. WT. = STATISTICAL WEIGHT)
C
C  OUTPUT: (R*8)  EUPPER    = SELECTED TRANSITION: UPPER ENERGY LEVEL
C                             RELATIVE TO INDEX LEVEL 1. (CM-1)
C  OUTPUT: (R*8)  ELOWER    = SELECTED TRANSITION: LOWER ENERGY LEVEL
C                             RELATIVE TO INDEX LEVEL 1. (CM-1)
C  OUTPUT: (R*8)  AA        = SELECTED TRANSITION A-VALUE (SEC-1)
C  OUTPUT: (R*8)  GAMMAUP() = INPUT DATA FILE: SELECTED EXCITATION -
C                                              GAMMAUP VALUE AT 'TEMP()'
C  OUTPUT: (R*8)  GAMMADN() = INPUT DATA FILE: SELECTED DE-EXCITATION -
C                                              GAMMADN VALUE AT 'TEMP()'
C
C          (I*4)  I         = GENERAL USE.
C
C ROUTINES: NONE
C
C AUTHOR:  HUGH SUMMERS (UNIVERSITY OF STRATHCLYDE)
C          JA7.08
C          EXT. 4196
C
C DATE:    30/11/01
C
C UPDATE:  Paul Bryans
C	   24/11/04
C	   Added extra parameters needed for ionisation transition
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      INTEGER             I1A(NDTRN),  I2A(NDTRN),  IA(NDLEV),   IL
      INTEGER             ILOWER,      IPLA(NDMET,NDLEV),        ISTRN
      INTEGER             IUPPER,      LLOWER,      LUPPER,      NDLEV
      INTEGER             NDMET,       NDTEM,       NDTRN,       NV
      REAL*8              AA,          AVAL(NDTRN), BWNOA(NDMET)
      REAL*8              ELOWER,      EUPPER,      GAMMA(NDTEM)
      REAL*8              IP,          SCOM(NDTEM,NDTRN)
      REAL*8              WA(NDLEV),   WLOWER,      WUPPER
      REAL*8              XJA(NDLEV),  ZETA,        ZPLA(NDMET,NDLEV)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk