Returns the file unit number associated with the input file
This is a subroutine unlike the functions used for error_unit and exit_reason_unit. We should think about making these consistent.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(out) | :: | unit |
subroutine get_input_unit (unit)
implicit none
integer, intent (out) :: unit
unit = input_unit_no
end subroutine get_input_unit