ADAS Subroutine omeups

      FUNCTION OMEUPS(IT,E,C,P,X)
C-----------------------------------------------------------------------
C
C  ******************** FORTRAN77 SUBROUTINE:OMEUPS*********************
C
C  PURPOSE:
C        TO CALCULATE UPSILONS 
C
C  CALLING PROGRAM:
C        MAXWELL
C
C  INPUT:
C        (I)     IT - TRANSITION TYPE
C        (R*8)    E - EXCITATION ENRGY
C        (R*8)    C - SCALABLE PARAMETER
C        (R*8)    P - KNOT POINTS
C        (R*8)    X - COLLIDING ELECTRON ENERGY AFTER
C                     EXCITATION
C  OUTPUT:
C        (R*8) OMEUPS - THE UPSILONS
C
C  ROUTINES:
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,           E,           P(5),        X