rcenter Function

private function rcenter(self, rp)

Uses

FIXME : Add documentation

Type Bound

eeq_base_type

Arguments

Type IntentOptional Attributes Name
class(eeq_base_type), intent(in) :: self
real, intent(in) :: rp

Return Value real


Contents

Source Code

rcenter

Source Code

  real function rcenter (self, rp)
    use constants, only: pi
    implicit none
    class(eeq_base_type), intent(in) :: self
    real, intent (in) :: rp
    rcenter = self%R_mag + 0.5 * (self%rfun(rp, 0.) - self%rfun(rp, pi))
  end function rcenter