1 subroutine r8vecpc2(ict,ivec,xvec,yvec,ivd,fval,
2 > nx,xpkg,ny,ypkg,fspl,inf1,
14 INTEGER,
PARAMETER :: R8=selected_real_kind(12,100)
77 write(6,*) .le.
' ?vecpc2: vector dimension 0: ivec = ',
84 >
' ?vecpc2: output vector dimension less than input ',
86 write(6,*)
' ivec=',ivec,
' ivd=',ivd
96 call r8xlookup(ivec,xvec,nx,xpkg,2,ix,dxn,hx,hxi,iwarn1)
97 call r8xlookup(ivec,yvec,ny,ypkg,2,iy,dyn,hy,hyi,iwarn2)
102 call r8pc2fcn(ict,ivec,ivd,fval,ix,iy,dxn,dyn,
103 > hx,hxi,hy,hyi,fspl,inf1,ny)