1 subroutine r8bcspvec(ict,ivec,xvec,yvec,ivd,fval,
2 > nx,xpkg,ny,ypkg,fspl,inf3,
14 INTEGER,
PARAMETER :: R8=selected_real_kind(12,100)
50 real*8 fspl(4,4,inf3,ny)
72 write(6,*) .lt.
' ?bcspvec: nx2: nx = ',nx
77 write(6,*) .lt.
' ?bcspvec: ny2: ny = ',ny
82 write(6,*) .le.
' ?bcspvec: vector dimension 0: ivec = ',
89 >
' ?bcspvec: output vector dimension less than input ',
91 write(6,*)
' ivec=',ivec,
' ivd=',ivd
101 call r8xlookup(ivec,xvec,nx,xpkg,1,ix,dxv,dxv,dxv,iwarn1)
102 call r8xlookup(ivec,yvec,ny,ypkg,1,iy,dyv,dyv,dyv,iwarn2)
103 iwarn=max(iwarn1,iwarn2)
107 call r8bcspevfn(ict,ivec,ivd,fval,ix,iy,dxv,dyv,fspl,inf3,ny)