Search Site | Contact Details | FAQ

ADAS Subroutine maxwell

      SUBROUTINE MAXWELL(IT,C,E,P,NT,T,U)
C-----------------------------------------------------------------------
C  ******************  FORTRAN77 SUBROUTINE: MAXWELL *******************
C
C  PURPOSE: GAUSS-LAGUERRE QUADRATURE FROM BURGESS' PROGRAM
C           OMEUPS
C
C  INPUT:
C    IT  TRANSITION TYPE
C    C   OMEGA SCALING PARAMETER
C    E   EXCITATION ENERGY
C    P   KNOTS
C    NT  NUMBER OF TEMPERATURE POINTS
C    T   TEMPERATURE
C
C  OUTPUT:
C    U   UPSILON
C
C  ROUTINES:
C    OMEUPS - TO CALCULATE THE MAXWELL AVERAGED UPSILONS
C    UPS    - TO CALCULATE THE MAXWELL AVERAGED UPSILONS FOR ALL
C             TRANSITIONS EXCEPT 'SPIN CHANGE'
C
C  WRITTEN:
C        A.LANZAFAME & D.H.BROOKS, UNIV.OF STRATHCLYDE, 02-JULY-1995
C        CONVERTED FROM BURGESS BBC BASIC
C  DATE: 02-07-95				VERSION: 1.1
C  MODIFIED: A.LANZAFAME & D.H.BROOKS
C		- FIRST RELEASE
C
C------------------------------------------------------------------------
      INTEGER             IT,          NT
      REAL*8              C,           E,           P(5),        T(NT)
      REAL*8              U(NT)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk