1 subroutine ezspline_cdfget3(ncid,zname,fspl,idim1,idim2,idim3,ifail)
9 integer,
intent(in) :: ncid
10 character*(*),
intent(in) :: zname
11 integer,
intent(in) :: idim1,idim2,idim3
12 real*8,
intent(out) :: fspl(idim1,idim2,idim3)
13 integer,
intent(out) :: ifail
15 call cdfgetvar(ncid, trim(zname), fspl, ifail)
17 end subroutine ezspline_cdfget3