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
psblas3-type-indexed
Salvatore Filippone 15 years ago
parent 00a54cce70
commit 1bd9fb01f6

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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_)
write (error_unit,'("BLACS error. Number of processes=-1")')
case(psb_err_context_error_)
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_)

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

@ -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

Some files were not shown because too many files have changed in this diff Show More

Loading…
Cancel
Save