Search Site | Contact Details | FAQ

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
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk