ADAS Subroutine omeups9

      FUNCTION OMEUPS9( IT   , E    , B    , C    , P    , X )
C-----------------------------------------------------------------------
C
C  ******************** FORTRAN77 SUBROUTINE:OMEUPS9********************
C
C  PURPOSE:
C        TO CALCULATE UPSILONS 
C
C  CALLING PROGRAM:
C        MAXW9
C
C  INPUT:
C        (I*4)  IT      = TRANSITION TYPE
C        (R*8)  E       = EXCITATION ENERGY (RYD)
C        (R*8)  B       = BURGESS SCALABLE PARAMETER - B
C        (R*8)  C       = BURGESS SCALABLE PARAMETER - C
C        (R*8)  P()     = SPLINE VALUES AT KNOTS
C        (R*8)  X       = COLLIDING ELECTRON ENERGY AFTER EXCITATION
C  OUTPUT:
C        (R*8)  OMEUPS9 = UPSILON 
C
C  ROUTINES:
C         SP9    - BURGESS SPLINE FIT
C         OMUP9  - 
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              B,           C,           E,           P(9)
      REAL*8              X