destroy_body_eph_interface Subroutine

private subroutine destroy_body_eph_interface(me)

Type Bound

body_eph_interface

Arguments

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

Calls

proc~~destroy_body_eph_interface~~CallsGraph proc~destroy_body_eph_interface body_eph_interface%destroy_body_eph_interface proc~destroy_body_eph body_eph%destroy_body_eph proc~destroy_body_eph_interface->proc~destroy_body_eph

Called by

proc~~destroy_body_eph_interface~~CalledByGraph proc~destroy_body_eph_interface body_eph_interface%destroy_body_eph_interface proc~destroy_jpl_ephemeris_splined jpl_ephemeris_splined%destroy_jpl_ephemeris_splined proc~destroy_jpl_ephemeris_splined->proc~destroy_body_eph_interface proc~initialize_globals jpl_ephemeris_splined%initialize_globals proc~initialize_globals->proc~destroy_jpl_ephemeris_splined proc~initialize_splinded_ephemeris jpl_ephemeris_splined%initialize_splinded_ephemeris proc~initialize_splinded_ephemeris->proc~initialize_globals

Source Code

    subroutine destroy_body_eph_interface(me)
        class(body_eph_interface),intent(inout) :: me
        if (associated(me%eph)) call me%eph%destroy()
        me%eph => null()
        if (allocated(me%w0)) deallocate(me%w0)
        me%inbvx = 0
    end subroutine destroy_body_eph_interface