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 |