get_string_array Subroutine

private subroutine get_string_array(cfg, var_name, char_data)

Get a character array of a given name

Arguments

Type IntentOptional Attributes Name
type(CFG_t), intent(inout) :: cfg
character(len=*), intent(in) :: var_name
character(len=*), intent(inout) :: char_data(:)

Calls

proc~~get_string_array~~CallsGraph proc~get_string_array get_string_array proc~prepare_get_var prepare_get_var proc~get_string_array->proc~prepare_get_var proc~get_var_index get_var_index proc~prepare_get_var->proc~get_var_index proc~handle_error handle_error proc~prepare_get_var->proc~handle_error proc~binary_search_variable binary_search_variable proc~get_var_index->proc~binary_search_variable

Called by

proc~~get_string_array~~CalledByGraph proc~get_string_array get_string_array interface~cfg_get CFG_get interface~cfg_get->proc~get_string_array proc~add_get_string_array add_get_string_array proc~add_get_string_array->proc~get_string_array interface~cfg_add_get CFG_add_get interface~cfg_add_get->proc~add_get_string_array

Source Code

  subroutine get_string_array(cfg, var_name, char_data)
    type(CFG_t), intent(inout)      :: cfg
    character(len=*), intent(in)    :: var_name
    character(len=*), intent(inout) :: char_data(:)
    integer                         :: ix

    call prepare_get_var(cfg, var_name, CFG_string_type, size(char_data), ix)
    char_data = cfg%vars(ix)%char_data
  end subroutine get_string_array