EZspline_save


interface EZspline_save
!
! Save spline/Akima Hermite/Linear object in netcdf file 'filename'. Use
! EZspline_load to load spline/Akima Hermite/Linear object from netcdf
! file.
!
! Mod DMC March 2006 -- optionally, by giving each spline a name,
! multiple splines can be saved in a single file. Also, by specifying
! "fullsave=.TRUE." the spline coefficients can be saved as well in the
! file, so that they do not have to be recomputed at ezspline_load time.
!
! When creating a single file with multiple spline objects, it is the
! user's responsibilitly to make sure that a different name is used for
! each spline that is to be saved. Names can consist of upper or lower
! case letters, numerals, and "_", but must not start with a numeral.
! Imbedded blanks are not allowed, and the length of the name must be
! no more than 20 characters long-- to allow the names of the spline
! object elements to be appended.
!
subroutine EZspline_save3_r8(spline_o, filename, ier, &
spl_name,fullsave)
use EZspline_obj
use EZcdf
type(EZspline3_r8) :: spline_o
character*(*) :: filename
integer, intent(out) :: ier

character*(*), intent(in),optional :: spl_name
logical, intent(in), optional :: fullsave

end subroutine EZspline_save3_r8

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

character*(*), intent(in),optional :: spl_name
logical, intent(in), optional :: fullsave

end subroutine EZspline_save2_r8

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

character*(*), intent(in),optional :: spl_name
logical, intent(in), optional :: fullsave

end subroutine EZspline_save1_r8

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

character*(*), intent(in),optional :: spl_name
logical, intent(in), optional :: fullsave

end subroutine EZspline_save3_r4

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

character*(*), intent(in),optional :: spl_name
logical, intent(in), optional :: fullsave

end subroutine EZspline_save2_r4

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

character*(*), intent(in),optional :: spl_name
logical, intent(in), optional :: fullsave

end subroutine EZspline_save1_r4

end interface


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