Get or add a character array of a given name
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(CFG_t), | intent(inout) | :: | cfg | |||
| character(len=*), | intent(in) | :: | var_name | |||
| character(len=*), | intent(inout) | :: | char_data(:) | |||
| character(len=*), | intent(in) | :: | comment | |||
| logical, | intent(in), | optional | :: | dynamic_size |
subroutine add_get_string_array(cfg, var_name, char_data, comment,& dynamic_size) type(CFG_t), intent(inout) :: cfg character(len=*), intent(in) :: var_name, comment character(len=*), intent(inout) :: char_data(:) logical, intent(in), optional :: dynamic_size call add_string_array(cfg, var_name, char_data, comment, dynamic_size) call get_string_array(cfg, var_name, char_data) end subroutine add_get_string_array