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)