Routine that gets the 4-acceleration.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(self_force), | intent(inout) | :: | this | The routine is called on this self_force object. |
||
real(kind=wp), | intent(out), | dimension(4) | :: | accel | On return this 1d array contains the 4 components of the 4-acceleration, . |
subroutine get_accel ( this, accel )
!! Routine that gets the 4-acceleration.
implicit none
class(self_force), intent(inout) :: this
!! The routine is called on this [[self_force]] object.
real(wp), dimension(4), intent(out) :: accel
!! On return this 1d array contains the 4 components of the 4-acceleration,
!! \((a^t,a^r,a^{\theta},a^{\phi})\).
accel = this%a
end subroutine get_accel