From 1bd9fb01f644e837bb1f6b6ba88b3b3ca5e974d6 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 17 Jun 2010 09:02:33 +0000 Subject: [PATCH] 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 | 4 +- base/comm/psb_chalo.f90 | 4 +- base/comm/psb_covrl.f90 | 4 +- base/comm/psb_cscatter.F90 | 4 +- base/comm/psb_dgather.f90 | 4 +- base/comm/psb_dhalo.f90 | 4 +- base/comm/psb_dovrl.f90 | 4 +- base/comm/psb_dscatter.F90 | 4 +- base/comm/psb_igather.f90 | 4 +- base/comm/psb_ihalo.f90 | 4 +- base/comm/psb_iovrl.f90 | 4 +- base/comm/psb_iscatter.F90 | 4 +- base/comm/psb_sgather.f90 | 4 +- base/comm/psb_shalo.f90 | 4 +- base/comm/psb_sovrl.f90 | 4 +- base/comm/psb_sscatter.F90 | 4 +- base/comm/psb_zgather.f90 | 4 +- base/comm/psb_zhalo.f90 | 4 +- base/comm/psb_zovrl.f90 | 4 +- base/comm/psb_zscatter.F90 | 4 +- base/internals/psi_bld_g2lmap.f90 | 2 +- base/internals/psi_bld_tmphalo.f90 | 2 +- base/internals/psi_bld_tmpovrl.f90 | 2 +- base/internals/psi_compute_size.f90 | 2 +- base/internals/psi_crea_index.f90 | 2 +- base/internals/psi_cswapdata.F90 | 8 ++-- base/internals/psi_cswaptran.F90 | 8 ++-- base/internals/psi_desc_index.F90 | 2 +- base/internals/psi_dswapdata.F90 | 8 ++-- base/internals/psi_dswaptran.F90 | 8 ++-- base/internals/psi_fnd_owner.F90 | 4 +- base/internals/psi_iswapdata.F90 | 8 ++-- base/internals/psi_iswaptran.F90 | 8 ++-- base/internals/psi_ldsc_pre_halo.f90 | 2 +- base/internals/psi_sswapdata.F90 | 8 ++-- base/internals/psi_sswaptran.F90 | 8 ++-- base/internals/psi_zswapdata.F90 | 8 ++-- base/internals/psi_zswaptran.F90 | 8 ++-- base/modules/psb_const_mod.F90 | 3 +- base/modules/psb_desc_type.f90 | 2 +- base/modules/psb_error_mod.F90 | 8 +--- base/psblas/psb_camax.f90 | 8 ++-- base/psblas/psb_casum.f90 | 6 +-- base/psblas/psb_caxpby.f90 | 4 +- base/psblas/psb_cdot.f90 | 8 ++-- base/psblas/psb_cnrm2.f90 | 6 +-- base/psblas/psb_cnrmi.f90 | 2 +- base/psblas/psb_cspmm.f90 | 4 +- base/psblas/psb_cspsm.f90 | 4 +- base/psblas/psb_damax.f90 | 8 ++-- base/psblas/psb_dasum.f90 | 6 +-- base/psblas/psb_daxpby.f90 | 4 +- base/psblas/psb_ddot.f90 | 8 ++-- base/psblas/psb_dnrm2.f90 | 6 +-- base/psblas/psb_dnrmi.f90 | 2 +- base/psblas/psb_dspmm.f90 | 4 +- base/psblas/psb_dspsm.f90 | 4 +- base/psblas/psb_samax.f90 | 8 ++-- base/psblas/psb_sasum.f90 | 6 +-- base/psblas/psb_saxpby.f90 | 4 +- base/psblas/psb_sdot.f90 | 8 ++-- base/psblas/psb_snrm2.f90 | 6 +-- base/psblas/psb_snrmi.f90 | 2 +- base/psblas/psb_sspmm.f90 | 4 +- base/psblas/psb_sspsm.f90 | 4 +- base/psblas/psb_sxdot.f90 | 8 ++-- base/psblas/psb_zamax.f90 | 8 ++-- base/psblas/psb_zasum.f90 | 6 +-- base/psblas/psb_zaxpby.f90 | 4 +- base/psblas/psb_zdot.f90 | 8 ++-- base/psblas/psb_znrm2.f90 | 6 +-- base/psblas/psb_znrmi.f90 | 2 +- base/psblas/psb_zspmm.f90 | 4 +- base/psblas/psb_zspsm.f90 | 4 +- base/serial/psi_impl.f90 | 62 ++++++++++++++-------------- base/tools/psb_callc.f90 | 4 +- base/tools/psb_casb.f90 | 4 +- base/tools/psb_cdcpy.f90 | 2 +- base/tools/psb_cdren.f90 | 2 +- base/tools/psb_cfree.f90 | 4 +- base/tools/psb_cins.f90 | 4 +- base/tools/psb_cspalloc.f90 | 2 +- base/tools/psb_cspasb.f90 | 2 +- base/tools/psb_dallc.f90 | 4 +- base/tools/psb_dasb.f90 | 4 +- base/tools/psb_dfree.f90 | 4 +- base/tools/psb_dins.f90 | 4 +- base/tools/psb_dspalloc.f90 | 2 +- base/tools/psb_dspasb.f90 | 2 +- base/tools/psb_ialloc.f90 | 4 +- base/tools/psb_iasb.f90 | 4 +- base/tools/psb_icdasb.F90 | 2 +- base/tools/psb_ifree.f90 | 4 +- base/tools/psb_iins.f90 | 4 +- base/tools/psb_sallc.f90 | 4 +- base/tools/psb_sasb.f90 | 4 +- base/tools/psb_sfree.f90 | 4 +- base/tools/psb_sins.f90 | 4 +- base/tools/psb_sspalloc.f90 | 2 +- base/tools/psb_sspasb.f90 | 2 +- base/tools/psb_zallc.f90 | 4 +- base/tools/psb_zasb.f90 | 4 +- base/tools/psb_zfree.f90 | 4 +- base/tools/psb_zins.f90 | 4 +- base/tools/psb_zspalloc.f90 | 2 +- base/tools/psb_zspasb.f90 | 2 +- test/serial/Makefile | 7 +++- test/serial/d_coo_matgen.f03 | 4 +- 108 files changed, 270 insertions(+), 272 deletions(-) diff --git a/base/comm/psb_cgather.f90 b/base/comm/psb_cgather.f90 index d5be12f6..f5d92792 100644 --- a/base/comm/psb_cgather.f90 +++ b/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 diff --git a/base/comm/psb_chalo.f90 b/base/comm/psb_chalo.f90 index 7bd85991..7f0b7559 100644 --- a/base/comm/psb_chalo.f90 +++ b/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 diff --git a/base/comm/psb_covrl.f90 b/base/comm/psb_covrl.f90 index ea34edae..7ae3d415 100644 --- a/base/comm/psb_covrl.f90 +++ b/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 diff --git a/base/comm/psb_cscatter.F90 b/base/comm/psb_cscatter.F90 index 7faf2fc1..cfac125b 100644 --- a/base/comm/psb_cscatter.F90 +++ b/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 diff --git a/base/comm/psb_dgather.f90 b/base/comm/psb_dgather.f90 index d95d7bf5..1bd9a7f6 100644 --- a/base/comm/psb_dgather.f90 +++ b/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 diff --git a/base/comm/psb_dhalo.f90 b/base/comm/psb_dhalo.f90 index 5efbe6a8..7ca2ef3d 100644 --- a/base/comm/psb_dhalo.f90 +++ b/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 diff --git a/base/comm/psb_dovrl.f90 b/base/comm/psb_dovrl.f90 index 442185bb..20674414 100644 --- a/base/comm/psb_dovrl.f90 +++ b/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 diff --git a/base/comm/psb_dscatter.F90 b/base/comm/psb_dscatter.F90 index 563b24ab..0925a408 100644 --- a/base/comm/psb_dscatter.F90 +++ b/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 diff --git a/base/comm/psb_igather.f90 b/base/comm/psb_igather.f90 index 34dbb361..83ba5bcd 100644 --- a/base/comm/psb_igather.f90 +++ b/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 diff --git a/base/comm/psb_ihalo.f90 b/base/comm/psb_ihalo.f90 index 5fa99e6b..5ce24161 100644 --- a/base/comm/psb_ihalo.f90 +++ b/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 diff --git a/base/comm/psb_iovrl.f90 b/base/comm/psb_iovrl.f90 index f44a20e6..107c94cf 100644 --- a/base/comm/psb_iovrl.f90 +++ b/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 diff --git a/base/comm/psb_iscatter.F90 b/base/comm/psb_iscatter.F90 index 6d37c5f9..8b0aecc7 100644 --- a/base/comm/psb_iscatter.F90 +++ b/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 diff --git a/base/comm/psb_sgather.f90 b/base/comm/psb_sgather.f90 index 45314fbc..50ee1b1d 100644 --- a/base/comm/psb_sgather.f90 +++ b/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 diff --git a/base/comm/psb_shalo.f90 b/base/comm/psb_shalo.f90 index 9c87bca3..76595e96 100644 --- a/base/comm/psb_shalo.f90 +++ b/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 diff --git a/base/comm/psb_sovrl.f90 b/base/comm/psb_sovrl.f90 index d6d36568..8689f1fb 100644 --- a/base/comm/psb_sovrl.f90 +++ b/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 diff --git a/base/comm/psb_sscatter.F90 b/base/comm/psb_sscatter.F90 index 5e91d646..1d948cdc 100644 --- a/base/comm/psb_sscatter.F90 +++ b/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 diff --git a/base/comm/psb_zgather.f90 b/base/comm/psb_zgather.f90 index 06e3380b..8753f60c 100644 --- a/base/comm/psb_zgather.f90 +++ b/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 diff --git a/base/comm/psb_zhalo.f90 b/base/comm/psb_zhalo.f90 index ea49f413..83828677 100644 --- a/base/comm/psb_zhalo.f90 +++ b/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 diff --git a/base/comm/psb_zovrl.f90 b/base/comm/psb_zovrl.f90 index 4e481964..b7d5aa9c 100644 --- a/base/comm/psb_zovrl.f90 +++ b/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 diff --git a/base/comm/psb_zscatter.F90 b/base/comm/psb_zscatter.F90 index 0c0e967f..78bf5433 100644 --- a/base/comm/psb_zscatter.F90 +++ b/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 diff --git a/base/internals/psi_bld_g2lmap.f90 b/base/internals/psi_bld_g2lmap.f90 index 4f5e5158..c4309c07 100644 --- a/base/internals/psi_bld_g2lmap.f90 +++ b/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 diff --git a/base/internals/psi_bld_tmphalo.f90 b/base/internals/psi_bld_tmphalo.f90 index 4354fbe0..7c1f4395 100644 --- a/base/internals/psi_bld_tmphalo.f90 +++ b/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 diff --git a/base/internals/psi_bld_tmpovrl.f90 b/base/internals/psi_bld_tmpovrl.f90 index 31039f98..d592f971 100644 --- a/base/internals/psi_bld_tmpovrl.f90 +++ b/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 diff --git a/base/internals/psi_compute_size.f90 b/base/internals/psi_compute_size.f90 index 12ef98c4..1a0d7461 100644 --- a/base/internals/psi_compute_size.f90 +++ b/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 diff --git a/base/internals/psi_crea_index.f90 b/base/internals/psi_crea_index.f90 index da6dc7cf..e4febb67 100644 --- a/base/internals/psi_crea_index.f90 +++ b/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 diff --git a/base/internals/psi_cswapdata.F90 b/base/internals/psi_cswapdata.F90 index 9c0d36e9..c1d3238e 100644 --- a/base/internals/psi_cswapdata.F90 +++ b/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 diff --git a/base/internals/psi_cswaptran.F90 b/base/internals/psi_cswaptran.F90 index b5a15542..9375d03d 100644 --- a/base/internals/psi_cswaptran.F90 +++ b/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 diff --git a/base/internals/psi_desc_index.F90 b/base/internals/psi_desc_index.F90 index f2deabeb..27abe52c 100644 --- a/base/internals/psi_desc_index.F90 +++ b/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 diff --git a/base/internals/psi_dswapdata.F90 b/base/internals/psi_dswapdata.F90 index 72fa9fbd..03199dff 100644 --- a/base/internals/psi_dswapdata.F90 +++ b/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 diff --git a/base/internals/psi_dswaptran.F90 b/base/internals/psi_dswaptran.F90 index 2feab115..c736a22e 100644 --- a/base/internals/psi_dswaptran.F90 +++ b/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 diff --git a/base/internals/psi_fnd_owner.F90 b/base/internals/psi_fnd_owner.F90 index f2fa5752..d70efca3 100644 --- a/base/internals/psi_fnd_owner.F90 +++ b/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 diff --git a/base/internals/psi_iswapdata.F90 b/base/internals/psi_iswapdata.F90 index f671b843..6b00c076 100644 --- a/base/internals/psi_iswapdata.F90 +++ b/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 diff --git a/base/internals/psi_iswaptran.F90 b/base/internals/psi_iswaptran.F90 index 9665d622..84df3bf2 100644 --- a/base/internals/psi_iswaptran.F90 +++ b/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 diff --git a/base/internals/psi_ldsc_pre_halo.f90 b/base/internals/psi_ldsc_pre_halo.f90 index 80e1c467..56c7b01c 100644 --- a/base/internals/psi_ldsc_pre_halo.f90 +++ b/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 diff --git a/base/internals/psi_sswapdata.F90 b/base/internals/psi_sswapdata.F90 index bed77607..cfef5e1c 100644 --- a/base/internals/psi_sswapdata.F90 +++ b/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 diff --git a/base/internals/psi_sswaptran.F90 b/base/internals/psi_sswaptran.F90 index c05be959..53f197aa 100644 --- a/base/internals/psi_sswaptran.F90 +++ b/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 diff --git a/base/internals/psi_zswapdata.F90 b/base/internals/psi_zswapdata.F90 index 8e114fd7..2988e515 100644 --- a/base/internals/psi_zswapdata.F90 +++ b/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 diff --git a/base/internals/psi_zswaptran.F90 b/base/internals/psi_zswaptran.F90 index 9902573f..d9159842 100644 --- a/base/internals/psi_zswaptran.F90 +++ b/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 diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 319a9992..cc8c3814 100644 --- a/base/modules/psb_const_mod.F90 +++ b/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 diff --git a/base/modules/psb_desc_type.f90 b/base/modules/psb_desc_type.f90 index 7f3402d0..bc586b14 100644 --- a/base/modules/psb_desc_type.f90 +++ b/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 diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90 index 94385ff1..a86c5ba7 100644 --- a/base/modules/psb_error_mod.F90 +++ b/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_) - 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_) diff --git a/base/psblas/psb_camax.f90 b/base/psblas/psb_camax.f90 index 1ed2838a..67c5c658 100644 --- a/base/psblas/psb_camax.f90 +++ b/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 diff --git a/base/psblas/psb_casum.f90 b/base/psblas/psb_casum.f90 index 5f9a3858..b2ea9f97 100644 --- a/base/psblas/psb_casum.f90 +++ b/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 diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index eef939a1..349888a9 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/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 diff --git a/base/psblas/psb_cdot.f90 b/base/psblas/psb_cdot.f90 index be31c1aa..60050cae 100644 --- a/base/psblas/psb_cdot.f90 +++ b/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 diff --git a/base/psblas/psb_cnrm2.f90 b/base/psblas/psb_cnrm2.f90 index 57314c2d..77b3e094 100644 --- a/base/psblas/psb_cnrm2.f90 +++ b/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 diff --git a/base/psblas/psb_cnrmi.f90 b/base/psblas/psb_cnrmi.f90 index f870f55b..15317e27 100644 --- a/base/psblas/psb_cnrmi.f90 +++ b/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 diff --git a/base/psblas/psb_cspmm.f90 b/base/psblas/psb_cspmm.f90 index bcf20512..2c901930 100644 --- a/base/psblas/psb_cspmm.f90 +++ b/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 diff --git a/base/psblas/psb_cspsm.f90 b/base/psblas/psb_cspsm.f90 index 70a1cd85..19f37889 100644 --- a/base/psblas/psb_cspsm.f90 +++ b/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 diff --git a/base/psblas/psb_damax.f90 b/base/psblas/psb_damax.f90 index 2a48c215..015a0a87 100644 --- a/base/psblas/psb_damax.f90 +++ b/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 diff --git a/base/psblas/psb_dasum.f90 b/base/psblas/psb_dasum.f90 index 36ff400d..fabf970f 100644 --- a/base/psblas/psb_dasum.f90 +++ b/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 diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index cb882485..93b416a9 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/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 diff --git a/base/psblas/psb_ddot.f90 b/base/psblas/psb_ddot.f90 index 72b1d787..983c5b2f 100644 --- a/base/psblas/psb_ddot.f90 +++ b/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 diff --git a/base/psblas/psb_dnrm2.f90 b/base/psblas/psb_dnrm2.f90 index 9aabb36b..334f100b 100644 --- a/base/psblas/psb_dnrm2.f90 +++ b/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 diff --git a/base/psblas/psb_dnrmi.f90 b/base/psblas/psb_dnrmi.f90 index 8d699042..8018630b 100644 --- a/base/psblas/psb_dnrmi.f90 +++ b/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 diff --git a/base/psblas/psb_dspmm.f90 b/base/psblas/psb_dspmm.f90 index 92c2de42..497c6b4b 100644 --- a/base/psblas/psb_dspmm.f90 +++ b/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 diff --git a/base/psblas/psb_dspsm.f90 b/base/psblas/psb_dspsm.f90 index 59f2242c..53064a00 100644 --- a/base/psblas/psb_dspsm.f90 +++ b/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 diff --git a/base/psblas/psb_samax.f90 b/base/psblas/psb_samax.f90 index 2157018d..e7207048 100644 --- a/base/psblas/psb_samax.f90 +++ b/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 diff --git a/base/psblas/psb_sasum.f90 b/base/psblas/psb_sasum.f90 index 0c943b7b..fa8f39e4 100644 --- a/base/psblas/psb_sasum.f90 +++ b/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 diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index d7a0db92..9bdeaf88 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/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 diff --git a/base/psblas/psb_sdot.f90 b/base/psblas/psb_sdot.f90 index 2f064770..d79c4f8a 100644 --- a/base/psblas/psb_sdot.f90 +++ b/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 diff --git a/base/psblas/psb_snrm2.f90 b/base/psblas/psb_snrm2.f90 index 3d1a3083..976a0273 100644 --- a/base/psblas/psb_snrm2.f90 +++ b/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 diff --git a/base/psblas/psb_snrmi.f90 b/base/psblas/psb_snrmi.f90 index 53988395..7dd6d8c4 100644 --- a/base/psblas/psb_snrmi.f90 +++ b/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 diff --git a/base/psblas/psb_sspmm.f90 b/base/psblas/psb_sspmm.f90 index f5e2d069..150c6e3d 100644 --- a/base/psblas/psb_sspmm.f90 +++ b/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 diff --git a/base/psblas/psb_sspsm.f90 b/base/psblas/psb_sspsm.f90 index a10f5694..a7385261 100644 --- a/base/psblas/psb_sspsm.f90 +++ b/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 diff --git a/base/psblas/psb_sxdot.f90 b/base/psblas/psb_sxdot.f90 index 8e7982ac..b88a2f6d 100644 --- a/base/psblas/psb_sxdot.f90 +++ b/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 diff --git a/base/psblas/psb_zamax.f90 b/base/psblas/psb_zamax.f90 index 6158c503..0abd7eda 100644 --- a/base/psblas/psb_zamax.f90 +++ b/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 diff --git a/base/psblas/psb_zasum.f90 b/base/psblas/psb_zasum.f90 index 999695da..6aea6a04 100644 --- a/base/psblas/psb_zasum.f90 +++ b/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 diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index b0d2901b..8014ae04 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/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 diff --git a/base/psblas/psb_zdot.f90 b/base/psblas/psb_zdot.f90 index 6836ecdb..2a3ba34e 100644 --- a/base/psblas/psb_zdot.f90 +++ b/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 diff --git a/base/psblas/psb_znrm2.f90 b/base/psblas/psb_znrm2.f90 index 2995358c..7a6bb1ae 100644 --- a/base/psblas/psb_znrm2.f90 +++ b/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 diff --git a/base/psblas/psb_znrmi.f90 b/base/psblas/psb_znrmi.f90 index 77c2106c..d608c99c 100644 --- a/base/psblas/psb_znrmi.f90 +++ b/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 diff --git a/base/psblas/psb_zspmm.f90 b/base/psblas/psb_zspmm.f90 index 693b2afb..28b9a8c4 100644 --- a/base/psblas/psb_zspmm.f90 +++ b/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 diff --git a/base/psblas/psb_zspsm.f90 b/base/psblas/psb_zspsm.f90 index c0e59390..cdf381b4 100644 --- a/base/psblas/psb_zspsm.f90 +++ b/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 diff --git a/base/serial/psi_impl.f90 b/base/serial/psi_impl.f90 index b697bd00..4131da6e 100644 --- a/base/serial/psi_impl.f90 +++ b/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 diff --git a/base/tools/psb_callc.f90 b/base/tools/psb_callc.f90 index 76ff8b62..0dcb6989 100644 --- a/base/tools/psb_callc.f90 +++ b/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 diff --git a/base/tools/psb_casb.f90 b/base/tools/psb_casb.f90 index 3d2fe0aa..4ed577bf 100644 --- a/base/tools/psb_casb.f90 +++ b/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 diff --git a/base/tools/psb_cdcpy.f90 b/base/tools/psb_cdcpy.f90 index 1b5930c1..05a23754 100644 --- a/base/tools/psb_cdcpy.f90 +++ b/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 diff --git a/base/tools/psb_cdren.f90 b/base/tools/psb_cdren.f90 index 597e1f63..093486b1 100644 --- a/base/tools/psb_cdren.f90 +++ b/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 diff --git a/base/tools/psb_cfree.f90 b/base/tools/psb_cfree.f90 index a07e0af6..1d1914c9 100644 --- a/base/tools/psb_cfree.f90 +++ b/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 diff --git a/base/tools/psb_cins.f90 b/base/tools/psb_cins.f90 index e359d598..586661e3 100644 --- a/base/tools/psb_cins.f90 +++ b/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 diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90 index 42c31447..2138f8de 100644 --- a/base/tools/psb_cspalloc.f90 +++ b/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 diff --git a/base/tools/psb_cspasb.f90 b/base/tools/psb_cspasb.f90 index 207d7376..1b8ca3a8 100644 --- a/base/tools/psb_cspasb.f90 +++ b/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 diff --git a/base/tools/psb_dallc.f90 b/base/tools/psb_dallc.f90 index 6aacf4a0..c5f3994e 100644 --- a/base/tools/psb_dallc.f90 +++ b/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 diff --git a/base/tools/psb_dasb.f90 b/base/tools/psb_dasb.f90 index 1c2b5d34..11824e7f 100644 --- a/base/tools/psb_dasb.f90 +++ b/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 diff --git a/base/tools/psb_dfree.f90 b/base/tools/psb_dfree.f90 index aa7f0fd1..79a05d3d 100644 --- a/base/tools/psb_dfree.f90 +++ b/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 diff --git a/base/tools/psb_dins.f90 b/base/tools/psb_dins.f90 index fa4bb1f7..ffd911f1 100644 --- a/base/tools/psb_dins.f90 +++ b/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 diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90 index 260e3d02..5ca71723 100644 --- a/base/tools/psb_dspalloc.f90 +++ b/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 diff --git a/base/tools/psb_dspasb.f90 b/base/tools/psb_dspasb.f90 index a04b977c..e4f74a57 100644 --- a/base/tools/psb_dspasb.f90 +++ b/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 diff --git a/base/tools/psb_ialloc.f90 b/base/tools/psb_ialloc.f90 index 70682a0a..8109eb82 100644 --- a/base/tools/psb_ialloc.f90 +++ b/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 diff --git a/base/tools/psb_iasb.f90 b/base/tools/psb_iasb.f90 index 5175eccb..04e30b23 100644 --- a/base/tools/psb_iasb.f90 +++ b/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 diff --git a/base/tools/psb_icdasb.F90 b/base/tools/psb_icdasb.F90 index e5d88d7d..dedb7bdd 100644 --- a/base/tools/psb_icdasb.F90 +++ b/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 diff --git a/base/tools/psb_ifree.f90 b/base/tools/psb_ifree.f90 index baa74ff8..f2a11149 100644 --- a/base/tools/psb_ifree.f90 +++ b/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 diff --git a/base/tools/psb_iins.f90 b/base/tools/psb_iins.f90 index e1c2c490..27f7b7b5 100644 --- a/base/tools/psb_iins.f90 +++ b/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 diff --git a/base/tools/psb_sallc.f90 b/base/tools/psb_sallc.f90 index 9c1ac765..78636504 100644 --- a/base/tools/psb_sallc.f90 +++ b/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 diff --git a/base/tools/psb_sasb.f90 b/base/tools/psb_sasb.f90 index 88bac7dd..92998718 100644 --- a/base/tools/psb_sasb.f90 +++ b/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 diff --git a/base/tools/psb_sfree.f90 b/base/tools/psb_sfree.f90 index 48458ef1..68fa4cd6 100644 --- a/base/tools/psb_sfree.f90 +++ b/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 diff --git a/base/tools/psb_sins.f90 b/base/tools/psb_sins.f90 index dbf62243..04b683eb 100644 --- a/base/tools/psb_sins.f90 +++ b/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 diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90 index c81f88e4..49c087d7 100644 --- a/base/tools/psb_sspalloc.f90 +++ b/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 diff --git a/base/tools/psb_sspasb.f90 b/base/tools/psb_sspasb.f90 index 3f17f998..b2fc53c6 100644 --- a/base/tools/psb_sspasb.f90 +++ b/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 diff --git a/base/tools/psb_zallc.f90 b/base/tools/psb_zallc.f90 index ba9e762b..71e972d6 100644 --- a/base/tools/psb_zallc.f90 +++ b/base/tools/psb_zallc.f90 @@ -70,7 +70,7 @@ subroutine psb_zalloc(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_zallocv(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 diff --git a/base/tools/psb_zasb.f90 b/base/tools/psb_zasb.f90 index bde13b33..f1241416 100644 --- a/base/tools/psb_zasb.f90 +++ b/base/tools/psb_zasb.f90 @@ -78,7 +78,7 @@ subroutine psb_zasb(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_zasbv(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 diff --git a/base/tools/psb_zfree.f90 b/base/tools/psb_zfree.f90 index de5fcb15..6430d5d3 100644 --- a/base/tools/psb_zfree.f90 +++ b/base/tools/psb_zfree.f90 @@ -67,7 +67,7 @@ subroutine psb_zfree(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_zfreev(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 diff --git a/base/tools/psb_zins.f90 b/base/tools/psb_zins.f90 index 047f756b..b91e1cc4 100644 --- a/base/tools/psb_zins.f90 +++ b/base/tools/psb_zins.f90 @@ -86,7 +86,7 @@ subroutine psb_zinsvi(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_zinsi(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 diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90 index 9d37d2b0..fa11b9ed 100644 --- a/base/tools/psb_zspalloc.f90 +++ b/base/tools/psb_zspalloc.f90 @@ -72,7 +72,7 @@ subroutine psb_zspalloc(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 diff --git a/base/tools/psb_zspasb.f90 b/base/tools/psb_zspasb.f90 index 1ff4f76c..08ac4b45 100644 --- a/base/tools/psb_zspasb.f90 +++ b/base/tools/psb_zspasb.f90 @@ -83,7 +83,7 @@ subroutine psb_zspasb(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 diff --git a/test/serial/Makefile b/test/serial/Makefile index d2613410..00d3961b 100644 --- a/test/serial/Makefile +++ b/test/serial/Makefile @@ -15,7 +15,10 @@ FINCLUDES=$(FMFLAG)$(LIBDIR) $(FMFLAG). EXEDIR=./runs -all: d_coo_matgen d_matgen +all: d_coo_matgen d_matgen d_coo_err +d_coo_err: d_coo_err.o + $(F90LINK) d_coo_err.o -o d_coo_err $(PSBLAS_LIB) $(LDLIBS) + /bin/mv d_coo_err $(EXEDIR) d_coo_matgen: d_coo_matgen.o $(F90LINK) d_coo_matgen.o -o d_coo_matgen $(PSBLAS_LIB) $(LDLIBS) /bin/mv d_coo_matgen $(EXEDIR) @@ -40,7 +43,7 @@ spde: spde.o clean: /bin/rm -f d_coo_matgen.o d_matgen.o tpg.o ppde.o spde.o \ - psb_d_cxx_mat_mod.o psb_d_cxx_impl.o $(EXEDIR)/ppde + psb_d_cxx_mat_mod.o psb_d_cxx_impl.o *$(.mod) $(EXEDIR)/ppde verycleanlib: (cd ../..; make veryclean) lib: diff --git a/test/serial/d_coo_matgen.f03 b/test/serial/d_coo_matgen.f03 index 7ad38a79..11aacb93 100644 --- a/test/serial/d_coo_matgen.f03 +++ b/test/serial/d_coo_matgen.f03 @@ -169,7 +169,7 @@ contains character(len=20) :: name, ch_err, asbfmt info = psb_success_ - name = 'create_matrix' + name = 'creatae_matrix' call psb_erractionsave(err_act) call psb_info(ictxt, iam, np) @@ -407,7 +407,7 @@ contains tmov = psb_wtime()-t1 !!$ call acsr%print(22) if(iam == psb_root_) then - asbfmt = a%get_fmt() + asbfmt = acsr%get_fmt() write(*,'("The matrix has been generated and assembled in ",a3," format.")')& & asbfmt write(*,'("-allocation time : ",es12.5)') talc