circulator_init_part1 Subroutine

public subroutine circulator_init_part1(me, krn, cfg)

Arguments

Type IntentOptional Attributes Name
type(circulator_t), intent(out) :: me
type(krn_t), intent(inout) :: krn
class(input_t), intent(in), pointer :: cfg

Calls

proc~~circulator_init_part1~~CallsGraph proc~circulator_init_part1 circulator_init_part1 proc~input_dbl input_t%input_dbl proc~circulator_init_part1->proc~input_dbl proc~krn_add krn_t%krn_add proc~circulator_init_part1->proc~krn_add 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~port_list_add port_list_t%port_list_add proc~krn_add->proc~port_list_add 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 interface~to_str to_str proc~port_list_add->interface~to_str proc~str_from_int str_from_int interface~to_str->proc~str_from_int proc~str_from_real str_from_real interface~to_str->proc~str_from_real 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~~circulator_init_part1~~CalledByGraph proc~circulator_init_part1 circulator_init_part1 program~reims_p reims_p program~reims_p->proc~circulator_init_part1

Source Code

subroutine circulator_init_part1(me,krn,cfg)
    type(circulator_t),   intent(out)   :: me
    type(krn_t),          intent(inout) :: krn
    class(input_t), pointer, intent(in) :: cfg

    integer :: nb_non_zeros_exp, nb_non_zeros_imp

    me%SubType = cfg%path
    me%mdot0 = cfg%dbl('m0')

    if(me%SubType=="compressor") me%dp0 = cfg%dbl('dp0')
     
    nb_non_zeros_exp=0
    nb_non_zeros_imp=2*Nb_VarC*Nb_VarC

    call krn%add('',0,nb_non_zeros_exp,nb_non_zeros_imp,0,0,0,0,0)
    
end subroutine circulator_init_part1