mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-19 20:32:12 +00:00
psblas3:
base/modules/psb_const_mod.F90 base/modules/psb_error_mod.F90 base/modules/psb_realloc_mod.F90 base/serial/f03/psb_c_base_mat_impl.f03 base/serial/f03/psb_c_coo_impl.f03 base/serial/f03/psb_c_csc_impl.f03 base/serial/f03/psb_c_csr_impl.f03 base/serial/f03/psb_c_mat_impl.f03 base/serial/f03/psb_d_base_mat_impl.f03 base/serial/f03/psb_d_coo_impl.f03 base/serial/f03/psb_d_csc_impl.f03 base/serial/f03/psb_d_csr_impl.f03 base/serial/f03/psb_d_mat_impl.f03 base/serial/f03/psb_s_base_mat_impl.f03 base/serial/f03/psb_s_coo_impl.f03 base/serial/f03/psb_s_csc_impl.f03 base/serial/f03/psb_s_csr_impl.f03 base/serial/f03/psb_s_mat_impl.f03 base/serial/f03/psb_z_base_mat_impl.f03 base/serial/f03/psb_z_coo_impl.f03 base/serial/f03/psb_z_csc_impl.f03 base/serial/f03/psb_z_csr_impl.f03 base/serial/f03/psb_z_mat_impl.f03 base/serial/psb_cnumbmm.f90 base/serial/psb_csymbmm.f90 base/serial/psb_dnumbmm.f90 base/serial/psb_dsymbmm.f90 base/serial/psb_snumbmm.f90 base/serial/psb_ssymbmm.f90 base/serial/psb_znumbmm.f90 base/serial/psb_zsymbmm.f90 test/serial/Makefile test/serial/d_matgen.f03 test/serial/psb_d_cxx_impl.f03 test/serial/psb_d_cxx_mat_mod.f03 New psb_err_invalid_mat_state_ and error message. Debug statements REMEMBER TO TAKE THEM OUT!!
This commit is contained in:
@@ -428,6 +428,8 @@ contains
|
||||
write(psb_err_unit,&
|
||||
& '("Base class method ",a," called: the class for ",a," is missing an overriding implementation")')&
|
||||
& trim(r_name), trim(a_e_d)
|
||||
case (psb_err_invalid_mat_state_)
|
||||
write(psb_err_unit,'("Invalid state for sparse matrix")')
|
||||
case (psb_err_invalid_cd_state_)
|
||||
write(psb_err_unit,'("Invalid state for communication descriptor")')
|
||||
case (psb_err_invalid_a_and_cd_state_)
|
||||
|
||||
Reference in New Issue
Block a user