| Directory: | ./ |
|---|---|
| File: | misc/new_unit_m.f90 |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 0 | 7 | 0.0% |
| Branches: | 0 | 4 | 0.0% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | module new_unit_m | ||
| 2 | |||
| 3 | implicit none | ||
| 4 | |||
| 5 | contains | ||
| 6 | |||
| 7 | ✗ | subroutine new_unit(unit) | |
| 8 | |||
| 9 | integer, intent(out):: unit | ||
| 10 | |||
| 11 | ! Variables local to the procedure: | ||
| 12 | logical opened, exist | ||
| 13 | |||
| 14 | !------------------------------------------------------ | ||
| 15 | |||
| 16 | ✗ | unit = 0 | |
| 17 | ✗ | do | |
| 18 | ✗ | inquire(unit=unit, opened=opened, exist=exist) | |
| 19 | ✗ | if (exist .and. .not. opened) exit | |
| 20 | ✗ | unit = unit + 1 | |
| 21 | end do | ||
| 22 | |||
| 23 | ✗ | end subroutine new_unit | |
| 24 | |||
| 25 | end module new_unit_m | ||
| 26 |