get_tdc Subroutine

  subroutine get_tdc ( this, r, drdt, d2rdt2 )
  ! Routine that gets the information needed by the time dependent time object.
    class(tdc_orbit), intent(inout) :: this
    !! The routine is called on this [[tdc_orbit]] object.

    real(wp), intent(out) :: r
    !! The radial coordinate, \(r\) (in Schwarzschild coordinates).
    real(wp), intent(out) :: drdt
    !! The time derivative of the radial coordinate, \(\dot{r}\).
    real(wp), intent(out) :: d2rdt2
    !! The second time derivative of the radial coordinate, \(\ddot{r}\).

    r = this%r
    drdt = this%drdt
    d2rdt2 = this%d2rdt2
  end subroutine get_tdc