set_daccel_dt Subroutine

  subroutine set_daccel_dt ( this, dat_dt, dar_dt, datheta_dt, daphi_dt )
  !! Routine that sets the coordinate time derivative of the 4-acceleration.

    implicit none

    class(self_force), intent(inout) :: this
    !! The routine is called on this [[self_force]] object.
    real(wp), intent(in) :: dat_dt
    !! The time derivative of the \(t\)-component of the 4-acceleration,
    !! \(\dot{a}^t\).
    real(wp), intent(in) :: dar_dt
    !! The time derivative of the \(r\)-component of the 4-acceleration,
    !! \(\dot{a}^r\).
    real(wp), intent(in) :: datheta_dt
    !! The time derivative of the \(\theta\)-component of the 4-acceleration,
    !! \(\dot{a}^{\theta}\).
    real(wp), intent(in) :: daphi_dt
    !! The time derivative of the \(\phi\)-component of the 4-acceleration,
    !! \(\dot{a}^{\phi}\).

    this%da_dt = (/ dat_dt, dar_dt, datheta_dt, daphi_dt /)
  end subroutine set_daccel_dt