hmap_RZ_init Function

public function hmap_RZ_init() result(sf)

initialize the type hmap_RZ, no additional readin from parameterfile needed.

Arguments

None

Return Value type(t_hmap_RZ)

self


Calls

proc~~hmap_rz_init~~CallsGraph proc~hmap_rz_init hmap_RZ_init proc~hmap_rz_test hmap_RZ_test proc~hmap_rz_init->proc~hmap_rz_test swrite swrite proc~hmap_rz_init->swrite proc~hmap_rz_test->swrite proc~hmap_rz_eval t_hmap_RZ%hmap_RZ_eval proc~hmap_rz_test->proc~hmap_rz_eval proc~hmap_rz_eval_all t_hmap_RZ%hmap_RZ_eval_all proc~hmap_rz_test->proc~hmap_rz_eval_all proc~hmap_rz_eval_dxdq t_hmap_RZ%hmap_RZ_eval_dxdq proc~hmap_rz_test->proc~hmap_rz_eval_dxdq proc~hmap_rz_eval_gij t_hmap_RZ%hmap_RZ_eval_gij proc~hmap_rz_test->proc~hmap_rz_eval_gij proc~hmap_rz_eval_gij_dq t_hmap_RZ%hmap_RZ_eval_gij_dq proc~hmap_rz_test->proc~hmap_rz_eval_gij_dq proc~hmap_rz_eval_jh t_hmap_RZ%hmap_RZ_eval_Jh proc~hmap_rz_test->proc~hmap_rz_eval_jh proc~hmap_rz_eval_jh_dq t_hmap_RZ%hmap_RZ_eval_Jh_dq proc~hmap_rz_test->proc~hmap_rz_eval_jh_dq proc~hmap_rz_init_aux hmap_RZ_init_aux proc~hmap_rz_test->proc~hmap_rz_init_aux proc~hmap_rz_eval_all_e hmap_RZ_eval_all_e proc~hmap_rz_eval_all->proc~hmap_rz_eval_all_e

Called by

proc~~hmap_rz_init~~CalledByGraph proc~hmap_rz_init hmap_RZ_init interface~t_hmap_rz t_hmap_RZ interface~t_hmap_rz->proc~hmap_rz_init

Source Code

FUNCTION hmap_RZ_init() RESULT(sf)
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  TYPE(t_hmap_RZ)  :: sf !! self
!===================================================================================================================================
  SWRITE(UNIT_stdOut,'(4X,A)')'INIT HMAP :: TORUS WITH X1:=R, X2:=Z, zeta := toroidal angle  ...'

  sf%initialized=.TRUE.
  SWRITE(UNIT_stdOut,'(4X,A)')'...DONE.'
  IF(.NOT.test_called) CALL hmap_RZ_test(sf)

END FUNCTION hmap_RZ_init