destroy_body_eph Subroutine

private subroutine destroy_body_eph(me)

Type Bound

body_eph

Arguments

Type IntentOptional Attributes Name
class(body_eph), intent(out) :: me

Called by

proc~~destroy_body_eph~~CalledByGraph proc~destroy_body_eph body_eph%destroy_body_eph proc~destroy_body_eph_interface body_eph_interface%destroy_body_eph_interface proc~destroy_body_eph_interface->proc~destroy_body_eph 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(me)
        class(body_eph),intent(out) :: me
    end subroutine destroy_body_eph