resize_storage Subroutine

private subroutine resize_storage(variable)

Resize the storage size of variable, which can be of type integer, logical, real or character

Arguments

Type IntentOptional Attributes Name
type(CFG_var_t), intent(inout) :: variable

Called by

proc~~resize_storage~~CalledByGraph proc~resize_storage resize_storage proc~read_variable read_variable proc~read_variable->proc~resize_storage proc~add_int add_int proc~add_int->proc~read_variable proc~add_int_array add_int_array proc~add_int_array->proc~read_variable proc~add_logic add_logic proc~add_logic->proc~read_variable proc~add_logic_array add_logic_array proc~add_logic_array->proc~read_variable proc~add_real add_real proc~add_real->proc~read_variable proc~add_real_array add_real_array proc~add_real_array->proc~read_variable proc~add_string add_string proc~add_string->proc~read_variable proc~add_string_array add_string_array proc~add_string_array->proc~read_variable proc~cfg_read_file CFG_read_file proc~cfg_read_file->proc~read_variable interface~cfg_add CFG_add interface~cfg_add->proc~add_int interface~cfg_add->proc~add_int_array interface~cfg_add->proc~add_logic interface~cfg_add->proc~add_logic_array interface~cfg_add->proc~add_real interface~cfg_add->proc~add_real_array interface~cfg_add->proc~add_string interface~cfg_add->proc~add_string_array proc~add_get_int add_get_int proc~add_get_int->proc~add_int proc~add_get_int_array add_get_int_array proc~add_get_int_array->proc~add_int_array proc~add_get_logic add_get_logic proc~add_get_logic->proc~add_logic proc~add_get_logic_array add_get_logic_array proc~add_get_logic_array->proc~add_logic_array proc~add_get_real add_get_real proc~add_get_real->proc~add_real proc~add_get_real_array add_get_real_array proc~add_get_real_array->proc~add_real_array proc~add_get_string add_get_string proc~add_get_string->proc~add_string proc~add_get_string_array add_get_string_array proc~add_get_string_array->proc~add_string_array proc~cfg_update_from_arguments CFG_update_from_arguments proc~cfg_update_from_arguments->proc~cfg_read_file interface~cfg_add_get CFG_add_get interface~cfg_add_get->proc~add_get_int interface~cfg_add_get->proc~add_get_int_array interface~cfg_add_get->proc~add_get_logic interface~cfg_add_get->proc~add_get_logic_array interface~cfg_add_get->proc~add_get_real interface~cfg_add_get->proc~add_get_real_array interface~cfg_add_get->proc~add_get_string interface~cfg_add_get->proc~add_get_string_array

Source Code

  subroutine resize_storage(variable)
    type(CFG_var_t), intent(inout) :: variable

    select case (variable%var_type)
    case (CFG_integer_type)
       deallocate( variable%int_data )
       allocate( variable%int_data(variable%var_size) )
    case (CFG_logic_type)
       deallocate( variable%logic_data )
       allocate( variable%logic_data(variable%var_size) )
    case (CFG_real_type)
       deallocate( variable%real_data )
       allocate( variable%real_data(variable%var_size) )
    case (CFG_string_type)
       deallocate( variable%char_data )
       allocate( variable%char_data(variable%var_size) )
    end select
  end subroutine resize_storage