From 95a620196747a76c0219a2a19ffe7c3075814246 Mon Sep 17 00:00:00 2001 From: Alfredo Buttari 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