add_real_array Subroutine

private subroutine add_real_array(cfg, var_name, real_data, comment, dynamic_size)

Add a configuration variable with an array of type

Arguments

Type IntentOptional Attributes Name
type(CFG_t), intent(inout) :: cfg
character(len=*), intent(in) :: var_name
real(kind=dp), intent(in) :: real_data(:)
character(len=*), intent(in) :: comment
logical, intent(in), optional :: dynamic_size

Calls

proc~~add_real_array~~CallsGraph proc~add_real_array add_real_array proc~prepare_store_var prepare_store_var proc~add_real_array->proc~prepare_store_var proc~read_variable read_variable proc~add_real_array->proc~read_variable proc~ensure_free_storage ensure_free_storage proc~prepare_store_var->proc~ensure_free_storage proc~get_var_index get_var_index proc~prepare_store_var->proc~get_var_index proc~handle_error handle_error proc~prepare_store_var->proc~handle_error proc~get_fields_string~2 get_fields_string proc~read_variable->proc~get_fields_string~2 proc~read_variable->proc~handle_error proc~resize_storage resize_storage proc~read_variable->proc~resize_storage proc~binary_search_variable binary_search_variable proc~get_var_index->proc~binary_search_variable

Called by

proc~~add_real_array~~CalledByGraph proc~add_real_array add_real_array interface~cfg_add CFG_add interface~cfg_add->proc~add_real_array proc~add_get_real_array add_get_real_array proc~add_get_real_array->proc~add_real_array interface~cfg_add_get CFG_add_get interface~cfg_add_get->proc~add_get_real_array

Source Code

  subroutine add_real_array(cfg, var_name, real_data, comment, dynamic_size)
    type(CFG_t), intent(inout)    :: cfg
    character(len=*), intent(in)  :: var_name, comment
    real(dp), intent(in)          :: real_data(:)
    logical, intent(in), optional :: dynamic_size
    integer                       :: ix

    call prepare_store_var(cfg, var_name, CFG_real_type, size(real_data),&
        comment, ix, dynamic_size)

    if (cfg%vars(ix)%stored_data /= "") then
       call read_variable(cfg%vars(ix))
    else
       cfg%vars(ix)%real_data = real_data
    end if
  end subroutine add_real_array