get_free_id.f

Go to the documentation of this file.

!                   **********************
                    SUBROUTINE get_free_id
!                   **********************
!
     &(id)
!
!***********************************************************************
! BIEF   V7P1
!***********************************************************************
!
!brief    Returns an unused id to open a file
!
!history  Y AUDOUIN (LNHE)
!+        09/09/2016
!+        V7P2
!+
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| ID             |-->| ID
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special, ONLY : max_id, lu
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!

      INTEGER, INTENT(INOUT) :: id
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER :: i
      LOGICAL :: is_used
!
!
!-----------------------------------------------------------------------
!
      i=max_id
      DO
        IF(i.EQ.5.OR.i.EQ.6) THEN
          i = i + 1
          CONTINUE
        ENDIF
        INQUIRE(i,opened=is_used)
        IF(.NOT.is_used) THEN
          id = i
          max_id = i
          RETURN
        ENDIF
        i = i+1
      ENDDO
      WRITE(lu,*) "Ay Caramba !! Should not happen"
      CALL plante(1)
!
!-----------------------------------------------------------------------
!
      RETURN
      END SUBROUTINE