rpos_eqfile_cart Function

public pure function rpos_eqfile_cart(self, r, theta) result(rpos)

Type Bound

abstract_eqfile_cart_geo_type

Arguments

Type IntentOptional Attributes Name
class(abstract_eqfile_cart_geo_type), intent(in) :: self
real, intent(in) :: r
real, intent(in) :: theta

Return Value real


Contents

Source Code

rpos_eqfile_cart

Source Code

  pure real function rpos_eqfile_cart (self, r, theta) result(rpos)
    implicit none
    class(abstract_eqfile_cart_geo_type), intent(in) :: self
    real, intent (in) :: r, theta
    rpos = self%R_mag + r * cos(theta)
  end function rpos_eqfile_cart