increment_int_dict Function

private function increment_int_dict(dict, key) result(val)

Arguments

Type IntentOptional Attributes Name
type(type_dictionary), intent(inout) :: dict
character(len=*), intent(in) :: key

Return Value integer


Calls

proc~~increment_int_dict~~CallsGraph proc~increment_int_dict increment_int_dict get_integer get_integer proc~increment_int_dict->get_integer interface~to_str to_str proc~increment_int_dict->interface~to_str proc~abort_if abort_if proc~increment_int_dict->proc~abort_if set_string set_string proc~increment_int_dict->set_string 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

Called by

proc~~increment_int_dict~~CalledByGraph proc~increment_int_dict increment_int_dict proc~fill_components fill_components proc~fill_components->proc~increment_int_dict proc~fill_components->proc~fill_components proc~rename_components rename_components proc~rename_components->proc~increment_int_dict proc~rename_components->proc~rename_components proc~input_open_yaml input_t%input_open_yaml proc~input_open_yaml->proc~fill_components proc~input_open_yaml->proc~rename_components

Source Code

function increment_int_dict(dict,key) result(val)
    type(type_dictionary), intent(inout) :: dict
    character(*),intent(in) :: key
    integer :: val
    type(type_error),allocatable :: err
    val = dict%get_integer(key,error=err) + 1
    call abort_if(err)
    call dict%set_string(key,to_str(val))
end function increment_int_dict