Search Site | Contact Details | FAQ

ADAS Subroutine c3alrs

      SUBROUTINE C3ALRS( IORD , EM1  , EM2  ,
     &                   EPRO , TTAR , ETHR ,
     &                   YA   , N    , NS   ,
     &                   OA   , SQEF
     &                 )
C-----------------------------------------------------------------------
C
C  ********************** FORTRAN77 SUBROUTINE : C3ALRS ****************
C
C  PURPOSE:  COMPUTES ALPHAS AND REDUCED SPEEDS.  RETURNS AN EFFECTIVE
C            CHARGE-EXCHANGE RATE COEFFICIENT
C
C  CALLING PROGRAM: SQEF
C
C  SUBROUTINE:
C
C  INPUT : (I*4)   IORD  = 1 FOR 1ST PARTICLE INCIDENT AND MONOENERGETIC
C                        = 2 FOR 2ND PARTICLE INCIDENT AND MONOENERGETIC
C  INPUT : (I*4)   ISEL  = SELECTOR FOR PARTICULAR RATE COEFFT.
C                          CHOSEN FROM TABLE
C  INPUT : (R*8)   EM1   = ATOMIC MASS NUMBER FOR 1ST PARTICLE
C  INPUT : (R*8)   EM2   = ATOMIC MASS NUMBER FOR 2ND PARTICLE
C  INPUT : (R*8)   EPRO  = INCIDENT PARTICLE ENERGY (EV/AMU)
C  INPUT : (R*8)   TTAR  = MAXWELL TEMPERATURE OF TARGET PARTICLES (EV)
C  INPUT : (R*8)   ETHR  = THRESHOLD ENERGY
C  INPUT : (R*8)   ZSEL  = NUCLEAR CHARGE (REQUIRED ONLY
C                          FOR PARTICULAR ISEL)
C  INPUT : (I*4)   NSEL  = PRINC. QUANTUM NO. (REQUIRED ONLY
C                          FOR PARTICULAR ISEL
C                          NB. NSEL SHOULD BE ZERO ON ENTRY OTHERWISE)
C  INPUT : (I*4)   N     = NUMBER OF SOURCE DATA VALUES
C
C  OUTPUT: (R*8)   SQEF  = RATE COEFFICIENT (CM3 SEC-1)
C  OUTPUT: (R*8)   OA()  = RATE COEFFTS.(CM**3 SEC-1) FOR SELECTED
C                          SOURCE DATA
C  OUTPUT: (R*8)   EA()  = SET OF ENERGIES (EV/AMU) FOR
C                          SELECTED SOURCE DATA
C  I/O   : (R*8)   YA()  = ENERGIES ON INPUT, SPEEDS ON OUTPUT
C
C          (I*4)   ISWIT = ENERGY RANGE SWITCHING INDEX
C          (I*4)   I     = GENERAL INDEX
C          (I*4)   K     = GENERAL INDEX
C
C          (R*8)   ABI   = FUNCTION - SEE BELOW
C          (R*8)   EMT   = SELECTED MASS
C          (R*8)   F     = GENERAL VARIABLE
C          (R*8)   SUM   = GENERAL VARIABLE
C          (R*8)   SXI   = GENERAL VARIABLE
C          (R*8)   SXXI  = GENERAL VARIABLE
C          (R*8)   U     = GENERAL VARIABLE
C          (R*8)   V     = GENERAL VARIABLE
C          (R*8)   VTHR  = THRESHOLD SPEED
C          (R*8)   X     = GENERAL VARIABLE
C          (R*8)   XI    = GENERAL VARIABLE
C          (R*8)   XRMIN = GENERAL VARIABLE
C          (R*8)   XXI   = GENERAL VARIABLE
C          (R*8)   XA()  = GAUSS-LAGUERRE NODES   (9-POINT)
C          (R*8)   WXA() = GAUSS-LAGUERRE WEIGHTS (9-POINT)
C
C
C  ROUTINES:
C           ROUTINE    SOURCE    BRIEF DESCRIPTION
C           ------------------------------------------------------------
C           ABI        ADAS      COMPUTES INTEGRAL FOR RATE COEFFICIENT
C
C  AUTHOR:  C J. WHITEHEAD, PAP, UNIVERSITY OF STRATHCLYDE
C           EXT 4205
C
C  DATE:    14/11/94
C
C  UPDATE:  09/12/94 - HP SUMMERS: ADJUST FORMATTING
C
C  UPDATE:  03/05/95 - PE BRIDEN : ADD DATA DECLARATION FOR F AND EMT.
C                                  (STOPS COMPILATION WARNING OF
C                                   UNINITIALISED VARIABLES.)
C
C  UPDATE:  15/05/95 - TIM HAMMOND: UNIX PORT - PUT INTO SCCS
C
C----------------------------------------------------------------------
C----------------------------------------------------------------------
      INTEGER             IORD,        N,           NS
      REAL*8              EM1,         EM2,         EPRO,        ETHR
      REAL*8              OA(24),      SQEF,        TTAR,        YA(24)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk