destroy_jpl_ephemeris_splined Subroutine

private subroutine destroy_jpl_ephemeris_splined(me)

Type Bound

jpl_ephemeris_splined

Arguments

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

Calls

proc~~destroy_jpl_ephemeris_splined~~CallsGraph proc~destroy_jpl_ephemeris_splined jpl_ephemeris_splined%destroy_jpl_ephemeris_splined proc~destroy_body_eph_interface body_eph_interface%destroy_body_eph_interface proc~destroy_jpl_ephemeris_splined->proc~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_jpl_ephemeris_splined~~CalledByGraph proc~destroy_jpl_ephemeris_splined jpl_ephemeris_splined%destroy_jpl_ephemeris_splined 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_jpl_ephemeris_splined(me)
        class(jpl_ephemeris_splined),intent(inout) :: me
        call me%earth_eph_interface%destroy()
        call me%sun_eph_interface%destroy()
        call me%ssb_eph_interface%destroy()
        call me%jupiter_eph_interface%destroy()
    end subroutine destroy_jpl_ephemeris_splined