Search Site | Contact Details | FAQ

ADAS Subroutine g4llev

      SUBROUTINE G4LLEV( LVA , LVF , NLVB, IND, NLVF, INDF , IFLAG )

      IMPLICIT REAL*8(A-H,O-Z)
C---------------------------------------------------------------------
C
C******************* FORTRAN77 ROUTINE: G4LLEV ***********************
C
C  PURPOSE:  Determines whether a particular transition belongs
C            to the required set by checking the bound and free
C            states against the level lists.
C
C       INPUT:
C          LVA    -   TEST BOUND LEVEL INDEX
C          LVF    -   TEST FREE LEVEL INDEX
C          NLVB   -   NO. OF BOUND STATES
C          IND()  -   SET OF BOUND STATES
C          NLVF   -   NO. OF FREE STATES
C          INDF() -   SET OF FREE STATES
C
C       OUTPUT:
C          IFLAG  -   = 0, LVA AND LVF DO NOT BELONG TO IND, INDF
C                     = 1, LVA AND LVF DO     BELONG TO IND, INDF
C
C
C  VERSION  : 1.1
C  DATE     : 15/09/2000
C  MODIFIED : Martin O'Mullane
C             First version.
C
C  VERSION  : 1.2
C  DATE     : 16/05/2007
C  MODIFIED : Martin O'Mullane
C             - Updated comments as part of subroutine
C               documentation production.
C
C---------------------------------------------------------------------

      INTEGER             IFLAG,       IND(NDLEV),  INDF(NDLEV), LVA
      INTEGER             LVF,         NLVB,        NLVF
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk