ADAS Subroutine c6ajtb
SUBROUTINE C6AJTB( MXJSHL , IZ1 , NU , LU , NL , LL , AA ) C C C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: C6AJTB ********************* C C PURPOSE: CALCULATES HYDRONIC LJ RESOLVED A-VALUES. C C THE SUBROUTINE CHECKS TO SEE IF A-VALUE IS POSSIBLE AND C DIPOLE ALLOWED AND RETURNS ZEROES IF NOT. C C CALLING PROGRAM: ADAS306 C C INPUT : (I*4) MXJSHL = MAXIMUM NUMBER OF J SUB-SHELLS. C INPUT : (I*4) IZ1 = ION CHARGE. C INPUT: (I*4) NU = UPPER PRINCIPAL QUANTUM NUMBER. C INPUT: (I*4) LU = ORBITAL QUANTUM NUMBER FOR NU. C INPUT: (I*4) NL = LOWER PRINCIPAL QUANTUM NUMBER. C INPUT: (I*4) LL = ORBITAL QUANTUM NUMBER FOR NL. C C OUTPUT: (R*8) AA() = LJ RESOLVED A-VALUE. C DIMENSION: TRANSITION INDEX WHERE: C 1 GIVES LU+0.5 --> LL+0.5 C 2 GIVES LU+0.5 --> LL-0.5 C 3 GIVES LU-0.5 --> LL+0.5 C 4 GIVES LU-0.5 --> LL-0.5 C C (I*4) I = LOOP INDEX. C C (R*8) A = L RESOLVED A VALUE. C (R*8) XLU = REAL VALUE = LU. C C ROUTINES: C ROUTINE SOURCE BRIEF DESCRIPTION C ------------------------------------------------------------- C R8ATAB ADAS RETURNS L RESOLVED HYDRONIC A-VALUE. C C AUTHOR: JONATHAN NASH (TESSELLA SUPPORT SERVICES PLC) C K1/0/81 C JET EXT. 5183 C C DATE: 08/11/93 C C UNIX-IDL PORT: C C AUTHOR: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC) C C DATE: 22ND MAY 1996 C C VERSION: 1.1 DATE: 22-05-96 C MODIFIED: WILLIAM OSBORN C - FIRST VERSION. IBM VERSION NOT CHANGED C C----------------------------------------------------------------------- C C----------------------------------------------------------------------- INTEGER IZ1, LL, LU, MXJSHL INTEGER NL, NU REAL*8 AA(2*MXJSHL)