Processing math: 100%

set_force Subroutine

  1. module_self_force.f90
  2. self_force_base
  3. set_force

public subroutine set_force(this, ft, fr, ftheta, fphi)

Routine that sets the self-force variable.

Arguments

Type IntentOptional AttributesName
class(self_force), intent(inout) :: this

The routine is called on this self_force object.
real(kind=wp), intent(in) :: ft

The t-component of the self-force, ft.
real(kind=wp), intent(in) :: fr

The r-component of the self-force, fr.
real(kind=wp), intent(in) :: ftheta

The θ-component of the self-force, fθ.
real(kind=wp), intent(in) :: fphi

The ϕ-component of the self-force, fϕ.

Contents

Source Code

set_force

Source Code

  subroutine set_force ( this, ft, fr, ftheta, fphi )
  !! Routine that sets the self-force variable.

    implicit none

    class(self_force), intent(inout) :: this
    !! The routine is called on this [[self_force]] object.
    real(wp), intent(in) :: ft
    !! The \(t\)-component of the self-force, \(f_t\).
    real(wp), intent(in) :: fr
    !! The \(r\)-component of the self-force, \(f_r\).
    real(wp), intent(in) :: ftheta
    !! The \(\theta\)-component of the self-force, \(f_{\theta}\).
    real(wp), intent(in) :: fphi
    !! The \(\phi\)-component of the self-force, \(f_{\phi}\).

    this%f = (/ ft, fr, ftheta, fphi /)
  end subroutine set_force