Destroy interpolator
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(interpolator), | intent(inout) | :: | self | Interpolator. |
elemental subroutine destroy(self)
!< Destroy interpolator
class(interpolator), intent(inout) :: self !< Interpolator.
if (allocated(self%is)) deallocate(self%is)
if (allocated(self%alpha)) deallocate(self%alpha)
if (allocated(self%weights)) deallocate(self%weights)
if (allocated(self%polynom)) deallocate(self%polynom)
endsubroutine destroy