ADAS Subroutine c6tbin
SUBROUTINE C6TBIN( MXNSHL , IZ1 , NBOT , NTOP , TEV , QTHIN )
C
C
C-----------------------------------------------------------------------
C
C ****************** FORTRAN77 SUBROUTINE: C6TBIN *********************
C
C PURPOSE: SETS UP AN ELECTRON IMPACT IONISATION RATE COEFFICIENT
C TABLE FOR N-LEVELS BASED ON THE ECIP APPROXIMATION. ENERGY
C LEVELS ARE ASSUMED HYDROGENIC IN THE EFFECTIVE ION CHARGE.
C
C CALLING PROGRAM: ADAS306
C
C INPUT : (I*4) MXNSHL = MAXIMUM VALUE OF PRINCIPAL QUANTUM NUMBER.
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 : (R*8) TEV = ELECTRON TEMPERATURE.
C UNITS: EV
C
C OUTPUT: (R*8) QTHIN() = IONISATION RATE COEFFICIENT.
C UNITS: CM3 SEC-1
C DIMENSION: N SHELL INDEX.
C
C PARAM : (R*8) P1 =
C
C (I*4) N = LOOP INDEX.
C (I*4) IZC = IZ1-1.
C
C (R*8) ZETA = EFFECTIVE NUMBER OF EQUIVALENT ELECTRONS FOR
C SHELL.
C (R*8) TE = ELECTRON TEMPERATURE.
C UNITS: K
C (R*8) XI =
C
C ROUTINES:
C ROUTINE SOURCE BRIEF DESCRIPTION
C -------------------------------------------------------------
C R8ECIP ADAS
C
C AUTHOR: JONATHAN NASH (TESSELLA SUPPORT SERVICES PLC)
C K1/0/81
C JET EXT. 5183
C
C DATE: 03/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, MXNSHL, NBOT, NTOP
REAL*8 QTHIN(MXNSHL), TEV