ADAS Subroutine bxchkm
SUBROUTINE BXCHKM( NMET , IMETR , ICNTE , IE1A , LMETR ) C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: BXCHKM ********************* C C PURPOSE: TO CHECK IF TRANSITIONS EXIST TO THE METASTABLE LEVELS. C C CALLING PROGRAM: ADAS205/ADAS206 C C SUBROUTINE: C C INPUT : (I*4) NMET = NUMBER OF METASTABLES ( 1 <= NMET <= 5 ) C INPUT : (I*4) IMETR() = INDEX OF METASTABLE IN COMPLETE LEVEL LIST C INPUT : (I*4) ICNTE = NUMBER OF ELECTRON IMPACT TRANSITIONS INPUT C INPUT : (I*4) IE1A() = ELECTRON IMPACT TRANSITION: LOWER ENERGY C LEVEL INDEX. C C OUTPUT: (L*4) LMETR() = .TRUE. =>ELECTRON IMPACT TRANSITION EXISTS C TO THE METASTABLE LEVEL GIVEN BY C 'IMETR()'. C .FALSE. =>ELECTRON IMPACT TRANSITIONS DO C NOT EXIST TO THE METASTABLE LEVEL C GIVEN BY 'IMETR()'. C C (I*4) I = GENERAL USE C (I*4) J = GENERAL USE C 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: 09/10/90 C C----------------------------------------------------------------------- C C----------------------------------------------------------------------- INTEGER ICNTE, IE1A(ICNTE), IMETR(NMET), NMET LOGICAL LMETR(NMET)