1 subroutine mkspl2z(fun,x,nx,th,nth,fspl,nf2,wk,inwk,
27 write(6,
'('.lt.
' ?mkspl2p -- array dim error, nf2nx'')')
33 fspl(1,ix,ith)=fun(x(ix),th(ith))
37 call mkbicubw(x,nx,th,nth,fspl,nf2,
38 > 0,zdummy,0,zdummy,-1,zdummy,-1,zdummy,
39 > wk,inwk,ilinx,ilinth,ier)