ADAS Subroutine spls

      SUBROUTINE SPLS(XIN,Y)
C---------------------------------------------------------------------
C  ******************* FORTRAN 77 SUBROUTINE SPLS ********************
C
C  PURPOSE:
C         COMPUTE 5-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 POINTS
C
C  ROUTINES:
C         NONE
C
C  DATE:    02-07-95				VERSION 1.1
C
C  WRITTEN: A.LANZAFAME & D.H. BROOKS, UNIV.OF STRAYTHCLYDE, 
C           CONVERTED FROM BURGESS BBC BASIC
C
C  DATE:    13-05-99				VERSION 1.2
C  AUTHOR:  HUGH SUMMERS, UNIV.OF STRAYTHCLYDE, 
C           CORRECTED MODIFICATION OF INPUT PARAMETER X ON RETURN
C
C---------------------------------------------------------------------
      REAL*8              XIN,         Y(5)