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

Source Code

    subroutine destroy_body_eph(me)
        class(body_eph),intent(out) :: me
    end subroutine destroy_body_eph