From 95a620196747a76c0219a2a19ffe7c3075814246 Mon Sep 17 00:00:00 2001
From: Alfredo Buttari <alfredo.buttari@enseeiht.fr>
Date: Mon, 6 Mar 2006 18:37:32 +0000
Subject: [PATCH] *** empty log message ***

---
 src/serial/psb_cest.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/serial/psb_cest.f90 b/src/serial/psb_cest.f90
index 84887cf4..9977520a 100644
--- a/src/serial/psb_cest.f90
+++ b/src/serial/psb_cest.f90
@@ -63,8 +63,8 @@ subroutine psb_cest(afmt, nnz, lia1, lia2, lar, up, info)
         lia2 = 2*nnz + 1000
         lar = nnz
      else
-        info = 3012
-        call psb_errpush(info,name)
+        info = 136
+        call psb_errpush(info,name,a_err=afmt)
         goto 9999
      endif
 
@@ -83,8 +83,8 @@ subroutine psb_cest(afmt, nnz, lia1, lia2, lar, up, info)
         lia2 = nnz
         lar = nnz
      else
-        info = 3012
-        call psb_errpush(info,name)
+        info = 136
+        call psb_errpush(info,name,a_err=afmt)
         goto 9999
      endif