ADAS Subroutine axiups
SUBROUTINE AXIUPS(IT,C,E,P,NT,T,U) C----------------------------------------------------------------------- C ****************** FORTRAN77 SUBROUTINE: AXIUPS ******************* C C PURPOSE: TO CALCULATE A SET OF USPILONS BY INTERPOLATION OF THE C BURGESS FIVE-POINT SPLINE C C INPUT: C IT TRANSITION TYPE C C UPSILON 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 AXOUPS - TO CALCULATE THE MAXWELL AVERAGED UPSILONS C C AUTHOR: HUGH P. SUMMERS, UNIVERSITY OF STRATHCLYDE C TEL. 0141-553-4196 C C DATE: 24 NOVEMBER 1996 C C MODIFICATION HISTORY: C C VERSION: 1.1 HUGH SUMMERS 24/11/96 C MODIFIED: FIRST RELEASE. C C------------------------------------------------------------------------ INTEGER IT, NT REAL*8 C, E, P(5), T(NT) REAL*8 U(NT)