1 subroutine spvec(ict,ivec,xvec,ivd,fval,nx,xpkg,fspl,iwarn,ier)
53 write(6,*) .lt.
' ?spvec: nx2: nx = ',nx
58 write(6,*) .le.
' ?spvec: vector dimension 0: ivec = ',ivec
64 >
' ?spvec: output vector dimension less than input ',
66 write(6,*)
' ivec=',ivec,
' ivd=',ivd
75 call xlookup(ivec,xvec,nx,xpkg,1,iv,dxv,dxv,dxv,iwarn)
79 call cspevfn(ict,ivec,ivd,fval,iv,dxv,fspl,nx)