get_booz_newton_FR Function

private function get_booz_newton_FR(sf, x) result(FF)

Target function for finding the logical angle for given boozer angles

Type Bound

t_newton_Root2D_boozer

Arguments

Type IntentOptional Attributes Name
class(t_newton_Root2D_boozer), intent(in) :: sf
real(kind=wp), intent(in) :: x(2)

Return Value real(kind=wp), (2)


Calls

proc~~get_booz_newton_fr~~CallsGraph proc~get_booz_newton_fr t_newton_Root2D_boozer%get_booz_newton_FR proc~fbase_eval t_fBase%fBase_eval proc~get_booz_newton_fr->proc~fbase_eval proc~fbase_eval_xn t_fBase%fBase_eval_xn proc~fbase_eval->proc~fbase_eval_xn

Source Code

FUNCTION get_booz_newton_FR(sf, x) RESULT(FF)
  IMPLICIT NONE
  CLASS(t_newton_Root2D_boozer), INTENT(IN) :: sf
  REAL(wp), INTENT(IN) :: x(2) ! xiter
  REAL(wp) :: FF(2) !two functions of x1,x2 to find root of
  REAL(wp),DIMENSION(sf%AB_fbase_in%modes) :: base_x

  base_x = sf%AB_fbase_in%eval(0, x) !base evaluation

  FF(1) = x(1) - sf%x0(1) + DOT_PRODUCT(base_x, sf%A_in)
  FF(2) = x(2) - sf%x0(2) + DOT_PRODUCT(base_x, sf%B_in)
END FUNCTION get_booz_newton_FR