diff --git a/mlprec/mld_c_base_solver_mod.f90 b/mlprec/mld_c_base_solver_mod.f90 index f2042d17..220bad48 100644 --- a/mlprec/mld_c_base_solver_mod.f90 +++ b/mlprec/mld_c_base_solver_mod.f90 @@ -57,7 +57,7 @@ module mld_c_base_solver_mod use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_long_int_k_, & & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, & - & psb_success_, psb_err_alloc_dealloc_, & + & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, & & psb_c_vect_type, psb_c_base_vect_type, psb_c_base_sparse_mat, psb_spk_ ! ! diff --git a/mlprec/mld_d_base_solver_mod.f90 b/mlprec/mld_d_base_solver_mod.f90 index 453027df..ec5c4821 100644 --- a/mlprec/mld_d_base_solver_mod.f90 +++ b/mlprec/mld_d_base_solver_mod.f90 @@ -57,7 +57,7 @@ module mld_d_base_solver_mod use psb_base_mod, only : psb_desc_type, psb_dspmat_type, psb_long_int_k_, & & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, & - & psb_success_, psb_err_alloc_dealloc_, & + & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, & & psb_d_vect_type, psb_d_base_vect_type, psb_d_base_sparse_mat, psb_dpk_ ! ! diff --git a/mlprec/mld_s_base_solver_mod.f90 b/mlprec/mld_s_base_solver_mod.f90 index ad32cc8e..309880d3 100644 --- a/mlprec/mld_s_base_solver_mod.f90 +++ b/mlprec/mld_s_base_solver_mod.f90 @@ -57,7 +57,7 @@ module mld_s_base_solver_mod use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_long_int_k_, & & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, & - & psb_success_, psb_err_alloc_dealloc_, & + & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, & & psb_s_vect_type, psb_s_base_vect_type, psb_s_base_sparse_mat, psb_spk_ ! ! diff --git a/mlprec/mld_z_base_solver_mod.f90 b/mlprec/mld_z_base_solver_mod.f90 index 981e02ff..94083647 100644 --- a/mlprec/mld_z_base_solver_mod.f90 +++ b/mlprec/mld_z_base_solver_mod.f90 @@ -57,7 +57,7 @@ module mld_z_base_solver_mod use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_long_int_k_, & & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, & - & psb_success_, psb_err_alloc_dealloc_, & + & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, & & psb_z_vect_type, psb_z_base_vect_type, psb_z_base_sparse_mat, psb_dpk_ ! !