hmap_knot_init Function

public function hmap_knot_init() result(sf)

Uses

  • proc~~hmap_knot_init~~UsesGraph proc~hmap_knot_init hmap_knot_init module~modgvec_readintools MODgvec_ReadInTools proc~hmap_knot_init->module~modgvec_readintools module~modgvec_globals MODgvec_Globals module~modgvec_readintools->module~modgvec_globals iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env

initialize the type hmap_knot, reading from parameter file and then call init_params

Arguments

None

Return Value type(t_hmap_knot)

self


Calls

proc~~hmap_knot_init~~CallsGraph proc~hmap_knot_init hmap_knot_init getintarray getintarray proc~hmap_knot_init->getintarray getreal getreal proc~hmap_knot_init->getreal proc~hmap_knot_init_params hmap_knot_init_params proc~hmap_knot_init->proc~hmap_knot_init_params swrite swrite proc~hmap_knot_init->swrite proc~hmap_knot_init_params->swrite proc~hmap_knot_test hmap_knot_test proc~hmap_knot_init_params->proc~hmap_knot_test proc~hmap_knot_test->swrite proc~hmap_knot_eval t_hmap_knot%hmap_knot_eval proc~hmap_knot_test->proc~hmap_knot_eval proc~hmap_knot_eval_all t_hmap_knot%hmap_knot_eval_all proc~hmap_knot_test->proc~hmap_knot_eval_all proc~hmap_knot_eval_dxdq t_hmap_knot%hmap_knot_eval_dxdq proc~hmap_knot_test->proc~hmap_knot_eval_dxdq proc~hmap_knot_eval_gij t_hmap_knot%hmap_knot_eval_gij proc~hmap_knot_test->proc~hmap_knot_eval_gij proc~hmap_knot_eval_gij_dq t_hmap_knot%hmap_knot_eval_gij_dq proc~hmap_knot_test->proc~hmap_knot_eval_gij_dq proc~hmap_knot_eval_jh t_hmap_knot%hmap_knot_eval_Jh proc~hmap_knot_test->proc~hmap_knot_eval_jh proc~hmap_knot_eval_jh_dq t_hmap_knot%hmap_knot_eval_Jh_dq proc~hmap_knot_test->proc~hmap_knot_eval_jh_dq proc~hmap_knot_get_ddx_dqij t_hmap_knot%hmap_knot_get_ddx_dqij proc~hmap_knot_test->proc~hmap_knot_get_ddx_dqij proc~hmap_knot_get_dx_dqi t_hmap_knot%hmap_knot_get_dx_dqi proc~hmap_knot_test->proc~hmap_knot_get_dx_dqi proc~hmap_knot_init_aux hmap_knot_init_aux proc~hmap_knot_test->proc~hmap_knot_init_aux proc~hmap_knot_eval_rl t_hmap_knot%hmap_knot_eval_Rl proc~hmap_knot_eval->proc~hmap_knot_eval_rl proc~hmap_knot_eval_zl t_hmap_knot%hmap_knot_eval_Zl proc~hmap_knot_eval->proc~hmap_knot_eval_zl proc~hmap_knot_eval_all_e hmap_knot_eval_all_e proc~hmap_knot_eval_all->proc~hmap_knot_eval_all_e proc~hmap_knot_eval_dxdq->proc~hmap_knot_eval_rl proc~hmap_knot_eval_gij->proc~hmap_knot_eval_rl proc~hmap_knot_eval_gij_dq->proc~hmap_knot_eval_rl proc~hmap_knot_eval_jh->proc~hmap_knot_eval_rl proc~hmap_knot_get_ddx_dqij->proc~hmap_knot_eval_rl proc~hmap_knot_get_dx_dqi->proc~hmap_knot_eval_rl

Called by

proc~~hmap_knot_init~~CalledByGraph proc~hmap_knot_init hmap_knot_init interface~t_hmap_knot t_hmap_knot interface~t_hmap_knot->proc~hmap_knot_init

Source Code

FUNCTION hmap_knot_init() RESULT(sf)
  ! MODULES
    USE MODgvec_ReadInTools, ONLY: GETINTARRAY, GETREAL
    IMPLICIT NONE
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! OUTPUT VARIABLES
    TYPE(t_hmap_knot) :: sf !! self
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! LOCAL VARIABLES
    INTEGER                           :: knot_kl(1:2)         !parameters of the (k,l)-torus
    REAL(wp)                          :: knot_R0, knot_delta    !major radius and shift
  !===================================================================================================================================
    SWRITE(UNIT_stdOut,'(4X,A)')'INIT HMAP :: KNOT ON A (k,l)-TORUS, GET PARAMETERS:'

    knot_kl=GETINTARRAY("hmap_knot_kl",2,proposal=(/2,3/))

    knot_R0=GETREAL("hmap_knot_major_radius",1.0_wp)


    knot_delta=GETREAL("hmap_knot_delta_shift",0.4_wp)

    sf=hmap_knot_init_params(knot_kl,knot_R0,knot_delta)
  END FUNCTION hmap_knot_init