Get or add a integer value of a given name
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(CFG_t), | intent(inout) | :: | cfg | |||
| character(len=*), | intent(in) | :: | var_name | |||
| integer, | intent(inout) | :: | int_data | |||
| character(len=*), | intent(in) | :: | comment |
subroutine add_get_int(cfg, var_name, int_data, comment) type(CFG_t), intent(inout) :: cfg character(len=*), intent(in) :: var_name, comment integer, intent(inout) :: int_data call add_int(cfg, var_name, int_data, comment) call get_int(cfg, var_name, int_data) end subroutine add_get_int