Module that provides basic IO functionality for keeping track of the next available file unit.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer(kind=ip), | private | :: | next_id | = | 20 | This is kept private in order to ensure that everything is consistent. The first available file unit is 20. |
Function that provides the next available file unit.
The returned value is not used for output for any other quantity.
Function that releases the last assigned file unit.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=ip), | intent(inout) | :: | io_id | The file unit to attempt to release. If this is not the last assigned file unit, the routine aborts the execution. |