psblas3:

base/comm/psb_cgather.f90
 base/comm/psb_chalo.f90
 base/comm/psb_covrl.f90
 base/comm/psb_cscatter.F90
 base/comm/psb_dgather.f90
 base/comm/psb_dhalo.f90
 base/comm/psb_dovrl.f90
 base/comm/psb_dscatter.F90
 base/comm/psb_igather.f90
 base/comm/psb_ihalo.f90
 base/comm/psb_iovrl.f90
 base/comm/psb_iscatter.F90
 base/comm/psb_sgather.f90
 base/comm/psb_shalo.f90
 base/comm/psb_sovrl.f90
 base/comm/psb_sscatter.F90
 base/comm/psb_zgather.f90
 base/comm/psb_zhalo.f90
 base/comm/psb_zovrl.f90
 base/comm/psb_zscatter.F90
 base/internals/psi_bld_g2lmap.f90
 base/internals/psi_bld_tmphalo.f90
 base/internals/psi_bld_tmpovrl.f90
 base/internals/psi_compute_size.f90
 base/internals/psi_crea_index.f90
 base/internals/psi_cswapdata.F90
 base/internals/psi_cswaptran.F90
 base/internals/psi_desc_index.F90
 base/internals/psi_dswapdata.F90
 base/internals/psi_dswaptran.F90
 base/internals/psi_fnd_owner.F90
 base/internals/psi_iswapdata.F90
 base/internals/psi_iswaptran.F90
 base/internals/psi_ldsc_pre_halo.f90
 base/internals/psi_sswapdata.F90
 base/internals/psi_sswaptran.F90
 base/internals/psi_zswapdata.F90
 base/internals/psi_zswaptran.F90
 base/modules/psb_const_mod.F90
 base/modules/psb_desc_type.f90
 base/modules/psb_error_mod.F90
 base/psblas/psb_camax.f90
 base/psblas/psb_casum.f90
 base/psblas/psb_caxpby.f90
 base/psblas/psb_cdot.f90
 base/psblas/psb_cnrm2.f90
 base/psblas/psb_cnrmi.f90
 base/psblas/psb_cspmm.f90
 base/psblas/psb_cspsm.f90
 base/psblas/psb_damax.f90
 base/psblas/psb_dasum.f90
 base/psblas/psb_daxpby.f90
 base/psblas/psb_ddot.f90
 base/psblas/psb_dnrm2.f90
 base/psblas/psb_dnrmi.f90
 base/psblas/psb_dspmm.f90
 base/psblas/psb_dspsm.f90
 base/psblas/psb_samax.f90
 base/psblas/psb_sasum.f90
 base/psblas/psb_saxpby.f90
 base/psblas/psb_sdot.f90
 base/psblas/psb_snrm2.f90
 base/psblas/psb_snrmi.f90
 base/psblas/psb_sspmm.f90
 base/psblas/psb_sspsm.f90
 base/psblas/psb_sxdot.f90
 base/psblas/psb_zamax.f90
 base/psblas/psb_zasum.f90
 base/psblas/psb_zaxpby.f90
 base/psblas/psb_zdot.f90
 base/psblas/psb_znrm2.f90
 base/psblas/psb_znrmi.f90
 base/psblas/psb_zspmm.f90
 base/psblas/psb_zspsm.f90
 base/serial/psi_impl.f90
 base/tools/psb_callc.f90
 base/tools/psb_casb.f90
 base/tools/psb_cdcpy.f90
 base/tools/psb_cdren.f90
 base/tools/psb_cfree.f90
 base/tools/psb_cins.f90
 base/tools/psb_cspalloc.f90
 base/tools/psb_cspasb.f90
 base/tools/psb_dallc.f90
 base/tools/psb_dasb.f90
 base/tools/psb_dfree.f90
 base/tools/psb_dins.f90
 base/tools/psb_dspalloc.f90
 base/tools/psb_dspasb.f90
 base/tools/psb_ialloc.f90
 base/tools/psb_iasb.f90
 base/tools/psb_icdasb.F90
 base/tools/psb_ifree.f90
 base/tools/psb_iins.f90
 base/tools/psb_sallc.f90
 base/tools/psb_sasb.f90
 base/tools/psb_sfree.f90
 base/tools/psb_sins.f90
 base/tools/psb_sspalloc.f90
 base/tools/psb_sspasb.f90
 base/tools/psb_zallc.f90
 base/tools/psb_zasb.f90
 base/tools/psb_zfree.f90
 base/tools/psb_zins.f90
 base/tools/psb_zspalloc.f90
 base/tools/psb_zspasb.f90
 test/serial/Makefile
 test/serial/d_coo_matgen.f03

Fix blacs_error into context_error

base/comm/psb_cgather.f90

@@ -73,7 +73,7 @@ subroutine  psb_cgatherm(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -246,7 +246,7 @@ subroutine  psb_cgatherv(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_chalo.f90

@@ -85,7 +85,7 @@ subroutine  psb_chalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -306,7 +306,7 @@ subroutine  psb_chalov(x,desc_a,info,alpha,work,tran,mode,data)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_covrl.f90

@@ -94,7 +94,7 @@ subroutine  psb_covrlm(x,desc_a,info,jx,ik,work,update,mode)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -293,7 +293,7 @@ subroutine  psb_covrlv(x,desc_a,info,work,update,mode)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_cscatter.F90

@@ -80,7 +80,7 @@ subroutine  psb_cscatterm(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -311,7 +311,7 @@ subroutine  psb_cscatterv(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_dgather.f90

@@ -73,7 +73,7 @@ subroutine  psb_dgatherm(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -243,7 +243,7 @@ subroutine  psb_dgatherv(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_dhalo.f90

@@ -85,7 +85,7 @@ subroutine  psb_dhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -306,7 +306,7 @@ subroutine  psb_dhalov(x,desc_a,info,alpha,work,tran,mode,data)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_dovrl.f90

@@ -93,7 +93,7 @@ subroutine  psb_dovrlm(x,desc_a,info,jx,ik,work,update,mode)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -295,7 +295,7 @@ subroutine  psb_dovrlv(x,desc_a,info,work,update,mode)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_dscatter.F90

@@ -80,7 +80,7 @@ subroutine  psb_dscatterm(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -312,7 +312,7 @@ subroutine  psb_dscatterv(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_igather.f90

@@ -73,7 +73,7 @@ subroutine  psb_igatherm(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -243,7 +243,7 @@ subroutine  psb_igatherv(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_ihalo.f90

@@ -86,7 +86,7 @@ subroutine  psb_ihalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -310,7 +310,7 @@ subroutine  psb_ihalov(x,desc_a,info,alpha,work,tran,mode,data)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_iovrl.f90

@@ -93,7 +93,7 @@ subroutine  psb_iovrlm(x,desc_a,info,jx,ik,work,update,mode)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -294,7 +294,7 @@ subroutine  psb_iovrlv(x,desc_a,info,work,update,mode)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_iscatter.F90

@@ -78,7 +78,7 @@ subroutine  psb_iscatterm(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -309,7 +309,7 @@ subroutine  psb_iscatterv(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_sgather.f90

@@ -73,7 +73,7 @@ subroutine  psb_sgatherm(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -243,7 +243,7 @@ subroutine  psb_sgatherv(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_shalo.f90

@@ -85,7 +85,7 @@ subroutine  psb_shalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -306,7 +306,7 @@ subroutine  psb_shalov(x,desc_a,info,alpha,work,tran,mode,data)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_sovrl.f90

@@ -93,7 +93,7 @@ subroutine  psb_sovrlm(x,desc_a,info,jx,ik,work,update,mode)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -295,7 +295,7 @@ subroutine  psb_sovrlv(x,desc_a,info,work,update,mode)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_sscatter.F90

@@ -80,7 +80,7 @@ subroutine  psb_sscatterm(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -311,7 +311,7 @@ subroutine  psb_sscatterv(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_zgather.f90

@@ -73,7 +73,7 @@ subroutine  psb_zgatherm(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -246,7 +246,7 @@ subroutine  psb_zgatherv(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_zhalo.f90

@@ -85,7 +85,7 @@ subroutine  psb_zhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -306,7 +306,7 @@ subroutine  psb_zhalov(x,desc_a,info,alpha,work,tran,mode,data)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_zovrl.f90

@@ -94,7 +94,7 @@ subroutine  psb_zovrlm(x,desc_a,info,jx,ik,work,update,mode)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -293,7 +293,7 @@ subroutine  psb_zovrlv(x,desc_a,info,work,update,mode)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/comm/psb_zscatter.F90

@@ -79,7 +79,7 @@ subroutine  psb_zscatterm(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -310,7 +310,7 @@ subroutine  psb_zscatterv(globx, locx, desc_a, info, iroot)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_bld_g2lmap.f90

@@ -70,7 +70,7 @@ subroutine psi_bld_g2lmap(desc,info)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_bld_tmphalo.f90

@@ -76,7 +76,7 @@ subroutine psi_bld_tmphalo(desc,info)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_bld_tmpovrl.f90

@@ -82,7 +82,7 @@ subroutine psi_bld_tmpovrl(iv,desc,info)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_compute_size.f90

@@ -66,7 +66,7 @@ subroutine psi_compute_size(desc_data, index_in, dl_lda, info)
 
   call psb_info(ictxt,me,np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_crea_index.f90

@@ -84,7 +84,7 @@ subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,info
   ictxt = psb_cd_get_context(desc_a)
   call psb_info(ictxt,me,np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_cswapdata.F90

@@ -115,7 +115,7 @@ subroutine psi_cswapdatam(flag,n,beta,y,desc_a,work,info,data)
   icomm = psb_cd_get_mpic(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -198,7 +198,7 @@ subroutine psi_cswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -604,7 +604,7 @@ subroutine psi_cswapdatav(flag,beta,y,desc_a,work,info,data)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -690,7 +690,7 @@ subroutine psi_cswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_cswaptran.F90

@@ -121,7 +121,7 @@ subroutine psi_cswaptranm(flag,n,beta,y,desc_a,work,info,data)
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -203,7 +203,7 @@ subroutine psi_ctranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -609,7 +609,7 @@ subroutine psi_cswaptranv(flag,beta,y,desc_a,work,info,data)
   icomm = psb_cd_get_mpic(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -693,7 +693,7 @@ subroutine psi_ctranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_desc_index.F90

@@ -146,7 +146,7 @@ subroutine psi_desc_index(desc,index_in,dep_list,&
   icomm = psb_cd_get_mpic(desc)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_dswapdata.F90

@@ -116,7 +116,7 @@ subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data)
   icomm = psb_cd_get_mpic(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -199,7 +199,7 @@ subroutine psi_dswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -604,7 +604,7 @@ subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -690,7 +690,7 @@ subroutine psi_dswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_dswaptran.F90

@@ -121,7 +121,7 @@ subroutine psi_dswaptranm(flag,n,beta,y,desc_a,work,info,data)
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -203,7 +203,7 @@ subroutine psi_dtranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -609,7 +609,7 @@ subroutine psi_dswaptranv(flag,beta,y,desc_a,work,info,data)
   icomm = psb_cd_get_mpic(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -690,7 +690,7 @@ subroutine psi_dtranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_fnd_owner.F90

@@ -92,13 +92,13 @@ subroutine psi_fnd_owner(nv,idx,iprc,desc,info)
   call psb_info(ictxt, me, np)
 
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
 
   if (nv < 0 ) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_iswapdata.F90

@@ -115,7 +115,7 @@ subroutine psi_iswapdatam(flag,n,beta,y,desc_a,work,info,data)
   icomm = psb_cd_get_mpic(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -198,7 +198,7 @@ subroutine psi_iswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -604,7 +604,7 @@ subroutine psi_iswapdatav(flag,beta,y,desc_a,work,info,data)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -690,7 +690,7 @@ subroutine psi_iswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_iswaptran.F90

@@ -121,7 +121,7 @@ subroutine psi_iswaptranm(flag,n,beta,y,desc_a,work,info,data)
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -203,7 +203,7 @@ subroutine psi_itranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -609,7 +609,7 @@ subroutine psi_iswaptranv(flag,beta,y,desc_a,work,info,data)
   icomm = psb_cd_get_mpic(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -693,7 +693,7 @@ subroutine psi_itranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_ldsc_pre_halo.f90

@@ -75,7 +75,7 @@ subroutine psi_ldsc_pre_halo(desc,ext_hv,info)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_sswapdata.F90

@@ -116,7 +116,7 @@ subroutine psi_sswapdatam(flag,n,beta,y,desc_a,work,info,data)
   icomm = psb_cd_get_mpic(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -199,7 +199,7 @@ subroutine psi_sswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -604,7 +604,7 @@ subroutine psi_sswapdatav(flag,beta,y,desc_a,work,info,data)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -690,7 +690,7 @@ subroutine psi_sswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_sswaptran.F90

@@ -121,7 +121,7 @@ subroutine psi_sswaptranm(flag,n,beta,y,desc_a,work,info,data)
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -203,7 +203,7 @@ subroutine psi_stranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -609,7 +609,7 @@ subroutine psi_sswaptranv(flag,beta,y,desc_a,work,info,data)
   icomm = psb_cd_get_mpic(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -690,7 +690,7 @@ subroutine psi_stranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_zswapdata.F90

@@ -115,7 +115,7 @@ subroutine psi_zswapdatam(flag,n,beta,y,desc_a,work,info,data)
   icomm = psb_cd_get_mpic(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -198,7 +198,7 @@ subroutine psi_zswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -604,7 +604,7 @@ subroutine psi_zswapdatav(flag,beta,y,desc_a,work,info,data)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -690,7 +690,7 @@ subroutine psi_zswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/internals/psi_zswaptran.F90

@@ -121,7 +121,7 @@ subroutine psi_zswaptranm(flag,n,beta,y,desc_a,work,info,data)
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -203,7 +203,7 @@ subroutine psi_ztranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -609,7 +609,7 @@ subroutine psi_zswaptranv(flag,beta,y,desc_a,work,info,data)
   icomm = psb_cd_get_mpic(desc_a)
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -693,7 +693,7 @@ subroutine psi_ztranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i
 
   call psb_info(ictxt,me,np) 
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/modules/psb_const_mod.F90

@@ -158,9 +158,8 @@ module psb_const_mod
   integer, parameter, public :: psb_err_missing_override_method_=700
   integer, parameter, public :: psb_err_invalid_cd_state_=1122
   integer, parameter, public :: psb_err_invalid_a_and_cd_state_=1123
-  integer, parameter, public :: psb_err_blacs_error_=2010
+  integer, parameter, public :: psb_err_context_error_=2010
   integer, parameter, public :: psb_err_initerror_neugh_procs_=2011
-  integer, parameter, public :: psb_err_blacs_err_gridcols_not_1_=2030
   integer, parameter, public :: psb_err_invalid_matrix_input_state_=2231
   integer, parameter, public :: psb_err_input_no_regen_=2232
   integer, parameter, public :: psb_err_lld_case_not_implemented_=3010

base/modules/psb_desc_type.f90

@@ -854,7 +854,7 @@ contains
     call psb_info(ictxt, me, np)
     !     ....verify blacs grid correctness..
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif

base/modules/psb_error_mod.F90

@@ -431,15 +431,11 @@ contains
       write (error_unit,'("Invalid combined state for A and DESC_A")')
     case(1124:1999)
       write (error_unit,'("computational error. code: ",i0)')err_c
-    case(psb_err_blacs_error_)
+    case(psb_err_context_error_)
-      write (error_unit,'("BLACS error. Number of processes=-1")')
+      write (0,'("Parallel context error. Number of processes=-1")')
     case(psb_err_initerror_neugh_procs_)
       write (error_unit,&
            & '("Initialization error: not enough processes available in the parallel environment")')
-    case(psb_err_blacs_err_gridcols_not_1_)
-      write (error_unit,&
-           & '("BLACS ERROR: Number of grid columns must be equal to 1\nCurrent value is ",i4," != 1.")')&
-           &i_e_d(1)
     case(psb_err_invalid_matrix_input_state_)
       write (error_unit,'("Invalid input state for matrix.")')
     case(psb_err_input_no_regen_)

base/psblas/psb_camax.f90

@@ -75,7 +75,7 @@ function psb_camax(x,desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999 
   endif
@@ -205,7 +205,7 @@ function psb_camaxv (x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -333,7 +333,7 @@ subroutine psb_camaxvs(res,x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -459,7 +459,7 @@ subroutine psb_cmamaxs(res,x,desc_a, info,jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_casum.f90

@@ -76,7 +76,7 @@ function psb_casum (x,desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -217,7 +217,7 @@ function psb_casumv(x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -355,7 +355,7 @@ subroutine psb_casumvs(res,x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_caxpby.f90

@@ -75,7 +75,7 @@ subroutine  psb_caxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -226,7 +226,7 @@ subroutine  psb_caxpbyv(alpha, x, beta,y,desc_a,info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_cdot.f90

@@ -73,7 +73,7 @@ function psb_cdot(x, y,desc_a, info, jx, jy)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -223,7 +223,7 @@ function psb_cdotv(x, y,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -357,7 +357,7 @@ subroutine psb_cdotvs(res, x, y,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -489,7 +489,7 @@ subroutine psb_cmdots(res, x, y, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_cnrm2.f90

@@ -74,7 +74,7 @@ function psb_cnrm2(x, desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -210,7 +210,7 @@ function psb_cnrm2v(x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -343,7 +343,7 @@ subroutine psb_cnrm2vs(res, x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_cnrmi.f90

@@ -65,7 +65,7 @@ function psb_cnrmi(a,desc_a,info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_cspmm.f90

@@ -103,7 +103,7 @@ subroutine  psb_cspmm(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -453,7 +453,7 @@ subroutine  psb_cspmv(alpha,a,x,beta,y,desc_a,info,&
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_cspsm.f90

@@ -113,7 +113,7 @@ subroutine  psb_cspsm(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -391,7 +391,7 @@ subroutine  psb_cspsv(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_damax.f90

@@ -75,7 +75,7 @@ function psb_damax (x,desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999 
   endif
@@ -204,7 +204,7 @@ function psb_damaxv (x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -326,7 +326,7 @@ subroutine psb_damaxvs (res,x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -447,7 +447,7 @@ subroutine psb_dmamaxs (res,x,desc_a, info,jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_dasum.f90

@@ -76,7 +76,7 @@ function psb_dasum (x,desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -218,7 +218,7 @@ function psb_dasumv (x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -351,7 +351,7 @@ subroutine psb_dasumvs(res,x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_daxpby.f90

@@ -75,7 +75,7 @@ subroutine  psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -225,7 +225,7 @@ subroutine  psb_daxpbyv(alpha, x, beta,y,desc_a,info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_ddot.f90

@@ -76,7 +76,7 @@ function psb_ddot(x, y,desc_a, info, jx, jy)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -229,7 +229,7 @@ function psb_ddotv(x, y,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -364,7 +364,7 @@ subroutine psb_ddotvs(res, x, y,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -496,7 +496,7 @@ subroutine psb_dmdots(res, x, y, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_dnrm2.f90

@@ -73,7 +73,7 @@ function psb_dnrm2(x, desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -208,7 +208,7 @@ function psb_dnrm2v(x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -340,7 +340,7 @@ subroutine psb_dnrm2vs(res, x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_dnrmi.f90

@@ -70,7 +70,7 @@ function psb_dnrmi(a,desc_a,info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_dspmm.f90

@@ -103,7 +103,7 @@ subroutine  psb_dspmm(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -453,7 +453,7 @@ subroutine  psb_dspmv(alpha,a,x,beta,y,desc_a,info,&
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_dspsm.f90

@@ -114,7 +114,7 @@ subroutine  psb_dspsm(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -392,7 +392,7 @@ subroutine  psb_dspsv(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_samax.f90

@@ -75,7 +75,7 @@ function psb_samax (x,desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999 
   endif
@@ -204,7 +204,7 @@ function psb_samaxv (x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -326,7 +326,7 @@ subroutine psb_samaxvs (res,x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -447,7 +447,7 @@ subroutine psb_smamaxs (res,x,desc_a, info,jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_sasum.f90

@@ -76,7 +76,7 @@ function psb_sasum (x,desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -218,7 +218,7 @@ function psb_sasumv (x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -351,7 +351,7 @@ subroutine psb_sasumvs(res,x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_saxpby.f90

@@ -75,7 +75,7 @@ subroutine  psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -225,7 +225,7 @@ subroutine  psb_saxpbyv(alpha, x, beta,y,desc_a,info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_sdot.f90

@@ -76,7 +76,7 @@ function psb_sdot(x, y,desc_a, info, jx, jy)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -229,7 +229,7 @@ function psb_sdotv(x, y,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -363,7 +363,7 @@ subroutine psb_sdotvs(res, x, y,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -495,7 +495,7 @@ subroutine psb_smdots(res, x, y, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_snrm2.f90

@@ -73,7 +73,7 @@ function psb_snrm2(x, desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -208,7 +208,7 @@ function psb_snrm2v(x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -340,7 +340,7 @@ subroutine psb_snrm2vs(res, x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_snrmi.f90

@@ -70,7 +70,7 @@ function psb_snrmi(a,desc_a,info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_sspmm.f90

@@ -103,7 +103,7 @@ subroutine  psb_sspmm(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -453,7 +453,7 @@ subroutine  psb_sspmv(alpha,a,x,beta,y,desc_a,info,&
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_sspsm.f90

@@ -114,7 +114,7 @@ subroutine  psb_sspsm(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -392,7 +392,7 @@ subroutine  psb_sspsv(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_sxdot.f90

@@ -76,7 +76,7 @@ function psb_sxdot(x, y,desc_a, info, jx, jy)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -229,7 +229,7 @@ function psb_sxdotv(x, y,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -384,7 +384,7 @@ subroutine psb_sxdotvs(res, x, y,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -516,7 +516,7 @@ subroutine psb_sxmdots(res, x, y, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_zamax.f90

@@ -78,7 +78,7 @@ function psb_zamax (x,desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999 
   endif
@@ -211,7 +211,7 @@ function psb_zamaxv (x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -338,7 +338,7 @@ subroutine psb_zamaxvs(res,x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -463,7 +463,7 @@ subroutine psb_zmamaxs(res,x,desc_a, info,jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_zasum.f90

@@ -80,7 +80,7 @@ function psb_zasum (x,desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -227,7 +227,7 @@ function psb_zasumv(x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -366,7 +366,7 @@ subroutine psb_zasumvs(res,x,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_zaxpby.f90

@@ -74,7 +74,7 @@ subroutine  psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -225,7 +225,7 @@ subroutine  psb_zaxpbyv(alpha, x, beta,y,desc_a,info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_zdot.f90

@@ -76,7 +76,7 @@ function psb_zdot(x, y,desc_a, info, jx, jy)
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -229,7 +229,7 @@ function psb_zdotv(x, y,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -363,7 +363,7 @@ subroutine psb_zdotvs(res, x, y,desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -495,7 +495,7 @@ subroutine psb_zmdots(res, x, y, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -ione) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_znrm2.f90

@@ -74,7 +74,7 @@ function psb_znrm2(x, desc_a, info, jx)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -210,7 +210,7 @@ function psb_znrm2v(x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -343,7 +343,7 @@ subroutine psb_znrm2vs(res, x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info=psb_err_blacs_error_
+    info=psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_znrmi.f90

@@ -70,7 +70,7 @@ function psb_znrmi(a,desc_a,info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_zspmm.f90

@@ -103,7 +103,7 @@ subroutine  psb_zspmm(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -453,7 +453,7 @@ subroutine  psb_zspmv(alpha,a,x,beta,y,desc_a,info,&
   ictxt=psb_cd_get_context(desc_a)
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/psblas/psb_zspsm.f90

@@ -113,7 +113,7 @@ subroutine  psb_zspsm(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -391,7 +391,7 @@ subroutine  psb_zspsv(alpha,a,x,beta,y,desc_a,info,&
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/serial/psi_impl.f90

@@ -141,7 +141,7 @@
 
     call psb_info(ictxt,me,np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -528,7 +528,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -598,7 +598,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -667,7 +667,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -737,7 +737,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -806,7 +806,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -876,7 +876,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -945,7 +945,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1015,7 +1015,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1084,7 +1084,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1155,7 +1155,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1227,7 +1227,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1279,7 +1279,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1327,7 +1327,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1380,7 +1380,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1435,7 +1435,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1487,7 +1487,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1535,7 +1535,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1588,7 +1588,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1642,7 +1642,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1694,7 +1694,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1742,7 +1742,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1795,7 +1795,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1851,7 +1851,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1903,7 +1903,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -1952,7 +1952,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -2005,7 +2005,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -2061,7 +2061,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -2113,7 +2113,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -2164,7 +2164,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif
@@ -2217,7 +2217,7 @@
     ictxt = psb_cd_get_context(desc_a)
     call psb_info(ictxt, me, np)
     if (np == -1) then
-      info = psb_err_blacs_error_
+      info = psb_err_context_error_
       call psb_errpush(info,name)
       goto 9999
     endif

base/tools/psb_callc.f90

@@ -70,7 +70,7 @@ subroutine psb_calloc(x, desc_a, info, n, lb)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -204,7 +204,7 @@ subroutine psb_callocv(x, desc_a,info,n)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_casb.f90

@@ -78,7 +78,7 @@ subroutine psb_casb(x, desc_a, info)
        & psb_cd_get_dectype(desc_a)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   else if (.not.psb_is_asb_desc(desc_a)) then
@@ -201,7 +201,7 @@ subroutine psb_casbv(x, desc_a, info)
 
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   else if (.not.psb_is_asb_desc(desc_a)) then

base/tools/psb_cdcpy.f90

@@ -68,7 +68,7 @@ subroutine psb_cdcpy(desc_in, desc_out, info)
   if (debug_level >= psb_debug_ext_) &
        & write(debug_unit,*) me,' ',trim(name),': Entered'
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_cdren.f90

@@ -77,7 +77,7 @@ subroutine psb_cdren(trans,iperm,desc_a,info)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_cfree.f90

@@ -67,7 +67,7 @@ subroutine psb_cfree(x, desc_a, info)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -137,7 +137,7 @@ subroutine psb_cfreev(x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-     info = psb_err_blacs_error_
+     info = psb_err_context_error_
      call psb_errpush(info,name)
      goto 9999
 

base/tools/psb_cins.f90

@@ -86,7 +86,7 @@ subroutine psb_cinsvi(m, irw, val, x, desc_a, info, dupl)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -267,7 +267,7 @@ subroutine psb_cinsi(m, irw, val, x, desc_a, info, dupl)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_cspalloc.f90

@@ -72,7 +72,7 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_cspasb.f90

@@ -83,7 +83,7 @@ subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl,mold)
   ! check on BLACS grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_dallc.f90

@@ -70,7 +70,7 @@ subroutine psb_dalloc(x, desc_a, info, n, lb)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -205,7 +205,7 @@ subroutine psb_dallocv(x, desc_a,info,n)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_dasb.f90

@@ -78,7 +78,7 @@ subroutine psb_dasb(x, desc_a, info)
        & psb_cd_get_dectype(desc_a)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   else if (.not.psb_is_asb_desc(desc_a)) then
@@ -201,7 +201,7 @@ subroutine psb_dasbv(x, desc_a, info)
 
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   else if (.not.psb_is_asb_desc(desc_a)) then

base/tools/psb_dfree.f90

@@ -67,7 +67,7 @@ subroutine psb_dfree(x, desc_a, info)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -135,7 +135,7 @@ subroutine psb_dfreev(x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_dins.f90

@@ -85,7 +85,7 @@ subroutine psb_dinsvi(m, irw, val, x, desc_a, info, dupl)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -267,7 +267,7 @@ subroutine psb_dinsi(m, irw, val, x, desc_a, info, dupl)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_dspalloc.f90

@@ -72,7 +72,7 @@ subroutine psb_dspalloc(a, desc_a, info, nnz)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_dspasb.f90

@@ -83,7 +83,7 @@ subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold)
   ! check on BLACS grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_ialloc.f90

@@ -68,7 +68,7 @@ subroutine psb_ialloc(x, desc_a, info, n, lb)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -202,7 +202,7 @@ subroutine psb_iallocv(x, desc_a, info,n)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_iasb.f90

@@ -78,7 +78,7 @@ subroutine psb_iasb(x, desc_a, info)
        & psb_cd_get_dectype(desc_a)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   else if (.not.psb_is_asb_desc(desc_a)) then
@@ -202,7 +202,7 @@ subroutine psb_iasbv(x, desc_a, info)
 
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   else if (.not.psb_is_asb_desc(desc_a)) then

base/tools/psb_icdasb.F90

@@ -84,7 +84,7 @@ subroutine psb_icdasb(desc_a,info,ext_hv)
   ! check on blacs grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_ifree.f90

@@ -68,7 +68,7 @@ subroutine psb_ifree(x, desc_a, info)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -168,7 +168,7 @@ subroutine psb_ifreev(x, desc_a,info)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_iins.f90

@@ -85,7 +85,7 @@ subroutine psb_iinsvi(m, irw, val, x, desc_a, info, dupl)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -266,7 +266,7 @@ subroutine psb_iinsi(m, irw, val, x, desc_a, info, dupl)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_sallc.f90

@@ -70,7 +70,7 @@ subroutine psb_salloc(x, desc_a, info, n, lb)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -205,7 +205,7 @@ subroutine psb_sallocv(x, desc_a,info,n)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_sasb.f90

@@ -78,7 +78,7 @@ subroutine psb_sasb(x, desc_a, info)
        & psb_cd_get_dectype(desc_a)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   else if (.not.psb_is_asb_desc(desc_a)) then
@@ -201,7 +201,7 @@ subroutine psb_sasbv(x, desc_a, info)
 
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   else if (.not.psb_is_asb_desc(desc_a)) then

base/tools/psb_sfree.f90

@@ -67,7 +67,7 @@ subroutine psb_sfree(x, desc_a, info)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -135,7 +135,7 @@ subroutine psb_sfreev(x, desc_a, info)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_sins.f90

@@ -85,7 +85,7 @@ subroutine psb_sinsvi(m, irw, val, x, desc_a, info, dupl)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif
@@ -267,7 +267,7 @@ subroutine psb_sinsi(m, irw, val, x, desc_a, info, dupl)
 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_sspalloc.f90

@@ -72,7 +72,7 @@ subroutine psb_sspalloc(a, desc_a, info, nnz)
   call psb_info(ictxt, me, np)
   !     ....verify blacs grid correctness..
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif

base/tools/psb_sspasb.f90

@@ -83,7 +83,7 @@ subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold)
   ! check on BLACS grid 
   call psb_info(ictxt, me, np)
   if (np == -1) then
-    info = psb_err_blacs_error_
+    info = psb_err_context_error_
     call psb_errpush(info,name)
     goto 9999
   endif