EZspline_free


interface EZspline_free
!
! Reset and free the memory. This method must be called to avoid
! memory leaks after all interpolations have been computed.
!
subroutine EZspline_free3_r8(spline_o, ier)
use EZspline_obj
type(EZspline3_r8) spline_o
integer, intent(out) :: ier
end subroutine EZspline_free3_r8

subroutine EZspline_free2_r8(spline_o, ier)
use EZspline_obj
type(EZspline2_r8) spline_o
integer, intent(out) :: ier
end subroutine EZspline_free2_r8

subroutine EZspline_free1_r8(spline_o, ier)
use EZspline_obj
type(EZspline1_r8) spline_o
integer, intent(out) :: ier
end subroutine EZspline_free1_r8

subroutine EZspline_free3_r4(spline_o, ier)
use EZspline_obj
type(EZspline3_r4) spline_o
integer, intent(out) :: ier
end subroutine EZspline_free3_r4

subroutine EZspline_free2_r4(spline_o, ier)
use EZspline_obj
type(EZspline2_r4) spline_o
integer, intent(out) :: ier
end subroutine EZspline_free2_r4

subroutine EZspline_free1_r4(spline_o, ier)
use EZspline_obj
type(EZspline1_r4) spline_o
integer, intent(out) :: ier
end subroutine EZspline_free1_r4
end interface


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