1 subroutine r8spvec(ict,ivec,xvec,ivd,fval,nx,xpkg,fspl,iwarn,ier)
10 INTEGER,
PARAMETER :: R8=selected_real_kind(12,100)
55 write(6,*) .lt.
' ?spvec: nx2: nx = ',nx
60 write(6,*) .le.
' ?spvec: vector dimension 0: ivec = ',ivec
66 >
' ?spvec: output vector dimension less than input ',
68 write(6,*)
' ivec=',ivec,
' ivd=',ivd
77 call r8xlookup(ivec,xvec,nx,xpkg,1,iv,dxv,dxv,dxv,iwarn)
81 call r8cspevfn(ict,ivec,ivd,fval,iv,dxv,fspl,nx)