mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-20 12:52:14 +00:00
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
This commit is contained in:
@@ -158,9 +158,8 @@ module psb_const_mod
|
||||
integer, parameter, public :: psb_err_missing_override_method_=700
|
||||
integer, parameter, public :: psb_err_invalid_cd_state_=1122
|
||||
integer, parameter, public :: psb_err_invalid_a_and_cd_state_=1123
|
||||
integer, parameter, public :: psb_err_blacs_error_=2010
|
||||
integer, parameter, public :: psb_err_context_error_=2010
|
||||
integer, parameter, public :: psb_err_initerror_neugh_procs_=2011
|
||||
integer, parameter, public :: psb_err_blacs_err_gridcols_not_1_=2030
|
||||
integer, parameter, public :: psb_err_invalid_matrix_input_state_=2231
|
||||
integer, parameter, public :: psb_err_input_no_regen_=2232
|
||||
integer, parameter, public :: psb_err_lld_case_not_implemented_=3010
|
||||
|
||||
@@ -854,7 +854,7 @@ contains
|
||||
call psb_info(ictxt, me, np)
|
||||
! ....verify blacs grid correctness..
|
||||
if (np == -1) then
|
||||
info = psb_err_blacs_error_
|
||||
info = psb_err_context_error_
|
||||
call psb_errpush(info,name)
|
||||
goto 9999
|
||||
endif
|
||||
|
||||
@@ -431,15 +431,11 @@ contains
|
||||
write (error_unit,'("Invalid combined state for A and DESC_A")')
|
||||
case(1124:1999)
|
||||
write (error_unit,'("computational error. code: ",i0)')err_c
|
||||
case(psb_err_blacs_error_)
|
||||
write (error_unit,'("BLACS error. Number of processes=-1")')
|
||||
case(psb_err_context_error_)
|
||||
write (0,'("Parallel context error. Number of processes=-1")')
|
||||
case(psb_err_initerror_neugh_procs_)
|
||||
write (error_unit,&
|
||||
& '("Initialization error: not enough processes available in the parallel environment")')
|
||||
case(psb_err_blacs_err_gridcols_not_1_)
|
||||
write (error_unit,&
|
||||
& '("BLACS ERROR: Number of grid columns must be equal to 1\nCurrent value is ",i4," != 1.")')&
|
||||
&i_e_d(1)
|
||||
case(psb_err_invalid_matrix_input_state_)
|
||||
write (error_unit,'("Invalid input state for matrix.")')
|
||||
case(psb_err_input_no_regen_)
|
||||
|
||||
Reference in New Issue
Block a user