From d4a9ef7104e98a489607b6e3fabec9485d3f98a6 Mon Sep 17 00:00:00 2001
From: giannozz <giannozz@c92efa57-630b-4861-b058-cf58834340f0>
Date: Wed, 22 Jun 2005 13:56:55 +0000
Subject: [PATCH] oops...

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1977 c92efa57-630b-4861-b058-cf58834340f0
---
 flib/inpfile.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/flib/inpfile.f90 b/flib/inpfile.f90
index b3b8372f1..ea1a558fa 100644
--- a/flib/inpfile.f90
+++ b/flib/inpfile.f90
@@ -60,7 +60,7 @@ SUBROUTINE get_file( input_file )
   !
   CHARACTER (LEN=256)  :: prgname
   ! do not define iargc as external: g95 does not like it
-  INTEGER             :: nargs, ierr, iargc
+  INTEGER             :: nargs, iargc
   LOGICAL             :: exst
   !
   nargs = iargc()
@@ -80,6 +80,7 @@ SUBROUTINE get_file( input_file )
   ELSE
      CALL errore( TRIM(prgname), 'too many arguments' , nargs )
   END IF
+  RETURN
 20 CALL errore( TRIM(prgname), 'reading file name' , 1 )
   !
 END SUBROUTINE get_file