4 subroutine vecin2d_argchk(subname,jspline,
5 > icoeff,nx,ny,ixdim,iydim,ier)
9 character*(*),
intent(in) :: subname
10 integer,
intent(in) :: jspline(2)
11 integer,
intent(in) :: icoeff
12 integer,
intent(in) :: nx,ny
13 integer,
intent(in) :: ixdim,iydim
15 integer,
intent(out) :: ier
19 integer :: i,itest,jcoeff,ipcub
28 if((jspline(i).lt.-1).or.(jspline(i).gt.2))
then
29 write(6,*)
' ?'//trim(subname)//
30 >
': jspline(',i,
')=',jspline(i)
31 write(6,*)
' not in expected range -1:2.'
34 else if(jspline(i).ge.1)
then
39 if(ipcub.ne.jspline(i))
then
40 write(6,*)
' ?'//trim(subname)//
41 >
': more than one cubic method: jspline=',jspline
49 if(jcoeff.ne.icoeff)
then
50 write(6,*)
' ?'//trim(subname)//
51 >
': incorrect #coefficients per data point.'
52 write(6,*)
' expected: ',jcoeff,
' received: ',icoeff
53 write(6,*)
' jspline: ',jspline
58 if(jspline(1).eq.-1) itest=nx-1
59 if(ixdim.ne.itest)
then
60 write(6,*)
' ?'//trim(subname)//
': ixdim dimension error:'
61 write(6,*)
' nx=',nx,
' ixdim=',ixdim,
' expected: ',itest
62 write(6,*)
' jspline(1)=',jspline(1),
'; -1 for zonal.'
67 if(jspline(2).eq.-1) itest=ny-1
68 if(iydim.ne.itest)
then
69 write(6,*)
' ?'//trim(subname)//
': iydim dimension error:'
70 write(6,*)
' ny=',ny,
' iydim=',iydim,
' expected: ',itest
71 write(6,*)
' jspline(2)=',jspline(2),
'; -1 for zonal.'