ADAS Subroutine omup9

      FUNCTION OMUP9( KTYPE , E    , T    , U    , B     , C )
C-----------------------------------------------------------------------
C
C  ******************** FORTRAN77 SUBROUTINE: OMUP9 ********************
C
C  PURPOSE:
C        TO CALCULATE UPSILONS FOR DIFFERENT TRANSITIONS
C
C  CALLING PROGRAM:
C        OMEUPS
C
C  INPUT:
C        (I*4)   KTYPE  = TRANSITION TYPE 
C        (R*8)   E      = EXCITATION ENERGY (RYD)
C        (R*8)   T      = SCALED ENERGY VALUE OF QUADRATURE FIXED POINTS
C        (R*8)   U      = SPLINE FIT TO THE KNOT POINTS AT RED. ENERGIES 
C        (R*8)   B      = BURGESS SCALABLE PARAMETER - B
C        (R*8)   C      = BURGESS SCALABLE PARAMETER - C
C  OUTPUT:
C        (R*8)  OMUP9   = UPSILON
C
C
C  DATE:   25/05/99				VERSION 1.1
C  AUTHOR: HUGH SUMMERS, UNIVERSITY OF STRATHCLYDE
C
C-----------------------------------------------------------------------
      INTEGER             KTYPE
      REAL*8              B,           C,           E,           T
      REAL*8              U