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)