ADAS Subroutine ups

       FUNCTION UPS(T,X,W,IT,E,C,P,C1,C2)
C-----------------------------------------------------------------------
C
C  ******************** FORTRAN 77 FUNCTION: UPS   *********************
C
C  PURPOSE:  
C        TO CALCULATE UPSILONS.
C
C  CALLING PROGRAM:
C        MAXWELL
C
C  INPUT:  
C        (R*8)    T - TEMPERATURES
C        (R*8)    X - FIXED QUADRATURE POINTS
C        (R*8)    W - FIXED QUADRATURE POINTS
C        (I)     IT - TRANSITION TYPE
C        (R*8)    E - EXCITATION ENERGY
C        (R*8)    C - OMEGA SCALING PARAMETER
C        (R*8)    P - BURGESS KNOTS
C        (R*8)   C1 - SCALING PARAMETERS
C        (R*8)   C2 - SCALING PARAMTERES
C
C  OUTPUT:
C        (R*8)  UPS - UPSILONS
C
C
C  ROUTINES: NONE
C
C  DATE:     21/06/95			VERSION 1.1
C  AUTHOR:   A.LANZAFAME (UNIV. OF STRATHCLYDE) & D.H.BROOKS
C            CONVERTED FROM BURGESS BBC BASIC
C
C-----------------------------------------------------------------------
      INTEGER             IT
      REAL*8              C,           C1,          C2,          E
      REAL*8              P(5),        T,           W(K),        X(K)