1 subroutine mkspl2p(fun,x,nx,th,nth,fspl,nf3,wk,inwk,
15 real fspl(4,4,nf3,nth)
27 write(6,
'('.lt.
' ?mkspl2p -- array dim error, nf3nx'')')
30 if(inwk.lt.5*max(nx,nth))
then
31 write(6,
'('' ?mkspl2p -- array dim error, inwk too small'')')
37 fspl(1,1,ix,ith)=fun(x(ix),th(ith))
41 call bpspline(x,nx,th,nth,fspl,nf3,wk,inwk,ilinx,ilinth,ier)