1 subroutine r8vecherm1(ict,ivec,xvec,ivd,fval,nx,xpkg,fspl,
11 INTEGER,
PARAMETER :: R8=selected_real_kind(12,100)
57 write(6,*) .lt.
' ?vecherm1: nx2: nx = ',nx
62 write(6,*) .le.
' ?vecherm1: vector dimension 0: ivec = ',
69 >
' ?vecherm1: output vector dimension less than input ',
71 write(6,*)
' ivec=',ivec,
' ivd=',ivd
80 call r8xlookup(ivec,xvec,nx,xpkg,2,iv,dxn,h,hi,iwarn)
84 call r8herm1fcn(ict,ivec,ivd,fval,iv,dxn,h,hi,fspl,nx)