1 subroutine r8splinck(x,inx,ilinx,ztol,ier)
9 INTEGER,
PARAMETER :: R8=selected_real_kind(12,100)
13 real*8 dxavg,zeps,zdiffx,zdiff
31 dxavg=(x(inx)-x(1))/(inx-1)
35 zdiffx=(x(ix)-x(ix-1))
36 if(zdiffx.le.0.0_r8) ier=2
38 if(abs(zdiff).gt.zeps)
then