hmap_frenet_init Function

public function hmap_frenet_init() result(sf)

Uses

  • proc~~hmap_frenet_init~~UsesGraph proc~hmap_frenet_init hmap_frenet_init module~modgvec_readintools MODgvec_ReadInTools proc~hmap_frenet_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_frenet, reading from parameterfile and then call init_params

Arguments

None

Return Value type(t_hmap_frenet)

self


Calls

proc~~hmap_frenet_init~~CallsGraph proc~hmap_frenet_init hmap_frenet_init getint getint proc~hmap_frenet_init->getint getlogical getlogical proc~hmap_frenet_init->getlogical getrealarray getrealarray proc~hmap_frenet_init->getrealarray proc~hmap_frenet_init_params hmap_frenet_init_params proc~hmap_frenet_init->proc~hmap_frenet_init_params swrite swrite proc~hmap_frenet_init->swrite proc~hmap_frenet_init_params->swrite proc~checkzerocurvature checkZeroCurvature proc~hmap_frenet_init_params->proc~checkzerocurvature proc~hmap_frenet_test hmap_frenet_test proc~hmap_frenet_init_params->proc~hmap_frenet_test proc~visufrenet VisuFrenet proc~hmap_frenet_init_params->proc~visufrenet interface~cross CROSS proc~checkzerocurvature->interface~cross proc~hmap_frenet_eval_x0_fromrz t_hmap_frenet%hmap_frenet_eval_X0_fromRZ proc~checkzerocurvature->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_test->swrite proc~hmap_frenet_eval t_hmap_frenet%hmap_frenet_eval proc~hmap_frenet_test->proc~hmap_frenet_eval proc~hmap_frenet_eval_all t_hmap_frenet%hmap_frenet_eval_all proc~hmap_frenet_test->proc~hmap_frenet_eval_all proc~hmap_frenet_eval_dxdq t_hmap_frenet%hmap_frenet_eval_dxdq proc~hmap_frenet_test->proc~hmap_frenet_eval_dxdq proc~hmap_frenet_eval_gij t_hmap_frenet%hmap_frenet_eval_gij proc~hmap_frenet_test->proc~hmap_frenet_eval_gij proc~hmap_frenet_eval_gij_dq t_hmap_frenet%hmap_frenet_eval_gij_dq proc~hmap_frenet_test->proc~hmap_frenet_eval_gij_dq proc~hmap_frenet_eval_jh t_hmap_frenet%hmap_frenet_eval_Jh proc~hmap_frenet_test->proc~hmap_frenet_eval_jh proc~hmap_frenet_eval_jh_dq t_hmap_frenet%hmap_frenet_eval_Jh_dq proc~hmap_frenet_test->proc~hmap_frenet_eval_jh_dq proc~hmap_frenet_get_ddx_dqij t_hmap_frenet%hmap_frenet_get_ddx_dqij proc~hmap_frenet_test->proc~hmap_frenet_get_ddx_dqij proc~hmap_frenet_get_dx_dqi t_hmap_frenet%hmap_frenet_get_dx_dqi proc~hmap_frenet_test->proc~hmap_frenet_get_dx_dqi proc~hmap_frenet_init_aux hmap_frenet_init_aux proc~hmap_frenet_test->proc~hmap_frenet_init_aux proc~visufrenet->interface~cross proc~visufrenet->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_sigma t_hmap_frenet%hmap_frenet_sigma proc~visufrenet->proc~hmap_frenet_sigma proc~writedatatonetcdf WriteDataToNETCDF proc~visufrenet->proc~writedatatonetcdf proc~writedatatovtk WriteDataToVTK proc~visufrenet->proc~writedatatovtk writedatatocsv writedatatocsv proc~visufrenet->writedatatocsv interface~cross->interface~cross proc~hmap_frenet_eval->interface~cross proc~hmap_frenet_eval->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_eval->proc~hmap_frenet_sigma proc~hmap_frenet_eval_all_e hmap_frenet_eval_all_e proc~hmap_frenet_eval_all->proc~hmap_frenet_eval_all_e proc~hmap_frenet_eval_dxdq->interface~cross proc~hmap_frenet_eval_dxdq->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_eval_dxdq->proc~hmap_frenet_sigma proc~hmap_frenet_eval_gij->interface~cross proc~hmap_frenet_eval_gij->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_eval_gij->proc~hmap_frenet_sigma proc~hmap_frenet_eval_gij_dq->interface~cross proc~hmap_frenet_eval_gij_dq->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_eval_gij_dq->proc~hmap_frenet_sigma proc~hmap_frenet_eval_jh->interface~cross proc~hmap_frenet_eval_jh->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_eval_jh->proc~hmap_frenet_sigma proc~hmap_frenet_eval_jh_dq->interface~cross proc~hmap_frenet_eval_jh_dq->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_eval_jh_dq->proc~hmap_frenet_sigma proc~eval_fourier1d eval_fourier1d proc~hmap_frenet_eval_x0_fromrz->proc~eval_fourier1d proc~hmap_frenet_get_ddx_dqij->interface~cross proc~hmap_frenet_get_ddx_dqij->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_get_ddx_dqij->proc~hmap_frenet_sigma proc~hmap_frenet_get_dx_dqi->interface~cross proc~hmap_frenet_get_dx_dqi->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_get_dx_dqi->proc~hmap_frenet_sigma proc~hmap_frenet_init_aux->interface~cross proc~hmap_frenet_init_aux->proc~hmap_frenet_eval_x0_fromrz proc~hmap_frenet_init_aux->proc~hmap_frenet_sigma proc~ncfile_def_dim t_ncfile%ncfile_def_dim proc~writedatatonetcdf->proc~ncfile_def_dim proc~ncfile_end_def_mode t_ncfile%ncfile_end_def_mode proc~writedatatonetcdf->proc~ncfile_end_def_mode proc~ncfile_init ncfile_init proc~writedatatonetcdf->proc~ncfile_init proc~ncfile_put_array t_ncfile%ncfile_put_array proc~writedatatonetcdf->proc~ncfile_put_array proc~ncfile_put_attributes_char t_ncfile%ncfile_put_attributes_char proc~writedatatonetcdf->proc~ncfile_put_attributes_char proc~ncfile_put_char t_ncfile%ncfile_put_char proc~writedatatonetcdf->proc~ncfile_put_char interface~getfreeunit GETFREEUNIT proc~writedatatovtk->interface~getfreeunit sizeof_f sizeof_f proc~writedatatovtk->sizeof_f interface~getfreeunit->interface~getfreeunit nf90_def_dim nf90_def_dim proc~ncfile_def_dim->nf90_def_dim proc~mpi_check_single_access mpi_check_single_access proc~ncfile_def_dim->proc~mpi_check_single_access proc~ncfile_handle_error t_ncfile%ncfile_handle_error proc~ncfile_def_dim->proc~ncfile_handle_error nf90_enddef nf90_enddef proc~ncfile_end_def_mode->nf90_enddef proc~ncfile_end_def_mode->proc~mpi_check_single_access proc~ncfile_end_def_mode->proc~ncfile_handle_error proc~ncfile_init->proc~mpi_check_single_access proc~ncfile_openfile t_ncfile%ncfile_openfile proc~ncfile_init->proc~ncfile_openfile nf90_def_var nf90_def_var proc~ncfile_put_array->nf90_def_var nf90_inq_varid nf90_inq_varid proc~ncfile_put_array->nf90_inq_varid nf90_put_var nf90_put_var proc~ncfile_put_array->nf90_put_var proc~ncfile_put_array->proc~mpi_check_single_access proc~ncfile_put_array->proc~ncfile_handle_error proc~ncfile_put_array->proc~ncfile_openfile proc~ncfile_put_attributes_char->nf90_inq_varid nf90_put_att nf90_put_att proc~ncfile_put_attributes_char->nf90_put_att proc~ncfile_put_attributes_char->proc~mpi_check_single_access proc~ncfile_put_attributes_char->proc~ncfile_handle_error proc~ncfile_put_char->nf90_def_var proc~ncfile_put_char->nf90_inq_varid proc~ncfile_put_char->nf90_put_var proc~ncfile_put_char->proc~mpi_check_single_access proc~ncfile_put_char->proc~ncfile_handle_error proc~ncfile_handle_error->proc~mpi_check_single_access nf90_strerror nf90_strerror proc~ncfile_handle_error->nf90_strerror proc~ncfile_openfile->proc~mpi_check_single_access proc~ncfile_openfile->proc~ncfile_handle_error nf90_create nf90_create proc~ncfile_openfile->nf90_create nf90_open nf90_open proc~ncfile_openfile->nf90_open

Called by

proc~~hmap_frenet_init~~CalledByGraph proc~hmap_frenet_init hmap_frenet_init interface~t_hmap_frenet t_hmap_frenet interface~t_hmap_frenet->proc~hmap_frenet_init

Source Code

FUNCTION hmap_frenet_init() RESULT(sf)
  ! MODULES
  USE MODgvec_ReadInTools, ONLY: GETLOGICAL,GETINT, GETREALARRAY
  IMPLICIT NONE
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! INPUT VARIABLES
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! OUTPUT VARIABLES
    TYPE(t_hmap_frenet) :: sf !! self
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! LOCAL VARIABLES
    INTEGER :: nfp,n_max,nvisu
    REAL(wp),ALLOCATABLE :: Rc(:),Rs(:),Zc(:),Zs(:)
    LOGICAL :: omnig
  !===================================================================================================================================
    SWRITE(UNIT_stdOut,'(4X,A)')'INIT HMAP :: FRENET FRAME OF A CLOSED CURVE . GET PARAMETERS:'

    nfp   = GETINT("hmap_nfp")
    n_max = GETINT("hmap_n_max")
    nvisu = GETINT("hmap_nvisu",-1)

    ALLOCATE(Rc(0:n_max)) ; Rc=0.0_wp ; Rc=GETREALARRAY("hmap_rc",n_max+1,Rc)
    ALLOCATE(Rs(0:n_max)) ; Rs=0.0_wp ; Rs=GETREALARRAY("hmap_rs",n_max+1,Rs)
    ALLOCATE(Zc(0:n_max)) ; Zc=0.0_wp ; Zc=GETREALARRAY("hmap_zc",n_max+1,Zc)
    ALLOCATE(Zs(0:n_max)) ; Zs=0.0_wp ; Zs=GETREALARRAY("hmap_zs",n_max+1,Zs)

    omnig=GETLOGICAL("hmap_omnig",.FALSE.) !omnigenity


    sf=hmap_frenet_init_params(nfp,n_max,nvisu,Rc,Rs,Zc,Zs,omnig)
    DEALLOCATE(rc,rs,zc,zs)
  END FUNCTION hmap_frenet_init