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)