set_accel Subroutine

  subroutine set_accel ( this, at, ar, atheta, aphi, udota )
  !! Routine that sets the 4-acceleration and the inner product of the
  !! 4-velovity and the self-force.

    implicit none

    class(self_force), intent(inout) :: this
    !! The routine is called on this [[self_force]] object.
    real(wp), intent(in) :: at
    !! The \(t\)-component of the 4-acceleration, \(a^t\).
    real(wp), intent(in) :: ar
    !! The \(r\)-component of the 4-acceleration, \(a^r\).
    real(wp), intent(in) :: atheta
    !! The \(\theta\)-component of the 4-acceleration, \(a^{\theta}\).
    real(wp), intent(in) :: aphi
    !! The \(\phi\)-component of the 4-acceleration, \(a^{\phi}\).
    real(wp), intent(in) :: udota
    !! The inner product of the 4-velocity and the self-force,
    !! \(u^{\mu}f_{\mu}\).

    this%a = (/ at, ar, atheta, aphi /)
    this%udota = udota
  end subroutine set_accel