source: LMDZ5/branches/testing/libf/bibio/new_unit_m.F90 @ 1790

Last change on this file since 1790 was 1707, checked in by Laurent Fairhead, 12 years ago

Version testing basée sur la r1706


Testing release based on r1706

File size: 436 bytes
Line 
1module new_unit_m
2
3  implicit none
4
5contains
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
25end module new_unit_m
Note: See TracBrowser for help on using the repository browser.