From dc6d7724fc58a433ba4fee4e22f068ca0c7ffbe6 Mon Sep 17 00:00:00 2001
From: giannozz <giannozz@c92efa57-630b-4861-b058-cf58834340f0>
Date: Tue, 28 Jun 2011 14:25:07 +0000
Subject: [PATCH] Incorrec call to "errore"

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7914 c92efa57-630b-4861-b058-cf58834340f0
---
 PW/input.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PW/input.f90 b/PW/input.f90
index a395cf84c..c5d1a8264 100644
--- a/PW/input.f90
+++ b/PW/input.f90
@@ -1548,7 +1548,7 @@ SUBROUTINE read_cards_pw ( psfile, tau_format )
   !
   IF ( tavel .AND. ANY ( sp_pos(:) /= sp_vel(:) ) ) &
       CALL errore("cards","list of species in block ATOMIC_VELOCITIES &
-                 & must be identical to those in ATOMIC_POSITIONS")
+                 & must be identical to those in ATOMIC_POSITIONS",1)
   !
   ! ... calculate fixatom
   !