ADAS Subroutine sp9

      FUNCTION SP9(P,X)
C-----------------------------------------------------------------------
C
C  ******************** FORTRAN 77 FUNCTION: SP9 ***********************
C
C  PURPOSE:  TO CALCULATE A SPLINE THROUGH THE NINE KNOT POINTS
C
C  CALLING PROGRAM:
C        OMEUPS
C
C
C  INPUT:   
C        (R*8) P    - THE NINE KNOT POINTS
C        (R*8) X    - THE POINT AT WHICH TO EVALUATE THE SPLINE
C  OUTPUT:   
C        (R*8) SP9  - THE EVALUATED SPLINE
C
C  ROUTINES: NONE
C
C  DATE:     24-05-99				VERSION 1.1
C  AUTHOR:   HUGH SUMMERS, UNIVERSITY OF STRATHCLYDE
C            FIRST RELEASE
C
C
C------------------------------------------------------------------------
      REAL*8              P(NSPLINE),  X