EZspline_load


interface EZspline_load
!
! Load spline/Akima Hermite object from netcdf file 'filename'. Use
! EZspline_save to save spline/Akima Hermite/Linear object in netcdf file.
!
! MOD DMC March 2006-- a single NetCDF file can now contain multiple
! *named* spline objects. If accessing such an object, the name must
! be supplied via the optional argument "spl_name". If this is omitted,
! the default is to read the contents of the file which is presumed to
! consist of but a single spline object.

! Each call still opens and closes the file; if users find this
! inefficient, an improvement to the control interface may be built.

subroutine EZspline_load3_r8(spline_o, filename, ier, spl_name)
use EZspline_obj
use EZcdf
type(EZspline3_r8) :: spline_o
character*(*) :: filename
integer, intent(out) :: ier

character*(*), intent(in),optional :: spl_name
end subroutine EZspline_load3_r8

subroutine EZspline_load2_r8(spline_o, filename, ier, spl_name)
use EZspline_obj
use EZcdf
type(EZspline2_r8) :: spline_o
character*(*) :: filename
integer, intent(out) :: ier

character*(*), intent(in),optional :: spl_name
end subroutine EZspline_load2_r8

subroutine EZspline_load1_r8(spline_o, filename, ier, spl_name)
use EZspline_obj
use EZcdf
type(EZspline1_r8) :: spline_o
character*(*) :: filename
integer, intent(out) :: ier

character*(*), intent(in),optional :: spl_name
end subroutine EZspline_load1_r8

subroutine EZspline_load3_r4(spline_o, filename, ier, spl_name)
use EZspline_obj
use EZcdf
type(EZspline3_r4) :: spline_o
character*(*) :: filename
integer, intent(out) :: ier

character*(*), intent(in),optional :: spl_name
end subroutine EZspline_load3_r4

subroutine EZspline_load2_r4(spline_o, filename, ier, spl_name)
use EZspline_obj
use EZcdf
type(EZspline2_r4) :: spline_o
character*(*) :: filename
integer, intent(out) :: ier

character*(*), intent(in),optional :: spl_name
end subroutine EZspline_load2_r4

subroutine EZspline_load1_r4(spline_o, filename, ier, spl_name)
use EZspline_obj
use EZcdf
type(EZspline1_r4) :: spline_o
character*(*) :: filename
integer, intent(out) :: ier

character*(*), intent(in),optional :: spl_name
end subroutine EZspline_load1_r4
end interface


Send comments about this document to pletzer@pppl.gov. Tue Apr 24 14:01:03 2007