get0d_hdf5 Function

public function get0d_hdf5(cfg, sig) result(ok)

Arguments

Type IntentOptional Attributes Name
class(input_t), intent(in) :: cfg
real(kind=dp), intent(inout) :: sig

Return Value logical


Calls

proc~~get0d_hdf5~~CallsGraph proc~get0d_hdf5 get0d_hdf5 h5close_f h5close_f proc~get0d_hdf5->h5close_f h5dclose_f h5dclose_f proc~get0d_hdf5->h5dclose_f h5dopen_f h5dopen_f proc~get0d_hdf5->h5dopen_f h5dread_f h5dread_f proc~get0d_hdf5->h5dread_f h5fclose_f h5fclose_f proc~get0d_hdf5->h5fclose_f h5fopen_f h5fopen_f proc~get0d_hdf5->h5fopen_f h5ltget_dataset_info_f h5ltget_dataset_info_f proc~get0d_hdf5->h5ltget_dataset_info_f h5open_f h5open_f proc~get0d_hdf5->h5open_f proc~input_has_key input_t%input_has_key proc~get0d_hdf5->proc~input_has_key proc~input_str input_t%input_str proc~get0d_hdf5->proc~input_str get get proc~input_has_key->get proc~select_dict select_dict proc~input_has_key->proc~select_dict proc~input_str->proc~input_has_key proc~input_node input_t%input_node proc~input_str->proc~input_node proc~select_scalar select_scalar proc~input_str->proc~select_scalar proc~input_node->get proc~input_node->proc~select_dict proc~dictionary_traverse dictionary_traverse proc~input_node->proc~dictionary_traverse proc~dictionary_traverse->proc~dictionary_traverse get_dictionary get_dictionary proc~dictionary_traverse->get_dictionary proc~abort_if abort_if proc~dictionary_traverse->proc~abort_if

Called by

proc~~get0d_hdf5~~CalledByGraph proc~get0d_hdf5 get0d_hdf5 proc~input_dbl input_t%input_dbl proc~input_dbl->proc~get0d_hdf5 proc~channel_init_part1 channel_init_part1 proc~channel_init_part1->proc~input_dbl proc~signal_init signal_t%signal_init proc~channel_init_part1->proc~signal_init proc~circulator_init_part1 circulator_init_part1 proc~circulator_init_part1->proc~input_dbl proc~ffsrclink_init_part2 FFsrcLink_init_part2 proc~ffsrclink_init_part2->proc~input_dbl proc~friction_factor_blasius_init friction_factor_blasius_init proc~friction_factor_blasius_init->proc~input_dbl proc~friction_factor_central_spiral_init friction_factor_central_spiral_init proc~friction_factor_central_spiral_init->proc~input_dbl proc~friction_factor_katheder_init friction_factor_katheder_init proc~friction_factor_katheder_init->proc~input_dbl proc~fslink_init_part2 FSlink_init_part2 proc~fslink_init_part2->proc~input_dbl proc~hdf5_init hdf5_t%hdf5_init proc~hdf5_init->proc~input_dbl proc~junction_init_part2 junction_init_part2 proc~junction_init_part2->proc~input_dbl proc~material_copper_init material_copper_init proc~material_copper_init->proc~input_dbl proc~material_glass_epoxy_init material_glass_epoxy_init proc~material_glass_epoxy_init->proc~input_dbl proc~material_glass_kapton_glass_init material_glass_kapton_glass_init proc~material_glass_kapton_glass_init->proc~input_dbl proc~material_nb3sn_init material_nb3sn_init proc~material_nb3sn_init->proc~input_dbl proc~material_nbti_init material_nbti_init proc~material_nbti_init->proc~input_dbl proc~material_stainless_steel_init material_stainless_steel_init proc~material_stainless_steel_init->proc~input_dbl proc~mesh2d_init_part1 mesh2D_init_part1 proc~mesh2d_init_part1->proc~input_dbl proc~mesh2d_init_part1->proc~signal_init proc~nusselt_dbg_init nusselt_DBG_init proc~nusselt_dbg_init->proc~input_dbl proc~nusselt_pipe_init nusselt_pipe_init proc~nusselt_pipe_init->proc~input_dbl proc~signal_init->proc~input_dbl proc~sim_init simulation_t%sim_init proc~sim_init->proc~input_dbl proc~sim_init->proc~signal_init proc~solid_init_part1 solid_init_part1 proc~solid_init_part1->proc~input_dbl proc~solid_init_part1->proc~signal_init proc~strand_init_part1 strand_init_part1 proc~strand_init_part1->proc~input_dbl proc~strand_init_part1->proc~signal_init proc~boundary_init_part1 boundary_init_part1 proc~boundary_init_part1->proc~signal_init proc~set_friction_correlation set_friction_correlation proc~set_friction_correlation->proc~friction_factor_blasius_init proc~set_friction_correlation->proc~friction_factor_central_spiral_init proc~set_friction_correlation->proc~friction_factor_katheder_init proc~set_material set_material proc~set_material->proc~material_copper_init proc~set_material->proc~material_glass_epoxy_init proc~set_material->proc~material_glass_kapton_glass_init proc~set_material->proc~material_nb3sn_init proc~set_material->proc~material_nbti_init proc~set_material->proc~material_stainless_steel_init proc~set_nusselt_correlation set_nusselt_correlation proc~set_nusselt_correlation->proc~nusselt_dbg_init proc~set_nusselt_correlation->proc~nusselt_pipe_init program~reims_p reims_p program~reims_p->proc~channel_init_part1 program~reims_p->proc~circulator_init_part1 program~reims_p->proc~ffsrclink_init_part2 program~reims_p->proc~fslink_init_part2 program~reims_p->proc~junction_init_part2 program~reims_p->proc~mesh2d_init_part1 program~reims_p->proc~sim_init program~reims_p->proc~solid_init_part1 program~reims_p->proc~strand_init_part1 program~reims_p->proc~boundary_init_part1 proc~load_frictions load_frictions program~reims_p->proc~load_frictions proc~load_materials load_materials program~reims_p->proc~load_materials proc~load_nusselts load_nusselts program~reims_p->proc~load_nusselts proc~load_frictions->proc~set_friction_correlation proc~load_materials->proc~set_material proc~load_nusselts->proc~set_nusselt_correlation

Source Code

function get0d_hdf5(cfg, sig) result(ok)
    class(input_t), intent(in) :: cfg
    real(dp),    intent(inout) :: sig
    logical :: ok

    real(dp) :: sig_tmp(1)
    integer(hId_t) :: file_id, dSet_id
    integer(hSize_t) :: dims(7), type_size
    integer :: error, type_class
    character(:), allocatable :: dSet
    ok = .false.
    if(.not.cfg%has_key('h5')) return
    dSet = cfg%str('data')
    call h5Open_f(error)
    call h5fOpen_f(cfg%str('h5'), H5F_ACC_RDONLY_F, file_id, error)
    call h5ltGet_dataset_info_f(file_id, dSet, dims, type_class, type_size, error)
    call h5dOpen_f(file_id, dSet, dSet_id, error)
    call h5dRead_f(dSet_id, H5T_NATIVE_DOUBLE, sig_tmp, dims, error)
    call h5dClose_f(dSet_id, error)
    call h5fClose_f(file_id, error)
    call h5close_f(error)
    sig = sig_tmp(1)
    ok = .true.
end function get0d_hdf5