Search Site | Contact Details | FAQ

ADAS Subroutine i4idli

      FUNCTION I4IDLI( NF , LI , LF )         
C
C
C-----------------------------------------------------------------------
C
C  *************** FORTRAN77 INTEGER*4 FUNCTION: I4IDLI ****************
C
C  PURPOSE:  RETURNS THE INDEX NUMBER OF THE PREDICTED SPETRUM LINE
C            TABLES GIVEN THE ORBITAL QUANTUM NUMBER OF THE INTIAL STATE
C            AND THE PRINCIPAL AND ORBITAL QUANTUM NUMBERS OF THE FINAL
C            STATE.
C
C  CALLING PROGRAM: GENERAL USE
C
C  FUNCTION:
C
C  FUNC:   (I*4)   I4IDLI  = INDEX
C
C  INPUT:  (I*4)   NF      = PRINCIAPL QUANTUM NUMBER OF FINAL STATE.
C  INPUT:  (I*4)   LI      = ORBITAL QUANTUM NUMBER OF INITIAL STATE.
C  INPUT:  (I*4)   LF      = ORBITAL QUANTUM NUMBER OF FINAL STATE.
C
C AUTHOR:  JONATHAN NASH (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/81
C          JET EXT. 5183
C
C DATE:    14/10/93
C
C VERSION  : 1.2                          
C DATE     : 10-04-2007
C MODIFIED : Allan Whiteford
C               - Modified documentation as part of automated
C		  subroutine documentation preparation.
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      INTEGER             LF,          LI,          NF
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk