| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | private, | parameter | :: | line_length | = | 2048 | |
| integer, | public, | parameter | :: | error_length | = | 2048 |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | unit | = | -1 | ||
| character(len=line_length), | public | :: | line | = | '' | ||
| integer, | public | :: | indent | = | 0 | ||
| logical, | public | :: | eof | = | .false. | ||
| integer, | public | :: | iline | = | 0 | ||
| character(len=error_length), | public | :: | error_message | = | '' | ||
| logical, | public | :: | has_error | = | .false. |
| procedure, public :: next_line | |
| procedure, public :: set_error |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | path | |||
| integer, | intent(in) | :: | unit | |||
| character(len=error_length), | intent(out) | :: | error |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_file), | intent(inout) | :: | file | |||
| integer, | intent(in) | :: | icolon | |||
| integer, | intent(in) | :: | icolon_stop |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | string |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_file), | intent(inout) | :: | file |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | string | |||
| integer, | intent(out) | :: | istart | |||
| integer, | intent(out) | :: | istop |