finalize_4d Subroutine

private pure elemental subroutine finalize_4d(me)

Finalizer for a linear_interp_4d type.

Arguments

Type IntentOptional Attributes Name
type(linear_interp_4d), intent(inout) :: me

Calls

proc~~finalize_4d~~CallsGraph proc~finalize_4d linear_interpolation_module::finalize_4d proc~destroy_4d linear_interpolation_module::linear_interp_4d%destroy_4d proc~finalize_4d->proc~destroy_4d

Source Code

    pure elemental subroutine finalize_4d(me)

    implicit none

    type(linear_interp_4d),intent(inout) :: me
    call me%destroy()

    end subroutine finalize_4d