Wrapper around Fortran open of files to take care of errors and improve the error message in case the opening goes wrong.
Use newunit to let tem_open provide a new file unit for the opened file.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | file | |||
| integer, | intent(in), | optional | :: | unit | ||
| integer, | intent(out), | optional | :: | newunit | ||
| character(len=*), | intent(in), | optional | :: | status | ||
| character(len=*), | intent(in), | optional | :: | position | ||
| character(len=*), | intent(in), | optional | :: | action | ||
| character(len=*), | intent(in), | optional | :: | form | ||
| character(len=*), | intent(in), | optional | :: | access | ||
| integer, | intent(in), | optional | :: | recl |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=labelLen), | private | :: | loc_status | ||||
| character(len=labelLen), | private | :: | loc_position | ||||
| character(len=labelLen), | private | :: | loc_action | ||||
| character(len=labelLen), | private | :: | loc_form | ||||
| character(len=labelLen), | private | :: | loc_access | ||||
| integer, | private | :: | stat | ||||
| integer, | private | :: | funit |