Search Site | Contact Details | FAQ

ADAS Subroutine maxw9

      SUBROUTINE MAXW9( IT    , B     , C    , E    ,
     &                  P     , NT    , T     , U
     &                )
C-----------------------------------------------------------------------
C  ******************  FORTRAN77 SUBROUTINE: MAXW9   *******************
C
C  PURPOSE: GAUSS-LAGUERRE QUADRATURE FROM BURGESS' PROGRAM
C           OMEUPS
C
C  INPUT:
C       (I*4)  IT       = TRANSITION TYPE
C       (R*8)  B        = BURGESS/SUMMERS SCALING PARAMETER - B
C       (R*8)  C        = BURGESS/SUMMERS SCALING PARAMETER - C
C       (R*8)  E        = EXCITATION ENERGY
C       (R*8)  P()      = KNOTS
C       (I*4)  NT       = NUMBER OF TEMPERATURE POINTS
C       (R*8)  T()      = TEMPERATURES (K)
C
C  OUTPUT:
C       (R*8)  U()      = UPSILONS
C
C  ROUTINES:
C    OMEUPS9 - TO CALCULATE THE MAXWELL AVERAGED UPSILONS
C    UPS9    - TO CALCULATE THE MAXWELL AVERAGED UPSILONS FOR ALL
C              TRANSITIONS EXCEPT 'SPIN CHANGE'
C
C  DATE:     24-06-99				VERSION: 1.1
C  AUTHOR:   HUGH SUMMERS, UNIVERSITY OF STRATHCLYDE
C		- FIRST RELEASE
C
C------------------------------------------------------------------------
      INTEGER             IT,          NT
      REAL*8              B,           C,           E,           P(9)
      REAL*8              T(NT),       U(NT)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk