ADAS Subroutine c6tbex
SUBROUTINE C6TBEX( MXNSHL , MXJSHL , IZ1 , NBOT , & NTOP , NGRND , TEV , QTHEX , & FTHEXJ & ) C C C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: C6TBEX ********************* C C PURPOSE: SETS UP A TABLE OF ELECTRON IMPACT EXCITATION RATE C COEFFICIENTS FOR A HYDROGENIC ION FROM THE GROUND STATE C TO EXCITED NL LEVELS. C C CALLING PROGRAM: ADAS306. C C INPUT : (I*4) MXNSHL = MAXIMUM NO. OF N SHELLS. C INPUT : (I*4) MXJSHL = MAXIMUM NO. J SUB-SHELLS. C INPUT : (I*4) IZ1 = ION CHARGE. C INPUT : (I*4) NBOT = MINIMUM PRINCIPAL QUANTUM NUMBER. C INPUT : (I*4) NTOP = MAXIMUM PRINCIPAL QUANTUM NUMBER. C INPUT : (I*4) NGRND = C INPUT : (R*8) TEV = ELECTRON TEMPERATURE. C UNITS: EV C C OUTPUT: (R*8) QTHEX() = TABLE OF N-LEVEL EXCITATION RATE C COEFFICIENTS. C UNITS: C DIMENSION: N-SHELL C OUTPUT: (R*8) FTHEXJ(,) = TABLE OF NLJ-LEVEL EXCITATION RATE C COEFFICIENTS EXPRESSED AS FRACTION OF C CORRESPONDING N-LEVEL RATE. C 1ST DIMENSION: J SUB-SHELL C 1 => J=L+0.5 C 2 => J=L-0.5 C 2ND DIMENSION: REFERENCED BY I4IDFL(N,L) C C PARAM : (I*4) MXN = 'MXNSHL'. C C (I*4) N = N-SHELL INDEX. C (I*4) L = L-SHELL INDEX. C (I*4) J = J-SHELL INDEX. C (I*4) IDL = L-RESOLVED INDEX. C C (R*8) XL = REAL VALUE = L. C (R*8) WL = C C (R*8) TBQEX() = TABLE OF NL-LEVEL EXCITATION RATE C COEFFICIENTS. C UNITS: C DIMENSION: REFERENCED BY I4IDFL(N,L). C (R*8) FTHEX() = TABLE OF NL-LEVEL EXCITATION RATE C COEFFICIENTS EXPRESSED AS FRACTION OF C CORRESPONDING N-LEVEL RATE. C DIMENSION: REFERENCED BY I4IDFL(N,L). C C ROUTINES: C ROUTINE SOURCE BRIEF DESCRIPTION C ------------------------------------------------------------- C I4UNIT ADAS RETURNS UNIT NO. FOR OUTPUT OF MESSAGES. C I4IDFL ADAS RETURNS UNIQUE INDEX GIVEN QUANTUM C NUMBERS N AND L. C CXTBEX ADAS CALCULATES N-LEVEL AND NL-LEVEL C EXCITATION RATE COEFFICIENTS. NL RATES C ARE GIVEN AS FRACTION OF CORRESPONDING C N RATE. C C AUTHOR: JONATHAN NASH (TESSELLA SUPPORT SERVICES PLC) C K1/0/81 C JET EXT. 5183 C C DATE: 22/10/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, MXJSHL, MXNSHL, NBOT INTEGER NGRND, NTOP REAL*8 FTHEXJ(MXJSHL,(MXNSHL*(MXNSHL+1))/2) REAL*8 QTHEX(MXNSHL), TEV