1 subroutine vecbicub(ict,ivec,xvec,yvec,ivd,fval,
2 > nx,xpkg,ny,ypkg,fspl,inf2,
44 real fspl(0:3,inf2,ny)
71 write(6,*) .lt.
' ?vecbicub: nx2: nx = ',nx
76 write(6,*) .lt.
' ?vecbicub: ny2: ny = ',ny
81 write(6,*) .le.
' ?vecbicub: vector dimension 0: ivec = ',
88 >
' ?vecbicub: output vector dimension less than input ',
90 write(6,*)
' ivec=',ivec,
' ivd=',ivd
100 call xlookup(ivec,xvec,nx,xpkg,2,ix,dxn,hx,hxi,iwarn1)
101 call xlookup(ivec,yvec,ny,ypkg,2,iy,dyn,hy,hyi,iwarn2)
106 call fvbicub(ict,ivec,ivd,fval,ix,iy,dxn,dyn,
107 > hx,hxi,hy,hyi,fspl,inf2,ny)