set_tdc Subroutine

  subroutine set_tdc ( this, r, drdt, d2rdt2 )
  ! Routine that sets 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(in) :: r
    !! The radial coordinate, \(r\) (in Schwarzschild coordinates).
    real(wp), intent(in) :: drdt
    !! The time derivative of the radial coordinate, \(\dot{r}\).
    real(wp), intent(in) :: d2rdt2
    !! The second time derivative of the radial coordinate, \(\ddot{r}\).

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