destroy_1d Subroutine

private pure elemental subroutine destroy_1d(me)

Destructor for a linear_interp_1d class.

Type Bound

linear_interp_1d

Arguments

Type IntentOptional Attributes Name
class(linear_interp_1d), intent(inout) :: me

Called by

proc~~destroy_1d~~CalledByGraph proc~destroy_1d linear_interpolation_module::linear_interp_1d%destroy_1d proc~finalize_1d linear_interpolation_module::finalize_1d proc~finalize_1d->proc~destroy_1d proc~initialize_1d linear_interpolation_module::linear_interp_1d%initialize_1d proc~initialize_1d->proc~destroy_1d

Source Code

    pure elemental subroutine destroy_1d(me)

    implicit none

    class(linear_interp_1d),intent(inout) :: me

    if (allocated(me%f)) deallocate(me%f)
    if (allocated(me%x)) deallocate(me%x)
    me%ilox = 1
    me%initialized = .false.

    end subroutine destroy_1d