10 subroutine bpspline(x,inx,th,inth,fspl,inf3,
11 > wk,nwk,ilinx,ilinth,ier)
14 integer inx,inth,inf3,nwk
15 real x(inx),th(inth),fspl(4,4,inf3,inth),wk(nwk)
59 if(nwk.lt.5*max(inx,inth))
then
60 write(6,
'('' ?bpspline: workspace too small.'')')
64 write(6,
'('' ?bpspline: at least 2 x points required.'')')
68 write(6,
'('' ?bpspline: need at least 2 theta points.'')')
74 call splinck(x,inx,ilinx,1.0e-3,ierx)
78 write(6,
'('' ?bpspline: x axis not strict ascending'')')
83 call splinck(th,inth,ilinth,1.0e-3,ierth)
87 write(6,
'('' ?bpspline: th axis not strict ascending'')')
98 call bcspline(x,inx,th,inth,fspl,inf3,
101 > wk,nwk,ilinx,ilinth,ier)