Search Site | Contact Details | FAQ

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