rcenter_eqfile Function

public function rcenter_eqfile(self, rp) result(rcenter)

Uses

Return the major radius of the centre of a given flux surface

Type Bound

abstract_eqfile_geo_type

Arguments

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

Return Value real


Contents

Source Code

rcenter_eqfile

Source Code

  real function rcenter_eqfile (self, rp) result(rcenter)
    use splines, only: splint
    implicit none
    class(abstract_eqfile_geo_type), intent(in) :: self
    real, intent(in) :: rp
    rcenter = splint(rp, self%rcenter_spl)
  end function rcenter_eqfile