2 > x_newgrid,nx_new,y_newgrid,ny_new,z_newgrid,nz_new,
4 > nx,xpkg,ny,ypkg,nz,zpkg,fspl,inf2,inf3,iwarn,ier)
16 real x_newgrid(nx_new)
17 real y_newgrid(ny_new)
18 real z_newgrid(nz_new)
23 real f_new(if1,if2,nz_new)
35 real fspl(0:7,inf2,inf3,nz)
50 data ict/1,0,0,0,0,0,0,0,0,0/
58 call vecherm3(ict,nx_new,x_newgrid,ytmp,ztmp,
59 > nx_new,f_new(1,iy,iz),
60 > nx,xpkg,ny,ypkg,nz,zpkg,fspl,inf2,inf3,iwarn,ier)