From 00b8bc882adddf371dfdc827b5c269f20922364d Mon Sep 17 00:00:00 2001
From: giannozz <giannozz@c92efa57-630b-4861-b058-cf58834340f0>
Date: Thu, 5 Jan 2006 21:50:45 +0000
Subject: [PATCH] Better input checks

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

diff --git a/pwtools/q2r.f90 b/pwtools/q2r.f90
index 7ea47bafa..e6f21d87e 100644
--- a/pwtools/q2r.f90
+++ b/pwtools/q2r.f90
@@ -124,7 +124,6 @@ PROGRAM q2r
      !
      ! check input
      !
-     IF (fildyn == ' ')  CALL errore ('q2r',' bad fildyn',1)
      IF (flfrc == ' ')  CALL errore ('q2r',' bad flfrc',1)
      !
      OPEN (unit=1, file=TRIM(fildyn)//'0', status='old', form='formatted', &
@@ -145,6 +144,8 @@ PROGRAM q2r
      IF (nr1 < 1 .OR. nr1 > 1024) CALL errore ('q2r',' nr1 wrong or missing',1)
      IF (nr2 < 1 .OR. nr2 > 1024) CALL errore ('q2r',' nr2 wrong or missing',1)
      IF (nr3 < 1 .OR. nr2 > 1024) CALL errore ('q2r',' nr3 wrong or missing',1)
+     IF (nfile < 1 .OR. nfile > 1024) &
+        CALL errore ('q2r','too few or too many file',MAX(1,nfile))
      !
      ! copy nrX -> nr(X)
      !