1 subroutine mkspl2zb(fun,x,nx,th,nth,fspl,nf2,
2 > ibcxmin,bcxmin,ibcxmax,bcxmax,
3 > wk,inwk,ilinx,ilinth,ier)
39 write(6,
'('.lt.
' ?mkspl2pb -- array dim error, nf2nx'')')
45 fspl(1,ix,ith)=fun(x(ix),th(ith))
49 call mkbicubw(x,nx,th,nth,fspl,nf2,
50 > ibcxmin,bcxmin,ibcxmax,bcxmax,
51 > -1,zdummy,-1,zdummy,
52 > wk,inwk,ilinx,ilinth,ier)