hmap_knot_eval_Rl Function

public pure function hmap_knot_eval_Rl(sf, q_in) result(Rl_out)

evaluate the effective major radius coordinate Rl(q)

Type Bound

t_hmap_knot

Arguments

Type IntentOptional Attributes Name
class(t_hmap_knot), intent(in) :: sf
real(kind=wp), intent(in) :: q_in(3)

Return Value real(kind=wp)


Called by

proc~~hmap_knot_eval_rl~~CalledByGraph proc~hmap_knot_eval_rl t_hmap_knot%hmap_knot_eval_Rl proc~hmap_knot_eval t_hmap_knot%hmap_knot_eval proc~hmap_knot_eval->proc~hmap_knot_eval_rl proc~hmap_knot_eval_dxdq t_hmap_knot%hmap_knot_eval_dxdq proc~hmap_knot_eval_dxdq->proc~hmap_knot_eval_rl proc~hmap_knot_eval_gij t_hmap_knot%hmap_knot_eval_gij proc~hmap_knot_eval_gij->proc~hmap_knot_eval_rl proc~hmap_knot_eval_gij_dq t_hmap_knot%hmap_knot_eval_gij_dq proc~hmap_knot_eval_gij_dq->proc~hmap_knot_eval_rl proc~hmap_knot_eval_jh t_hmap_knot%hmap_knot_eval_Jh proc~hmap_knot_eval_jh->proc~hmap_knot_eval_rl proc~hmap_knot_get_ddx_dqij t_hmap_knot%hmap_knot_get_ddx_dqij proc~hmap_knot_get_ddx_dqij->proc~hmap_knot_eval_rl proc~hmap_knot_get_dx_dqi t_hmap_knot%hmap_knot_get_dx_dqi proc~hmap_knot_get_dx_dqi->proc~hmap_knot_eval_rl proc~hmap_knot_test hmap_knot_test proc~hmap_knot_test->proc~hmap_knot_eval proc~hmap_knot_test->proc~hmap_knot_eval_dxdq proc~hmap_knot_test->proc~hmap_knot_eval_gij proc~hmap_knot_test->proc~hmap_knot_eval_gij_dq proc~hmap_knot_test->proc~hmap_knot_eval_jh proc~hmap_knot_test->proc~hmap_knot_get_ddx_dqij proc~hmap_knot_test->proc~hmap_knot_get_dx_dqi proc~hmap_knot_init_params hmap_knot_init_params proc~hmap_knot_init_params->proc~hmap_knot_test interface~t_hmap_knot t_hmap_knot interface~t_hmap_knot->proc~hmap_knot_init_params proc~hmap_knot_init hmap_knot_init interface~t_hmap_knot->proc~hmap_knot_init proc~hmap_knot_init->proc~hmap_knot_init_params

Source Code

PURE FUNCTION hmap_knot_eval_Rl( sf ,q_in) RESULT(Rl_out)
! MODULES
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  REAL(wp)          , INTENT(IN) :: q_in(3)
  CLASS(t_hmap_knot), INTENT(IN) :: sf
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                       :: Rl_out
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
 !   Rl = R0 + delta * cos(l*zeta) + q1

 ASSOCIATE(q1=>q_in(1),zeta=>q_in(3))
   Rl_out = sf%R0 + sf%delta*COS(sf%l*zeta) + q1
 END ASSOCIATE
END FUNCTION hmap_knot_eval_Rl