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
This commit is contained in:
Salvatore Filippone
2010-06-17 09:02:33 +00:00
parent 00a54cce70
commit 1bd9fb01f6
108 changed files with 270 additions and 272 deletions
+1 -2
View File
@@ -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
+1 -1
View File
@@ -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
+2 -6
View File
@@ -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_)