1 subroutine gridintrp3d(
2 > x_newgrid,nx_new,y_newgrid,ny_new,z_newgrid,nz_new,
4 > nx,xpkg,ny,ypkg,nz,zpkg,
5 > jspline,fspl,icoeff,ixdim,iydim,izdim,
18 real x_newgrid(nx_new)
19 real y_newgrid(ny_new)
20 real z_newgrid(nz_new)
25 real f_new(if1,if2,nz_new)
40 integer :: ixdim,iydim,izdim
44 real fspl(icoeff,ixdim,iydim,izdim)
59 data ict/1,0,0,0,0,0,0,0,0,0/
67 call vecintrp3d(ict,nx_new,x_newgrid,ytmp,ztmp,
68 > nx_new,f_new(1,iy,iz),
69 > nx,xpkg,ny,ypkg,nz,zpkg,
70 > jspline,fspl,icoeff,ixdim,iydim,izdim,