self_find_boozer_angles Subroutine

private subroutine self_find_boozer_angles(sf, tz_dim, tz_boozer, thetzeta_out)

interface to find_boozer_angles from the class t_sfl_boozer

Type Bound

t_sfl_boozer

Arguments

Type IntentOptional Attributes Name
class(t_sfl_boozer), intent(in) :: sf
integer, intent(in) :: tz_dim
real(kind=wp), intent(in) :: tz_boozer(2,tz_dim)
real(kind=wp), intent(out) :: thetzeta_out(2,tz_dim,sf%nrho)

theta,zeta position in original angles, for given boozer angles

Calls

proc~~self_find_boozer_angles~~CallsGraph proc~self_find_boozer_angles t_sfl_boozer%self_find_boozer_angles proc~find_boozer_angles find_boozer_angles proc~self_find_boozer_angles->proc~find_boozer_angles __perfoff __perfoff proc~find_boozer_angles->__perfoff __perfon __perfon proc~find_boozer_angles->__perfon interface~progressbar ProgressBar proc~find_boozer_angles->interface~progressbar proc~fbase_evaldof_xn t_fBase%fBase_evalDOF_xn proc~find_boozer_angles->proc~fbase_evaldof_xn proc~get_booz_newton get_booz_newton proc~find_boozer_angles->proc~get_booz_newton swrite swrite proc~find_boozer_angles->swrite interface~progressbar->interface~progressbar __matvec_n __matvec_n proc~fbase_evaldof_xn->__matvec_n proc~fbase_eval_xn t_fBase%fBase_eval_xn proc~fbase_evaldof_xn->proc~fbase_eval_xn interface~newtonroot2d NewtonRoot2D proc~get_booz_newton->interface~newtonroot2d interface~newtonroot2d->interface~newtonroot2d

Called by

proc~~self_find_boozer_angles~~CalledByGraph proc~self_find_boozer_angles t_sfl_boozer%self_find_boozer_angles proc~buildtransform_sfl t_transform_sfl%BuildTransform_SFL proc~buildtransform_sfl->proc~self_find_boozer_angles

Source Code

SUBROUTINE self_find_boozer_angles(sf,tz_dim,tz_boozer,thetzeta_out)
  ! MODULES
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(t_sfl_boozer), INTENT(IN) :: sf
  INTEGER             ,INTENT(IN) :: tz_dim                !< size of the list of in thetstar,zetastar
  REAL(wp)            ,INTENT(IN) :: tz_boozer(2,tz_dim) !< theta,zeta positions in boozer angle (same for all rho)
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)  ,INTENT(OUT)   :: thetzeta_out(2,tz_dim,sf%nrho)  !! theta,zeta position in original angles, for given boozer angles
!===================================================================================================================================
  CALL find_boozer_angles(sf%nrho,sf%iota,sf%nu_fbase,sf%lambda,sf%nu,tz_dim,tz_boozer,thetzeta_out)
END SUBROUTINE self_find_boozer_angles