trunk/libf/new_unit.f90

module new_unit_m

  implicit none

contains

  subroutine new_unit(unit)

    integer, intent(out):: unit

    ! Variables local to the procedure:
    logical opened, exist

    !------------------------------------------------------

    unit = 0
    do
       inquire(unit=unit, opened=opened, exist=exist)
       if (exist .and. .not. opened) exit
       unit = unit + 1
    end do

  end subroutine new_unit

end module new_unit_m
1	guez	7	module new_unit_m
2	guez	3
3			implicit none
4
5			contains
6
7	guez	7	subroutine new_unit(unit)
8	guez	3
9	guez	7	integer, intent(out):: unit
10	guez	3
11	guez	7	! Variables local to the procedure:
12	guez	3	logical opened, exist
13
14			!------------------------------------------------------
15
16	guez	7	unit = 0
17	guez	3	do
18	guez	7	inquire(unit=unit, opened=opened, exist=exist)
19	guez	3	if (exist .and. .not. opened) exit
20	guez	7	unit = unit + 1
21	guez	3	end do
22
23	guez	7	end subroutine new_unit
24	guez	3
25	guez	7	end module new_unit_m