hmap_frenet_sigma Function

public function hmap_frenet_sigma(sf, zeta) result(sigma)

sign function depending on zeta, if omnig=False, sigma=1 if omnig=True, sigma=+1 for 0<=zeta<=pi/nfp, and -1 for pi/nfp<zeta<2pi

Type Bound

t_hmap_frenet

Arguments

Type IntentOptional Attributes Name
class(t_hmap_frenet), intent(in) :: sf
real(kind=wp), intent(in) :: zeta

Return Value real(kind=wp)


Called by

proc~~hmap_frenet_sigma~~CalledByGraph proc~hmap_frenet_sigma t_hmap_frenet%hmap_frenet_sigma proc~hmap_frenet_eval t_hmap_frenet%hmap_frenet_eval proc~hmap_frenet_eval->proc~hmap_frenet_sigma proc~hmap_frenet_eval_dxdq t_hmap_frenet%hmap_frenet_eval_dxdq proc~hmap_frenet_eval_dxdq->proc~hmap_frenet_sigma proc~hmap_frenet_eval_gij t_hmap_frenet%hmap_frenet_eval_gij proc~hmap_frenet_eval_gij->proc~hmap_frenet_sigma proc~hmap_frenet_eval_gij_dq t_hmap_frenet%hmap_frenet_eval_gij_dq proc~hmap_frenet_eval_gij_dq->proc~hmap_frenet_sigma proc~hmap_frenet_eval_jh t_hmap_frenet%hmap_frenet_eval_Jh proc~hmap_frenet_eval_jh->proc~hmap_frenet_sigma proc~hmap_frenet_eval_jh_dq t_hmap_frenet%hmap_frenet_eval_Jh_dq proc~hmap_frenet_eval_jh_dq->proc~hmap_frenet_sigma proc~hmap_frenet_get_ddx_dqij t_hmap_frenet%hmap_frenet_get_ddx_dqij proc~hmap_frenet_get_ddx_dqij->proc~hmap_frenet_sigma proc~hmap_frenet_get_dx_dqi t_hmap_frenet%hmap_frenet_get_dx_dqi proc~hmap_frenet_get_dx_dqi->proc~hmap_frenet_sigma proc~hmap_frenet_init_aux hmap_frenet_init_aux proc~hmap_frenet_init_aux->proc~hmap_frenet_sigma proc~visufrenet VisuFrenet proc~visufrenet->proc~hmap_frenet_sigma interface~t_hmap_frenet_auxvar t_hmap_frenet_auxvar interface~t_hmap_frenet_auxvar->proc~hmap_frenet_init_aux proc~hmap_frenet_init_params hmap_frenet_init_params proc~hmap_frenet_init_params->proc~visufrenet proc~hmap_frenet_test hmap_frenet_test proc~hmap_frenet_init_params->proc~hmap_frenet_test proc~hmap_frenet_test->proc~hmap_frenet_eval proc~hmap_frenet_test->proc~hmap_frenet_eval_dxdq proc~hmap_frenet_test->proc~hmap_frenet_eval_gij proc~hmap_frenet_test->proc~hmap_frenet_eval_gij_dq proc~hmap_frenet_test->proc~hmap_frenet_eval_jh proc~hmap_frenet_test->proc~hmap_frenet_eval_jh_dq proc~hmap_frenet_test->proc~hmap_frenet_get_ddx_dqij proc~hmap_frenet_test->proc~hmap_frenet_get_dx_dqi proc~hmap_frenet_test->proc~hmap_frenet_init_aux interface~t_hmap_frenet t_hmap_frenet interface~t_hmap_frenet->proc~hmap_frenet_init_params proc~hmap_frenet_init hmap_frenet_init interface~t_hmap_frenet->proc~hmap_frenet_init proc~hmap_frenet_init->proc~hmap_frenet_init_params

Source Code

FUNCTION hmap_frenet_sigma(sf,zeta) RESULT(sigma)
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(t_hmap_frenet), INTENT(IN) :: sf
  REAL(wp)            , INTENT(IN) :: zeta
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                         :: sigma
!===================================================================================================================================
  sigma=MERGE(SIGN(1.0_wp,SIN(sf%nfp*zeta)),1.0_wp,sf%omnig)
END FUNCTION hmap_frenet_sigma