From 42f49561038b77e38c95b3987dfd3dccf79f94d4 Mon Sep 17 00:00:00 2001
From: giannozz <giannozz@c92efa57-630b-4861-b058-cf58834340f0>
Date: Thu, 31 Jul 2008 15:59:22 +0000
Subject: [PATCH] Obscure error messages slightly clarified

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5094 c92efa57-630b-4861-b058-cf58834340f0
---
 PW/cdiagh.f90  | 2 +-
 PW/cdiaghg.f90 | 2 +-
 PW/rdiagh.f90  | 2 +-
 PW/rdiaghg.f90 | 4 ++--
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/PW/cdiagh.f90 b/PW/cdiagh.f90
index 14ec31179..dae50bac0 100644
--- a/PW/cdiagh.f90
+++ b/PW/cdiagh.f90
@@ -152,7 +152,7 @@ SUBROUTINE cdiagh( n, h, ldh, e, v )
          !
          CALL ZHEEV( 'V', 'U', n, v, ldh, e, work, lwork, rwork, info )
          !
-         CALL errore( 'cdiagh', 'info =/= 0', ABS( info ) )
+         CALL errore( 'cdiagh', 'diagonalization (ZHEEV) failed', ABS( info ) )
          !
          ! ... deallocate workspace
          !
diff --git a/PW/cdiaghg.f90 b/PW/cdiaghg.f90
index b30f86a99..6180fdcbb 100644
--- a/PW/cdiaghg.f90
+++ b/PW/cdiaghg.f90
@@ -174,7 +174,7 @@ SUBROUTINE cdiaghg( n, m, h, s, ldh, e, v )
      DEALLOCATE( rwork )
      DEALLOCATE( work )
      !
-     CALL errore( 'cdiaghg', 'info =/= 0', ABS( info ) )
+     CALL errore( 'cdiaghg', 'diagonalization (ZHEGV*) failed', ABS( info ) )
      !
      ! ... restore input S matrix from saved diagonal and lower triangle
      !
diff --git a/PW/rdiagh.f90 b/PW/rdiagh.f90
index 69f72c33e..e14fd33c1 100755
--- a/PW/rdiagh.f90
+++ b/PW/rdiagh.f90
@@ -134,7 +134,7 @@ SUBROUTINE rdiagh( n, h, ldh, e, v )
          !
          CALL DSYEV( 'V', 'U', n, v, ldh, e, work, lwork, info )
          !
-         CALL errore( 'rdiagh', 'info =/= 0', ABS( info ) )
+         CALL errore( 'rdiagh', 'diagonalization (DSYEV) failed', ABS( info ) )
          !
          ! ... deallocate workspace
          !
diff --git a/PW/rdiaghg.f90 b/PW/rdiaghg.f90
index a12e13377..175190f10 100644
--- a/PW/rdiaghg.f90
+++ b/PW/rdiaghg.f90
@@ -137,8 +137,8 @@ SUBROUTINE rdiaghg( n, m, h, s, ldh, e, v )
      !
      DEALLOCATE( work )
      !
-     CALL errore( 'rdiaghg', 'info =/= 0', ABS( info ) )
-     !
+     CALL errore( 'rdiaghg', 'diagonalization (DSYGV*) failed', ABS( info ) )
+     
      ! ... restore input S matrix from saved diagonal and lower triangle
      !
      DO i = 1, n