V3FIT
ezspline_cdfget3.f90
1 subroutine ezspline_cdfget3(ncid,zname,fspl,idim1,idim2,idim3,ifail)
2 
3  use ezcdf
4  implicit NONE
5 
6  ! (due to ezspline rank limitation) read 4d object as 3d object
7  ! use f77 interface style, should prevent unnecessary array copy.
8 
9  integer, intent(in) :: ncid ! opened NetCDF file
10  character*(*),intent(in) :: zname ! name to us for writing
11  integer, intent(in) :: idim1,idim2,idim3 ! spline data dimensions
12  real*8, intent(out) :: fspl(idim1,idim2,idim3) ! spline data & coefficients
13  integer, intent(out) :: ifail ! status retruned from NetCDF
14 
15  call cdfgetvar(ncid, trim(zname), fspl, ifail)
16 
17 end subroutine ezspline_cdfget3