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)