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	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