*** empty log message ***

19 years ago · 95a6201967
parent 23d3893c35
commit 95a6201967
1 changed files with 4 additions and 4 deletions
--- 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