From 9adfa66a702390fc7c5c2f9e2f1be70e09524f88 Mon Sep 17 00:00:00 2001 From: giannozz Date: Thu, 21 Jun 2007 15:27:34 +0000 Subject: [PATCH] error message fixed git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3978 c92efa57-630b-4861-b058-cf58834340f0 --- Modules/read_uspp.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Modules/read_uspp.f90 b/Modules/read_uspp.f90 index 229e080f5..b850fb6c4 100644 --- a/Modules/read_uspp.f90 +++ b/Modules/read_uspp.f90 @@ -604,9 +604,9 @@ CONTAINS ! We first check the input variables ! if (is <= 0 .or. is >= nsx) & - call errore('readvan','routine called with wrong 1st argument', 1) + call errore('readrrkj','routine called with wrong 1st argument', 1) if (iunps <= 0 .or. iunps >= 100000) & - call errore('readvan','routine called with wrong 2nd argument', 1) + call errore('readrrkj','routine called with wrong 2nd argument', 1) ! read( iunps, '(a75)', err=100, iostat=ios ) & titleps