From 3881bdc5b9ff283c9df36059f3f23550f90d3c85 Mon Sep 17 00:00:00 2001
From: pietrodelugas <pietrodelugas@c92efa57-630b-4861-b058-cf58834340f0>
Date: Sun, 30 Jul 2017 16:42:40 +0000
Subject: [PATCH] added optional error flag in output

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13651 c92efa57-630b-4861-b058-cf58834340f0
---
 UtilXlib/find_free_unit.f90 | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/UtilXlib/find_free_unit.f90 b/UtilXlib/find_free_unit.f90
index b1f3b971a..1c9312047 100644
--- a/UtilXlib/find_free_unit.f90
+++ b/UtilXlib/find_free_unit.f90
@@ -6,16 +6,18 @@
 ! or http://www.gnu.org/copyleft/gpl.txt .
 !
   !--------------------------------------------------------------------------
-  FUNCTION find_free_unit()
+  FUNCTION find_free_unit(ierr)
     !--------------------------------------------------------------------------
     !
     IMPLICIT NONE
     !
     INTEGER :: find_free_unit
+    INTEGER,OPTIONAL,INTENT(OUT)  :: ierr
     INTEGER :: iunit
     LOGICAL :: opnd
     !
     !
+    find_free_unit = -1
     unit_loop: DO iunit = 99, 1, -1
        !
        INQUIRE( UNIT = iunit, OPENED = opnd )
@@ -30,6 +32,10 @@
        !
     END DO unit_loop
     !
+    IF ( PRESENT( ierr )) THEN 
+       ierr = 1 
+       RETURN
+    END IF 
     CALL errore( 'find_free_unit()', 'free unit not found ?!?', 1 )
     !
     RETURN