ADAS Subroutine spls9

      SUBROUTINE SPLS9(XIN,Y)
C---------------------------------------------------------------------
C  ******************* FORTRAN 77 SUBROUTINE SPLS9 *******************
C
C  PURPOSE:
C         COMPUTE 9-POINTS CUBIC SPLINE COEFFICIENTS
C  INPUT:
C         (R*8) XIN - THE POINT WHERE THE SPLINE IS TO BE EVALUATED
C
C  OUTPUT:
C         (R*8) Y - THE BURGESS KNOT MULTIPIERS
C
C  ROUTINES:
C         NONE
C
C  DATE:    26-05-99				VERSION 1.1
C  AUTHOR:  HUGH SUMMERS, UNIV.OF STRAYTHCLYDE, 
C
C---------------------------------------------------------------------
      REAL*8              XIN,         Y(9)