extern fint spline1_c(float *,float *,fint *,float *,float *,fint *);