nusselt_pipe_init Subroutine

public subroutine nusselt_pipe_init(cfg, c_pt)

Arguments

Type IntentOptional Attributes Name
class(input_t), intent(in), target :: cfg
type(c_ptr), intent(out) :: c_pt

Calls

proc~~nusselt_pipe_init~~CallsGraph proc~nusselt_pipe_init nusselt_pipe_init proc~input_dbl input_t%input_dbl proc~nusselt_pipe_init->proc~input_dbl proc~continue_if continue_if proc~input_dbl->proc~continue_if proc~get0d_hdf5 get0d_hdf5 proc~input_dbl->proc~get0d_hdf5 proc~input_has_key input_t%input_has_key proc~input_dbl->proc~input_has_key proc~input_node input_t%input_node proc~input_dbl->proc~input_node to_real to_real proc~input_dbl->to_real proc~get0d_hdf5->proc~input_has_key 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_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_node->get proc~dictionary_traverse dictionary_traverse proc~input_node->proc~dictionary_traverse proc~input_node->proc~select_dict 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 proc~input_str->proc~input_has_key proc~input_str->proc~input_node proc~select_scalar select_scalar proc~input_str->proc~select_scalar

Called by

proc~~nusselt_pipe_init~~CalledByGraph proc~nusselt_pipe_init nusselt_pipe_init proc~set_nusselt_correlation set_nusselt_correlation proc~set_nusselt_correlation->proc~nusselt_pipe_init proc~load_nusselts load_nusselts proc~load_nusselts->proc~set_nusselt_correlation program~reims_p reims_p program~reims_p->proc~load_nusselts

Source Code

    subroutine nusselt_pipe_init(cfg,c_pt)  
        class(input_t), target, intent(in) :: cfg
        type(c_ptr), intent(out) :: c_pt
        type(pipe_cfg_t), pointer :: pipe_ptr ! fortran pointer
  
        allocate(pipe_ptr)
        pipe_ptr%a = cfg%dbl('a',0.023_dp)
        pipe_ptr%b = cfg%dbl('b',0.8_dp)
        pipe_ptr%c = cfg%dbl('c',0.4_dp)

        c_pt = c_loc(pipe_ptr) ! translates fortran pointer to C pointer
    end subroutine nusselt_pipe_init