mirror of https://gitlab.com/QEF/q-e.git
40 lines
963 B
Fortran
40 lines
963 B
Fortran
!
|
|
! Copyright (C) 2002-2009 Quantum ESPRESSO group
|
|
! This file is distributed under the terms of the
|
|
! GNU General Public License. See the file `License'
|
|
! in the root directory of the present distribution,
|
|
! or http://www.gnu.org/copyleft/gpl.txt .
|
|
!
|
|
!--------------------------------------------------------------------------
|
|
FUNCTION find_free_unit()
|
|
!--------------------------------------------------------------------------
|
|
!
|
|
IMPLICIT NONE
|
|
!
|
|
INTEGER :: find_free_unit
|
|
INTEGER :: iunit
|
|
LOGICAL :: opnd
|
|
!
|
|
!
|
|
find_free_unit = -1
|
|
unit_loop: DO iunit = 99, 1, -1
|
|
!
|
|
INQUIRE( UNIT = iunit, OPENED = opnd )
|
|
!
|
|
IF ( .NOT. opnd ) THEN
|
|
!
|
|
find_free_unit = iunit
|
|
!
|
|
RETURN
|
|
!
|
|
END IF
|
|
!
|
|
END DO unit_loop
|
|
!
|
|
CALL infomsg( 'find_free_unit()', 'free unit not found ?!?')
|
|
!
|
|
RETURN
|
|
!
|
|
END FUNCTION find_free_unit
|
|
!
|