1 subroutine vecspline(ict,ivec,xvec,ivd,fval,nx,xpkg,fspl,
56 write(6,*) .lt.
' ?vecspline: nx2: nx = ',nx
61 write(6,*) .le.
' ?vecspline: vector dimension 0: ivec = ',
68 >
' ?vecspline: output vector dimension less than input ',
70 write(6,*)
' ivec=',ivec,
' ivd=',ivd
79 call xlookup(ivec,xvec,nx,xpkg,2,iv,dxn,h,hi,iwarn)
83 call fvspline(ict,ivec,ivd,fval,iv,dxn,h,hi,fspl,nx)