1 subroutine gridintrp2d(
2 > x_newgrid,nx_new,y_newgrid,ny_new,f_new,if1,
3 > nx,xpkg,ny,ypkg,jspline,fspl,icoeff,ixdim,iydim,iwarn,ier)
15 real x_newgrid(nx_new)
16 real y_newgrid(ny_new)
21 real f_new(if1,ny_new)
32 integer :: ixdim,iydim
35 real fspl(icoeff,ixdim,iydim)
55 call vecintrp2d(ict,nx_new,x_newgrid,ytmp,nx_new,f_new(1,iy),
56 > nx,xpkg,ny,ypkg,jspline,fspl,icoeff,ixdim,iydim,iwarn,ier)