mld2p4-2:

examples/fileread/mld_cexample_1lev.f90 examples/fileread/mld_cexample_ml.f90 examples/fileread/mld_dexample_1lev.f90 examples/fileread/mld_dexample_ml.f90 examples/fileread/mld_sexample_1lev.f90 examples/fileread/mld_sexample_ml.f90 examples/fileread/mld_zexample_1lev.f90 examples/fileread/mld_zexample_ml.f90 examples/pdegen/mld_dexample_1lev.f90 examples/pdegen/mld_dexample_ml.f90 examples/pdegen/mld_sexample_1lev.f90 examples/pdegen/mld_sexample_ml.f90 mlprec/impl/level/mld_c_base_onelev_check.f90 mlprec/impl/level/mld_c_base_onelev_csetc.f90 mlprec/impl/level/mld_c_base_onelev_cseti.f90 mlprec/impl/level/mld_c_base_onelev_csetr.f90 mlprec/impl/level/mld_c_base_onelev_descr.f90 mlprec/impl/level/mld_c_base_onelev_setc.f90 mlprec/impl/level/mld_c_base_onelev_seti.f90 mlprec/impl/level/mld_c_base_onelev_setr.f90 mlprec/impl/level/mld_d_base_onelev_check.f90 mlprec/impl/level/mld_d_base_onelev_csetc.f90 mlprec/impl/level/mld_d_base_onelev_cseti.f90 mlprec/impl/level/mld_d_base_onelev_csetr.f90 mlprec/impl/level/mld_d_base_onelev_descr.f90 mlprec/impl/level/mld_d_base_onelev_setc.f90 mlprec/impl/level/mld_d_base_onelev_seti.f90 mlprec/impl/level/mld_d_base_onelev_setr.f90 mlprec/impl/level/mld_s_base_onelev_check.f90 mlprec/impl/level/mld_s_base_onelev_csetc.f90 mlprec/impl/level/mld_s_base_onelev_cseti.f90 mlprec/impl/level/mld_s_base_onelev_csetr.f90 mlprec/impl/level/mld_s_base_onelev_descr.f90 mlprec/impl/level/mld_s_base_onelev_setc.f90 mlprec/impl/level/mld_s_base_onelev_seti.f90 mlprec/impl/level/mld_s_base_onelev_setr.f90 mlprec/impl/level/mld_z_base_onelev_check.f90 mlprec/impl/level/mld_z_base_onelev_csetc.f90 mlprec/impl/level/mld_z_base_onelev_cseti.f90 mlprec/impl/level/mld_z_base_onelev_csetr.f90 mlprec/impl/level/mld_z_base_onelev_descr.f90 mlprec/impl/level/mld_z_base_onelev_setc.f90 mlprec/impl/level/mld_z_base_onelev_seti.f90 mlprec/impl/level/mld_z_base_onelev_setr.f90 mlprec/impl/mld_c_dec_map_bld.f90 mlprec/impl/mld_caggrmap_bld.f90 mlprec/impl/mld_caggrmat_asb.f90 mlprec/impl/mld_caggrmat_biz_asb.f90 mlprec/impl/mld_caggrmat_minnrg_asb.f90 mlprec/impl/mld_caggrmat_nosmth_asb.f90 mlprec/impl/mld_caggrmat_smth_asb.f90 mlprec/impl/mld_ccoarse_bld.f90 mlprec/impl/mld_cilu0_fact.f90 mlprec/impl/mld_ciluk_fact.f90 mlprec/impl/mld_cilut_fact.f90 mlprec/impl/mld_cmlprec_aply.f90 mlprec/impl/mld_cmlprec_bld.f90 mlprec/impl/mld_cprecaply.f90 mlprec/impl/mld_cprecbld.f90 mlprec/impl/mld_cslu_bld.f90 mlprec/impl/mld_cslud_bld.f90 mlprec/impl/mld_csp_renum.f90 mlprec/impl/mld_d_dec_map_bld.f90 mlprec/impl/mld_daggrmap_bld.f90 mlprec/impl/mld_daggrmat_asb.f90 mlprec/impl/mld_daggrmat_biz_asb.f90 mlprec/impl/mld_daggrmat_minnrg_asb.f90 mlprec/impl/mld_daggrmat_nosmth_asb.f90 mlprec/impl/mld_daggrmat_smth_asb.f90 mlprec/impl/mld_dcoarse_bld.f90 mlprec/impl/mld_dilu0_fact.f90 mlprec/impl/mld_diluk_fact.f90 mlprec/impl/mld_dilut_fact.f90 mlprec/impl/mld_dmlprec_aply.f90 mlprec/impl/mld_dmlprec_bld.f90 mlprec/impl/mld_dprecaply.f90 mlprec/impl/mld_dprecbld.f90 mlprec/impl/mld_dslu_bld.f90 mlprec/impl/mld_dslud_bld.f90 mlprec/impl/mld_dsp_renum.f90 mlprec/impl/mld_s_dec_map_bld.f90 mlprec/impl/mld_saggrmap_bld.f90 mlprec/impl/mld_saggrmat_asb.f90 mlprec/impl/mld_saggrmat_biz_asb.f90 mlprec/impl/mld_saggrmat_minnrg_asb.f90 mlprec/impl/mld_saggrmat_nosmth_asb.f90 mlprec/impl/mld_saggrmat_smth_asb.f90 mlprec/impl/mld_scoarse_bld.f90 mlprec/impl/mld_silu0_fact.f90 mlprec/impl/mld_siluk_fact.f90 mlprec/impl/mld_silut_fact.f90 mlprec/impl/mld_smlprec_aply.f90 mlprec/impl/mld_smlprec_bld.f90 mlprec/impl/mld_sprecaply.f90 mlprec/impl/mld_sprecbld.f90 mlprec/impl/mld_sslu_bld.f90 mlprec/impl/mld_sslud_bld.f90 mlprec/impl/mld_ssp_renum.f90 mlprec/impl/mld_z_dec_map_bld.f90 mlprec/impl/mld_z_onelev_impl.f90 mlprec/impl/mld_zaggrmap_bld.f90 mlprec/impl/mld_zaggrmat_asb.f90 mlprec/impl/mld_zaggrmat_biz_asb.f90 mlprec/impl/mld_zaggrmat_minnrg_asb.f90 mlprec/impl/mld_zaggrmat_nosmth_asb.f90 mlprec/impl/mld_zaggrmat_smth_asb.f90 mlprec/impl/mld_zcoarse_bld.f90 mlprec/impl/mld_zilu0_fact.f90 mlprec/impl/mld_ziluk_fact.f90 mlprec/impl/mld_zilut_fact.f90 mlprec/impl/mld_zmlprec_aply.f90 mlprec/impl/mld_zmlprec_bld.f90 mlprec/impl/mld_zprecaply.f90 mlprec/impl/mld_zprecbld.f90 mlprec/impl/mld_zslu_bld.f90 mlprec/impl/mld_zslud_bld.f90 mlprec/impl/mld_zsp_renum.f90 mlprec/impl/smoother/mld_c_as_smoother_apply.f90 mlprec/impl/smoother/mld_c_as_smoother_apply_vect.f90 mlprec/impl/smoother/mld_c_as_smoother_bld.f90 mlprec/impl/smoother/mld_c_as_smoother_check.f90 mlprec/impl/smoother/mld_c_as_smoother_clone.f90 mlprec/impl/smoother/mld_c_as_smoother_cnv.f90 mlprec/impl/smoother/mld_c_as_smoother_csetc.f90 mlprec/impl/smoother/mld_c_as_smoother_cseti.f90 mlprec/impl/smoother/mld_c_as_smoother_csetr.f90 mlprec/impl/smoother/mld_c_as_smoother_free.f90 mlprec/impl/smoother/mld_c_as_smoother_setc.f90 mlprec/impl/smoother/mld_c_as_smoother_seti.f90 mlprec/impl/smoother/mld_c_as_smoother_setr.f90 mlprec/impl/smoother/mld_c_base_smoother_apply.f90 mlprec/impl/smoother/mld_c_base_smoother_apply_vect.f90 mlprec/impl/smoother/mld_c_base_smoother_bld.f90 mlprec/impl/smoother/mld_c_base_smoother_check.f90 mlprec/impl/smoother/mld_c_base_smoother_clone.f90 mlprec/impl/smoother/mld_c_base_smoother_cnv.f90 mlprec/impl/smoother/mld_c_base_smoother_csetc.f90 mlprec/impl/smoother/mld_c_base_smoother_cseti.f90 mlprec/impl/smoother/mld_c_base_smoother_csetr.f90 mlprec/impl/smoother/mld_c_base_smoother_descr.f90 mlprec/impl/smoother/mld_c_base_smoother_free.f90 mlprec/impl/smoother/mld_c_base_smoother_setc.f90 mlprec/impl/smoother/mld_c_base_smoother_seti.f90 mlprec/impl/smoother/mld_c_base_smoother_setr.f90 mlprec/impl/smoother/mld_c_jac_smoother_apply.f90 mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90 mlprec/impl/smoother/mld_c_jac_smoother_bld.f90 mlprec/impl/smoother/mld_c_jac_smoother_clone.f90 mlprec/impl/smoother/mld_c_jac_smoother_cnv.f90 mlprec/impl/smoother/mld_d_as_smoother_apply.f90 mlprec/impl/smoother/mld_d_as_smoother_apply_vect.f90 mlprec/impl/smoother/mld_d_as_smoother_bld.f90 mlprec/impl/smoother/mld_d_as_smoother_check.f90 mlprec/impl/smoother/mld_d_as_smoother_clone.f90 mlprec/impl/smoother/mld_d_as_smoother_cnv.f90 mlprec/impl/smoother/mld_d_as_smoother_csetc.f90 mlprec/impl/smoother/mld_d_as_smoother_cseti.f90 mlprec/impl/smoother/mld_d_as_smoother_csetr.f90 mlprec/impl/smoother/mld_d_as_smoother_free.f90 mlprec/impl/smoother/mld_d_as_smoother_setc.f90 mlprec/impl/smoother/mld_d_as_smoother_seti.f90 mlprec/impl/smoother/mld_d_as_smoother_setr.f90 mlprec/impl/smoother/mld_d_base_smoother_apply.f90 mlprec/impl/smoother/mld_d_base_smoother_apply_vect.f90 mlprec/impl/smoother/mld_d_base_smoother_bld.f90 mlprec/impl/smoother/mld_d_base_smoother_check.f90 mlprec/impl/smoother/mld_d_base_smoother_clone.f90 mlprec/impl/smoother/mld_d_base_smoother_cnv.f90 mlprec/impl/smoother/mld_d_base_smoother_csetc.f90 mlprec/impl/smoother/mld_d_base_smoother_cseti.f90 mlprec/impl/smoother/mld_d_base_smoother_csetr.f90 mlprec/impl/smoother/mld_d_base_smoother_descr.f90 mlprec/impl/smoother/mld_d_base_smoother_free.f90 mlprec/impl/smoother/mld_d_base_smoother_setc.f90 mlprec/impl/smoother/mld_d_base_smoother_seti.f90 mlprec/impl/smoother/mld_d_base_smoother_setr.f90 mlprec/impl/smoother/mld_d_jac_smoother_apply.f90 mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90 mlprec/impl/smoother/mld_d_jac_smoother_bld.f90 mlprec/impl/smoother/mld_d_jac_smoother_clone.f90 mlprec/impl/smoother/mld_d_jac_smoother_cnv.f90 mlprec/impl/smoother/mld_s_as_smoother_apply.f90 mlprec/impl/smoother/mld_s_as_smoother_apply_vect.f90 mlprec/impl/smoother/mld_s_as_smoother_bld.f90 mlprec/impl/smoother/mld_s_as_smoother_check.f90 mlprec/impl/smoother/mld_s_as_smoother_clone.f90 mlprec/impl/smoother/mld_s_as_smoother_cnv.f90 mlprec/impl/smoother/mld_s_as_smoother_csetc.f90 mlprec/impl/smoother/mld_s_as_smoother_cseti.f90 mlprec/impl/smoother/mld_s_as_smoother_csetr.f90 mlprec/impl/smoother/mld_s_as_smoother_free.f90 mlprec/impl/smoother/mld_s_as_smoother_setc.f90 mlprec/impl/smoother/mld_s_as_smoother_seti.f90 mlprec/impl/smoother/mld_s_as_smoother_setr.f90 mlprec/impl/smoother/mld_s_base_smoother_apply.f90 mlprec/impl/smoother/mld_s_base_smoother_apply_vect.f90 mlprec/impl/smoother/mld_s_base_smoother_bld.f90 mlprec/impl/smoother/mld_s_base_smoother_check.f90 mlprec/impl/smoother/mld_s_base_smoother_clone.f90 mlprec/impl/smoother/mld_s_base_smoother_cnv.f90 mlprec/impl/smoother/mld_s_base_smoother_csetc.f90 mlprec/impl/smoother/mld_s_base_smoother_cseti.f90 mlprec/impl/smoother/mld_s_base_smoother_csetr.f90 mlprec/impl/smoother/mld_s_base_smoother_descr.f90 mlprec/impl/smoother/mld_s_base_smoother_free.f90 mlprec/impl/smoother/mld_s_base_smoother_setc.f90 mlprec/impl/smoother/mld_s_base_smoother_seti.f90 mlprec/impl/smoother/mld_s_base_smoother_setr.f90 mlprec/impl/smoother/mld_s_jac_smoother_apply.f90 mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90 mlprec/impl/smoother/mld_s_jac_smoother_bld.f90 mlprec/impl/smoother/mld_s_jac_smoother_clone.f90 mlprec/impl/smoother/mld_s_jac_smoother_cnv.f90 mlprec/impl/smoother/mld_z_as_smoother_apply.f90 mlprec/impl/smoother/mld_z_as_smoother_apply_vect.f90 mlprec/impl/smoother/mld_z_as_smoother_bld.f90 mlprec/impl/smoother/mld_z_as_smoother_check.f90 mlprec/impl/smoother/mld_z_as_smoother_clone.f90 mlprec/impl/smoother/mld_z_as_smoother_cnv.f90 mlprec/impl/smoother/mld_z_as_smoother_csetc.f90 mlprec/impl/smoother/mld_z_as_smoother_cseti.f90 mlprec/impl/smoother/mld_z_as_smoother_csetr.f90 mlprec/impl/smoother/mld_z_as_smoother_free.f90 mlprec/impl/smoother/mld_z_as_smoother_setc.f90 mlprec/impl/smoother/mld_z_as_smoother_seti.f90 mlprec/impl/smoother/mld_z_as_smoother_setr.f90 mlprec/impl/smoother/mld_z_base_smoother_apply.f90 mlprec/impl/smoother/mld_z_base_smoother_apply_vect.f90 mlprec/impl/smoother/mld_z_base_smoother_bld.f90 mlprec/impl/smoother/mld_z_base_smoother_check.f90 mlprec/impl/smoother/mld_z_base_smoother_clone.f90 mlprec/impl/smoother/mld_z_base_smoother_cnv.f90 mlprec/impl/smoother/mld_z_base_smoother_csetc.f90 mlprec/impl/smoother/mld_z_base_smoother_cseti.f90 mlprec/impl/smoother/mld_z_base_smoother_csetr.f90 mlprec/impl/smoother/mld_z_base_smoother_descr.f90 mlprec/impl/smoother/mld_z_base_smoother_free.f90 mlprec/impl/smoother/mld_z_base_smoother_setc.f90 mlprec/impl/smoother/mld_z_base_smoother_seti.f90 mlprec/impl/smoother/mld_z_base_smoother_setr.f90 mlprec/impl/smoother/mld_z_jac_smoother_apply.f90 mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90 mlprec/impl/smoother/mld_z_jac_smoother_bld.f90 mlprec/impl/smoother/mld_z_jac_smoother_clone.f90 mlprec/impl/smoother/mld_z_jac_smoother_cnv.f90 mlprec/impl/solver/mld_c_base_solver_apply.f90 mlprec/impl/solver/mld_c_base_solver_apply_vect.f90 mlprec/impl/solver/mld_c_base_solver_bld.f90 mlprec/impl/solver/mld_c_base_solver_check.f90 mlprec/impl/solver/mld_c_base_solver_clone.f90 mlprec/impl/solver/mld_c_base_solver_cnv.f90 mlprec/impl/solver/mld_c_base_solver_csetc.f90 mlprec/impl/solver/mld_c_base_solver_descr.f90 mlprec/impl/solver/mld_c_base_solver_free.f90 mlprec/impl/solver/mld_c_base_solver_setc.f90 mlprec/impl/solver/mld_c_diag_solver_apply.f90 mlprec/impl/solver/mld_c_diag_solver_apply_vect.f90 mlprec/impl/solver/mld_c_diag_solver_bld.f90 mlprec/impl/solver/mld_c_diag_solver_clone.f90 mlprec/impl/solver/mld_c_diag_solver_cnv.f90 mlprec/impl/solver/mld_c_id_solver_apply.f90 mlprec/impl/solver/mld_c_id_solver_apply_vect.f90 mlprec/impl/solver/mld_c_id_solver_clone.f90 mlprec/impl/solver/mld_c_ilu_solver_apply.f90 mlprec/impl/solver/mld_c_ilu_solver_apply_vect.f90 mlprec/impl/solver/mld_c_ilu_solver_bld.f90 mlprec/impl/solver/mld_c_ilu_solver_clone.f90 mlprec/impl/solver/mld_c_ilu_solver_cnv.f90 mlprec/impl/solver/mld_d_base_solver_apply.f90 mlprec/impl/solver/mld_d_base_solver_apply_vect.f90 mlprec/impl/solver/mld_d_base_solver_bld.f90 mlprec/impl/solver/mld_d_base_solver_check.f90 mlprec/impl/solver/mld_d_base_solver_clone.f90 mlprec/impl/solver/mld_d_base_solver_cnv.f90 mlprec/impl/solver/mld_d_base_solver_csetc.f90 mlprec/impl/solver/mld_d_base_solver_descr.f90 mlprec/impl/solver/mld_d_base_solver_free.f90 mlprec/impl/solver/mld_d_base_solver_setc.f90 mlprec/impl/solver/mld_d_diag_solver_apply.f90 mlprec/impl/solver/mld_d_diag_solver_apply_vect.f90 mlprec/impl/solver/mld_d_diag_solver_bld.f90 mlprec/impl/solver/mld_d_diag_solver_clone.f90 mlprec/impl/solver/mld_d_diag_solver_cnv.f90 mlprec/impl/solver/mld_d_id_solver_apply.f90 mlprec/impl/solver/mld_d_id_solver_apply_vect.f90 mlprec/impl/solver/mld_d_id_solver_clone.f90 mlprec/impl/solver/mld_d_ilu_solver_apply.f90 mlprec/impl/solver/mld_d_ilu_solver_apply_vect.f90 mlprec/impl/solver/mld_d_ilu_solver_bld.f90 mlprec/impl/solver/mld_d_ilu_solver_clone.f90 mlprec/impl/solver/mld_d_ilu_solver_cnv.f90 mlprec/impl/solver/mld_s_base_solver_apply.f90 mlprec/impl/solver/mld_s_base_solver_apply_vect.f90 mlprec/impl/solver/mld_s_base_solver_bld.f90 mlprec/impl/solver/mld_s_base_solver_check.f90 mlprec/impl/solver/mld_s_base_solver_clone.f90 mlprec/impl/solver/mld_s_base_solver_cnv.f90 mlprec/impl/solver/mld_s_base_solver_csetc.f90 mlprec/impl/solver/mld_s_base_solver_descr.f90 mlprec/impl/solver/mld_s_base_solver_free.f90 mlprec/impl/solver/mld_s_base_solver_setc.f90 mlprec/impl/solver/mld_s_diag_solver_apply.f90 mlprec/impl/solver/mld_s_diag_solver_apply_vect.f90 mlprec/impl/solver/mld_s_diag_solver_bld.f90 mlprec/impl/solver/mld_s_diag_solver_clone.f90 mlprec/impl/solver/mld_s_diag_solver_cnv.f90 mlprec/impl/solver/mld_s_id_solver_apply.f90 mlprec/impl/solver/mld_s_id_solver_apply_vect.f90 mlprec/impl/solver/mld_s_id_solver_clone.f90 mlprec/impl/solver/mld_s_ilu_solver_apply.f90 mlprec/impl/solver/mld_s_ilu_solver_apply_vect.f90 mlprec/impl/solver/mld_s_ilu_solver_bld.f90 mlprec/impl/solver/mld_s_ilu_solver_clone.f90 mlprec/impl/solver/mld_s_ilu_solver_cnv.f90 mlprec/impl/solver/mld_z_base_solver_apply.f90 mlprec/impl/solver/mld_z_base_solver_apply_vect.f90 mlprec/impl/solver/mld_z_base_solver_bld.f90 mlprec/impl/solver/mld_z_base_solver_check.f90 mlprec/impl/solver/mld_z_base_solver_clone.f90 mlprec/impl/solver/mld_z_base_solver_cnv.f90 mlprec/impl/solver/mld_z_base_solver_csetc.f90 mlprec/impl/solver/mld_z_base_solver_descr.f90 mlprec/impl/solver/mld_z_base_solver_free.f90 mlprec/impl/solver/mld_z_base_solver_setc.f90 mlprec/impl/solver/mld_z_diag_solver_apply.f90 mlprec/impl/solver/mld_z_diag_solver_apply_vect.f90 mlprec/impl/solver/mld_z_diag_solver_bld.f90 mlprec/impl/solver/mld_z_diag_solver_clone.f90 mlprec/impl/solver/mld_z_diag_solver_cnv.f90 mlprec/impl/solver/mld_z_id_solver_apply.f90 mlprec/impl/solver/mld_z_id_solver_apply_vect.f90 mlprec/impl/solver/mld_z_id_solver_clone.f90 mlprec/impl/solver/mld_z_ilu_solver_apply.f90 mlprec/impl/solver/mld_z_ilu_solver_apply_vect.f90 mlprec/impl/solver/mld_z_ilu_solver_bld.f90 mlprec/impl/solver/mld_z_ilu_solver_clone.f90 mlprec/impl/solver/mld_z_ilu_solver_cnv.f90 mlprec/mld_base_prec_type.F90 mlprec/mld_c_base_smoother_mod.f90 mlprec/mld_c_base_solver_mod.f90 mlprec/mld_c_onelev_mod.f90 mlprec/mld_d_base_smoother_mod.f90 mlprec/mld_d_base_solver_mod.f90 mlprec/mld_d_onelev_mod.f90 mlprec/mld_s_base_smoother_mod.f90 mlprec/mld_s_base_solver_mod.f90 mlprec/mld_s_ilu_impl.f90 mlprec/mld_s_onelev_mod.f90 mlprec/mld_z_base_smoother_mod.f90 mlprec/mld_z_base_solver_mod.f90 mlprec/mld_z_onelev_mod.f90 tests/fileread/cf_sample.f90 tests/fileread/df_sample.f90 tests/fileread/sf_sample.f90 tests/fileread/zf_sample.f90 tests/newslv/mld_d_tlu_solver.f90 tests/newslv/mld_d_tlu_solver_impl.f90 tests/newslv/ppde3d.f90 tests/pdegen/ppde2d.f90 tests/pdegen/ppde3d.f90 tests/pdegen/spde2d.f90 tests/pdegen/spde3d.f90 New error handling.
12 years ago · b2fd238ab4
parent f5e604e65d
commit b2fd238ab4
362 changed files with 851 additions and 3011 deletions
--- a/examples/fileread/mld_cexample_1lev.f90
+++ b/examples/fileread/mld_cexample_1lev.f90
@ -295,14 +295,12 @@ program mld_cexample_ml
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/fileread/mld_cexample_ml.f90
+++ b/examples/fileread/mld_cexample_ml.f90
@ -332,14 +332,12 @@ program mld_cexample_ml
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/fileread/mld_dexample_1lev.f90
+++ b/examples/fileread/mld_dexample_1lev.f90
@ -294,14 +294,12 @@ program mld_dexample_ml
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/fileread/mld_dexample_ml.f90
+++ b/examples/fileread/mld_dexample_ml.f90
@ -331,14 +331,12 @@ program mld_dexample_ml
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/fileread/mld_sexample_1lev.f90
+++ b/examples/fileread/mld_sexample_1lev.f90
@ -295,14 +295,12 @@ program mld_sexample_ml
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/fileread/mld_sexample_ml.f90
+++ b/examples/fileread/mld_sexample_ml.f90
@ -332,14 +332,12 @@ program mld_sexample_ml
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/fileread/mld_zexample_1lev.f90
+++ b/examples/fileread/mld_zexample_1lev.f90
@ -294,14 +294,12 @@ program mld_zexample_ml
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/fileread/mld_zexample_ml.f90
+++ b/examples/fileread/mld_zexample_ml.f90
@ -331,14 +331,12 @@ program mld_zexample_ml
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/pdegen/mld_dexample_1lev.f90
+++ b/examples/pdegen/mld_dexample_1lev.f90
@ -276,14 +276,12 @@ program mld_dexample_1lev
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/pdegen/mld_dexample_ml.f90
+++ b/examples/pdegen/mld_dexample_ml.f90
@ -317,14 +317,12 @@ program mld_dexample_ml
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/pdegen/mld_sexample_1lev.f90
+++ b/examples/pdegen/mld_sexample_1lev.f90
@ -281,14 +281,12 @@ program mld_sexample_1lev
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/examples/pdegen/mld_sexample_ml.f90
+++ b/examples/pdegen/mld_sexample_ml.f90
@ -317,14 +317,12 @@ program mld_sexample_ml
  call psb_spfree(A, desc_A,info)
  call mld_precfree(P,info)
  call psb_cdfree(desc_A,info)
 9999 continue
  if(info /= psb_success_) then
    call psb_error(ictxt)
  end if
  call psb_exit(ictxt)
  stop
 9999 continue
  call psb_error(ictxt)
 contains
  !
  ! get parameters from standard input
--- a/mlprec/impl/level/mld_c_base_onelev_check.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_check.f90
@ -73,11 +73,7 @@ subroutine mld_c_base_onelev_check(lv,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_c_base_onelev_check
--- a/mlprec/impl/level/mld_c_base_onelev_csetc.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_csetc.f90
@ -71,11 +71,7 @@ subroutine mld_c_base_onelev_csetc(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_c_base_onelev_csetc
--- a/mlprec/impl/level/mld_c_base_onelev_cseti.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_cseti.f90
@ -103,11 +103,7 @@ subroutine mld_c_base_onelev_cseti(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_c_base_onelev_cseti
--- a/mlprec/impl/level/mld_c_base_onelev_csetr.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_csetr.f90
@ -74,11 +74,7 @@ subroutine mld_c_base_onelev_csetr(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_c_base_onelev_csetr
--- a/mlprec/impl/level/mld_c_base_onelev_descr.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_descr.f90
@ -94,11 +94,7 @@ subroutine mld_c_base_onelev_descr(lv,il,nl,info,iout)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_c_base_onelev_descr
--- a/mlprec/impl/level/mld_c_base_onelev_setc.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_setc.f90
@ -71,11 +71,7 @@ subroutine mld_c_base_onelev_setc(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_c_base_onelev_setc
--- a/mlprec/impl/level/mld_c_base_onelev_seti.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_seti.f90
@ -103,11 +103,7 @@ subroutine mld_c_base_onelev_seti(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_c_base_onelev_seti
--- a/mlprec/impl/level/mld_c_base_onelev_setr.f90
+++ b/mlprec/impl/level/mld_c_base_onelev_setr.f90
@ -74,11 +74,7 @@ subroutine mld_c_base_onelev_setr(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_c_base_onelev_setr
--- a/mlprec/impl/level/mld_d_base_onelev_check.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_check.f90
@ -73,11 +73,7 @@ subroutine mld_d_base_onelev_check(lv,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_d_base_onelev_check
--- a/mlprec/impl/level/mld_d_base_onelev_csetc.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_csetc.f90
@ -71,11 +71,7 @@ subroutine mld_d_base_onelev_csetc(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_d_base_onelev_csetc
--- a/mlprec/impl/level/mld_d_base_onelev_cseti.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_cseti.f90
@ -103,11 +103,7 @@ subroutine mld_d_base_onelev_cseti(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_d_base_onelev_cseti
--- a/mlprec/impl/level/mld_d_base_onelev_csetr.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_csetr.f90
@ -74,11 +74,7 @@ subroutine mld_d_base_onelev_csetr(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_d_base_onelev_csetr
--- a/mlprec/impl/level/mld_d_base_onelev_descr.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_descr.f90
@ -94,11 +94,7 @@ subroutine mld_d_base_onelev_descr(lv,il,nl,info,iout)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_d_base_onelev_descr
--- a/mlprec/impl/level/mld_d_base_onelev_setc.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_setc.f90
@ -71,11 +71,7 @@ subroutine mld_d_base_onelev_setc(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_d_base_onelev_setc
--- a/mlprec/impl/level/mld_d_base_onelev_seti.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_seti.f90
@ -103,11 +103,7 @@ subroutine mld_d_base_onelev_seti(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_d_base_onelev_seti
--- a/mlprec/impl/level/mld_d_base_onelev_setr.f90
+++ b/mlprec/impl/level/mld_d_base_onelev_setr.f90
@ -74,11 +74,7 @@ subroutine mld_d_base_onelev_setr(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_d_base_onelev_setr
--- a/mlprec/impl/level/mld_s_base_onelev_check.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_check.f90
@ -73,11 +73,7 @@ subroutine mld_s_base_onelev_check(lv,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_s_base_onelev_check
--- a/mlprec/impl/level/mld_s_base_onelev_csetc.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_csetc.f90
@ -71,11 +71,7 @@ subroutine mld_s_base_onelev_csetc(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_s_base_onelev_csetc
--- a/mlprec/impl/level/mld_s_base_onelev_cseti.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_cseti.f90
@ -103,11 +103,7 @@ subroutine mld_s_base_onelev_cseti(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_s_base_onelev_cseti
--- a/mlprec/impl/level/mld_s_base_onelev_csetr.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_csetr.f90
@ -74,11 +74,7 @@ subroutine mld_s_base_onelev_csetr(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_s_base_onelev_csetr
--- a/mlprec/impl/level/mld_s_base_onelev_descr.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_descr.f90
@ -94,11 +94,7 @@ subroutine mld_s_base_onelev_descr(lv,il,nl,info,iout)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_s_base_onelev_descr
--- a/mlprec/impl/level/mld_s_base_onelev_setc.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_setc.f90
@ -71,11 +71,7 @@ subroutine mld_s_base_onelev_setc(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_s_base_onelev_setc
--- a/mlprec/impl/level/mld_s_base_onelev_seti.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_seti.f90
@ -103,11 +103,7 @@ subroutine mld_s_base_onelev_seti(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_s_base_onelev_seti
--- a/mlprec/impl/level/mld_s_base_onelev_setr.f90
+++ b/mlprec/impl/level/mld_s_base_onelev_setr.f90
@ -74,11 +74,7 @@ subroutine mld_s_base_onelev_setr(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_s_base_onelev_setr
--- a/mlprec/impl/level/mld_z_base_onelev_check.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_check.f90
@ -73,11 +73,7 @@ subroutine mld_z_base_onelev_check(lv,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_check
--- a/mlprec/impl/level/mld_z_base_onelev_csetc.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_csetc.f90
@ -71,11 +71,7 @@ subroutine mld_z_base_onelev_csetc(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_csetc
--- a/mlprec/impl/level/mld_z_base_onelev_cseti.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_cseti.f90
@ -103,11 +103,7 @@ subroutine mld_z_base_onelev_cseti(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_cseti
--- a/mlprec/impl/level/mld_z_base_onelev_csetr.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_csetr.f90
@ -74,11 +74,7 @@ subroutine mld_z_base_onelev_csetr(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_csetr
--- a/mlprec/impl/level/mld_z_base_onelev_descr.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_descr.f90
@ -94,11 +94,7 @@ subroutine mld_z_base_onelev_descr(lv,il,nl,info,iout)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_descr
--- a/mlprec/impl/level/mld_z_base_onelev_setc.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_setc.f90
@ -71,11 +71,7 @@ subroutine mld_z_base_onelev_setc(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_setc
--- a/mlprec/impl/level/mld_z_base_onelev_seti.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_seti.f90
@ -103,11 +103,7 @@ subroutine mld_z_base_onelev_seti(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_seti
--- a/mlprec/impl/level/mld_z_base_onelev_setr.f90
+++ b/mlprec/impl/level/mld_z_base_onelev_setr.f90
@ -74,11 +74,7 @@ subroutine mld_z_base_onelev_setr(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_setr
--- a/mlprec/impl/mld_c_dec_map_bld.f90
+++ b/mlprec/impl/mld_c_dec_map_bld.f90
@ -319,12 +319,8 @@ subroutine mld_c_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_c_dec_map_bld
--- a/mlprec/impl/mld_caggrmap_bld.f90
+++ b/mlprec/impl/mld_caggrmap_bld.f90
@ -153,12 +153,8 @@ subroutine mld_caggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_caggrmap_bld
--- a/mlprec/impl/mld_caggrmat_asb.f90
+++ b/mlprec/impl/mld_caggrmat_asb.f90
@ -273,12 +273,8 @@ subroutine mld_caggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_caggrmat_asb
--- a/mlprec/impl/mld_caggrmat_biz_asb.f90
+++ b/mlprec/impl/mld_caggrmat_biz_asb.f90
@ -404,13 +404,8 @@ subroutine mld_caggrmat_biz_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr
 9999 continue
  call psb_errpush(info,name)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
  call psb_error_handler(err_act)
  return
 end subroutine mld_caggrmat_biz_asb
--- a/mlprec/impl/mld_caggrmat_minnrg_asb.f90
+++ b/mlprec/impl/mld_caggrmat_minnrg_asb.f90
@ -593,11 +593,7 @@ subroutine mld_caggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
 9999 continue
  call psb_errpush(info,name)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
--- a/mlprec/impl/mld_caggrmat_nosmth_asb.f90
+++ b/mlprec/impl/mld_caggrmat_nosmth_asb.f90
@ -175,12 +175,8 @@ subroutine mld_caggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_caggrmat_nosmth_asb
--- a/mlprec/impl/mld_caggrmat_smth_asb.f90
+++ b/mlprec/impl/mld_caggrmat_smth_asb.f90
@ -418,13 +418,7 @@ subroutine mld_caggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
 9999 continue
  call psb_errpush(info,name)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_caggrmat_smth_asb
--- a/mlprec/impl/mld_ccoarse_bld.f90
+++ b/mlprec/impl/mld_ccoarse_bld.f90
@ -146,12 +146,7 @@ subroutine mld_ccoarse_bld(a,desc_a,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+  return
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  Return
 end subroutine mld_ccoarse_bld
--- a/mlprec/impl/mld_cilu0_fact.f90
+++ b/mlprec/impl/mld_cilu0_fact.f90
@ -201,12 +201,8 @@ subroutine mld_cilu0_fact(ialg,a,l,u,d,info,blck, upd)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -475,13 +471,10 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine mld_cilu0_factint
  !
@ -661,13 +654,10 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine ilu_copyin
 end subroutine mld_cilu0_fact
--- a/mlprec/impl/mld_ciluk_fact.f90
+++ b/mlprec/impl/mld_ciluk_fact.f90
@ -193,12 +193,8 @@ subroutine mld_ciluk_fact(fill_in,ialg,a,l,u,d,info,blck)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
     call psb_error()
     return
  end if
  return
 contains
@ -418,13 +414,9 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine mld_ciluk_factint
  !
@ -569,12 +561,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine iluk_copyin
@ -968,12 +955,8 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+    return
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
  end subroutine iluk_copyout
--- a/mlprec/impl/mld_cilut_fact.f90
+++ b/mlprec/impl/mld_cilut_fact.f90
@ -214,12 +214,7 @@ subroutine mld_cilut_fact(fill_in,thres,a,l,u,d,info,blck,iscale)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
     call psb_error()
     return
  end if
  return
 contains
@ -425,13 +420,9 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine mld_cilut_factint
  !
@ -639,12 +630,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine ilut_copyin
@ -1186,12 +1172,8 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+    return
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
  end subroutine ilut_copyout
--- a/mlprec/impl/mld_cmlprec_aply.f90
+++ b/mlprec/impl/mld_cmlprec_aply.f90
@ -394,12 +394,8 @@ subroutine mld_cmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -965,12 +961,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine inner_ml_aply
@ -1088,12 +1079,8 @@ subroutine mld_cmlprec_aply_vect(alpha,p,x,beta,y,desc_data,trans,work,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -1649,12 +1636,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine inner_ml_aply
--- a/mlprec/impl/mld_cmlprec_bld.f90
+++ b/mlprec/impl/mld_cmlprec_bld.f90
@ -514,14 +514,9 @@ subroutine mld_cmlprec_bld(a,desc_a,p,info,amold,vmold,imold)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
  return
 contains
--- a/mlprec/impl/mld_cprecaply.f90
+++ b/mlprec/impl/mld_cprecaply.f90
@ -163,12 +163,8 @@ subroutine mld_cprecaply(prec,x,y,desc_data,info,trans,work)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_cprecaply
@ -260,13 +256,9 @@ subroutine mld_cprecaply1(prec,x,desc_data,info,trans)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
     call psb_error()
     return
  end if
  return
 end subroutine mld_cprecaply1
@ -365,12 +357,8 @@ subroutine mld_cprecaply2_vect(prec,x,y,desc_data,info,trans,work)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_cprecaply2_vect
@ -474,12 +462,8 @@ subroutine mld_cprecaply1_vect(prec,x,desc_data,info,trans,work)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_cprecaply1_vect
--- a/mlprec/impl/mld_cprecbld.f90
+++ b/mlprec/impl/mld_cprecbld.f90
@ -204,13 +204,8 @@ subroutine mld_cprecbld(a,desc_a,p,info,amold,vmold,imold)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
  return
 end subroutine mld_cprecbld
--- a/mlprec/impl/mld_cslu_bld.f90
+++ b/mlprec/impl/mld_cslu_bld.f90
@ -119,13 +119,8 @@ subroutine mld_cslu_bld(a,desc_a,p,info)
  call psb_erractionrestore(err_act)
  return
-
+ 
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_cslu_bld
--- a/mlprec/impl/mld_cslud_bld.f90
+++ b/mlprec/impl/mld_cslud_bld.f90
@ -148,12 +148,7 @@ subroutine mld_csludist_bld(a,desc_a,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_csludist_bld
--- a/mlprec/impl/mld_csp_renum.f90
+++ b/mlprec/impl/mld_csp_renum.f90
@ -254,12 +254,7 @@ subroutine mld_csp_renum(a,blck,p,atmp,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -374,12 +369,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine gps_reduction
--- a/mlprec/impl/mld_d_dec_map_bld.f90
+++ b/mlprec/impl/mld_d_dec_map_bld.f90
@ -319,12 +319,8 @@ subroutine mld_d_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_d_dec_map_bld
--- a/mlprec/impl/mld_daggrmap_bld.f90
+++ b/mlprec/impl/mld_daggrmap_bld.f90
@ -153,12 +153,8 @@ subroutine mld_daggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_daggrmap_bld
--- a/mlprec/impl/mld_daggrmat_asb.f90
+++ b/mlprec/impl/mld_daggrmat_asb.f90
@ -259,10 +259,7 @@ subroutine mld_daggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
  !  op_restr => PR^T   i.e. restriction  operator
  !  op_prol => PR     i.e. prolongation operator
  !  
-!!$  write(0,*) 'allocated DSC_AC ',allocated(p%desc_ac%v_halo_index%v),&
+
 !!$       & allocated(p%desc_ac%v_ext_index%v),&
 !!$       & allocated(p%desc_ac%v_ovrlap_index%v),&
 !!$       &allocated(p%desc_ac%v_ovr_mst_idx%v)
  p%map = psb_linmap(psb_map_aggr_,desc_a,&
       & p%desc_ac,op_restr,op_prol,ilaggr,nlaggr)
  if (info == psb_success_) call op_prol%free()
@ -276,12 +273,8 @@ subroutine mld_daggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_daggrmat_asb
--- a/mlprec/impl/mld_daggrmat_biz_asb.f90
+++ b/mlprec/impl/mld_daggrmat_biz_asb.f90
@ -404,13 +404,8 @@ subroutine mld_daggrmat_biz_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr
 9999 continue
  call psb_errpush(info,name)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
  call psb_error_handler(err_act)
  return
 end subroutine mld_daggrmat_biz_asb
--- a/mlprec/impl/mld_daggrmat_minnrg_asb.f90
+++ b/mlprec/impl/mld_daggrmat_minnrg_asb.f90
@ -593,11 +593,7 @@ subroutine mld_daggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
 9999 continue
  call psb_errpush(info,name)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
--- a/mlprec/impl/mld_daggrmat_nosmth_asb.f90
+++ b/mlprec/impl/mld_daggrmat_nosmth_asb.f90
@ -175,12 +175,8 @@ subroutine mld_daggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_daggrmat_nosmth_asb
--- a/mlprec/impl/mld_daggrmat_smth_asb.f90
+++ b/mlprec/impl/mld_daggrmat_smth_asb.f90
@ -418,13 +418,7 @@ subroutine mld_daggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
 9999 continue
  call psb_errpush(info,name)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_daggrmat_smth_asb
--- a/mlprec/impl/mld_dcoarse_bld.f90
+++ b/mlprec/impl/mld_dcoarse_bld.f90
@ -146,12 +146,7 @@ subroutine mld_dcoarse_bld(a,desc_a,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+  return
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  Return
 end subroutine mld_dcoarse_bld
--- a/mlprec/impl/mld_dilu0_fact.f90
+++ b/mlprec/impl/mld_dilu0_fact.f90
@ -201,12 +201,8 @@ subroutine mld_dilu0_fact(ialg,a,l,u,d,info,blck, upd)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -475,13 +471,10 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine mld_dilu0_factint
  !
@ -661,13 +654,10 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine ilu_copyin
 end subroutine mld_dilu0_fact
--- a/mlprec/impl/mld_diluk_fact.f90
+++ b/mlprec/impl/mld_diluk_fact.f90
@ -193,12 +193,8 @@ subroutine mld_diluk_fact(fill_in,ialg,a,l,u,d,info,blck)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
     call psb_error()
     return
  end if
  return
 contains
@ -418,13 +414,9 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine mld_diluk_factint
  !
@ -569,12 +561,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine iluk_copyin
@ -968,12 +955,8 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+    return
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
  end subroutine iluk_copyout
--- a/mlprec/impl/mld_dilut_fact.f90
+++ b/mlprec/impl/mld_dilut_fact.f90
@ -214,12 +214,7 @@ subroutine mld_dilut_fact(fill_in,thres,a,l,u,d,info,blck,iscale)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
     call psb_error()
     return
  end if
  return
 contains
@ -425,13 +420,9 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine mld_dilut_factint
  !
@ -639,12 +630,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine ilut_copyin
@ -1186,12 +1172,8 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+    return
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
  end subroutine ilut_copyout
--- a/mlprec/impl/mld_dmlprec_aply.f90
+++ b/mlprec/impl/mld_dmlprec_aply.f90
@ -394,12 +394,8 @@ subroutine mld_dmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -965,12 +961,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine inner_ml_aply
@ -1088,12 +1079,8 @@ subroutine mld_dmlprec_aply_vect(alpha,p,x,beta,y,desc_data,trans,work,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -1649,12 +1636,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine inner_ml_aply
--- a/mlprec/impl/mld_dmlprec_bld.f90
+++ b/mlprec/impl/mld_dmlprec_bld.f90
@ -514,14 +514,9 @@ subroutine mld_dmlprec_bld(a,desc_a,p,info,amold,vmold,imold)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
  return
 contains
--- a/mlprec/impl/mld_dprecaply.f90
+++ b/mlprec/impl/mld_dprecaply.f90
@ -163,12 +163,8 @@ subroutine mld_dprecaply(prec,x,y,desc_data,info,trans,work)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_dprecaply
@ -260,13 +256,9 @@ subroutine mld_dprecaply1(prec,x,desc_data,info,trans)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
     call psb_error()
     return
  end if
  return
 end subroutine mld_dprecaply1
@ -365,12 +357,8 @@ subroutine mld_dprecaply2_vect(prec,x,y,desc_data,info,trans,work)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_dprecaply2_vect
@ -474,12 +462,8 @@ subroutine mld_dprecaply1_vect(prec,x,desc_data,info,trans,work)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_dprecaply1_vect
--- a/mlprec/impl/mld_dprecbld.f90
+++ b/mlprec/impl/mld_dprecbld.f90
@ -176,7 +176,7 @@ subroutine mld_dprecbld(a,desc_a,p,info,amold,vmold,imold)
      call p%precv(1)%sm%build(a,desc_a,upd_,info,&
           & amold=amold,vmold=vmold,imold=imold)
-    if ((info /= psb_success_).or.psb_errstatus_fatal()) then 
+      if (info /= psb_success_) then 
        call psb_errpush(psb_err_internal_error_,name,&
             & a_err='One level preconditioner build.')
        goto 9999
@ -192,7 +192,7 @@ subroutine mld_dprecbld(a,desc_a,p,info,amold,vmold,imold)
    call  mld_mlprec_bld(a,desc_a,p,info,&
         & amold=amold,vmold=vmold,imold=imold)
-    if ((info /= psb_success_).or.psb_errstatus_fatal()) then 
+    if (info /= psb_success_) then 
      call psb_errpush(psb_err_internal_error_,name,&
           & a_err='Multilevel preconditioner build.')
      goto 9999
@ -204,13 +204,8 @@ subroutine mld_dprecbld(a,desc_a,p,info,amold,vmold,imold)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
  return
 end subroutine mld_dprecbld
--- a/mlprec/impl/mld_dslu_bld.f90
+++ b/mlprec/impl/mld_dslu_bld.f90
@ -120,12 +120,7 @@ subroutine mld_dslu_bld(a,desc_a,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_dslu_bld
--- a/mlprec/impl/mld_dslud_bld.f90
+++ b/mlprec/impl/mld_dslud_bld.f90
@ -148,12 +148,7 @@ subroutine mld_dsludist_bld(a,desc_a,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_dsludist_bld
--- a/mlprec/impl/mld_dsp_renum.f90
+++ b/mlprec/impl/mld_dsp_renum.f90
@ -254,12 +254,7 @@ subroutine mld_dsp_renum(a,blck,p,atmp,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -374,12 +369,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine gps_reduction
--- a/mlprec/impl/mld_s_dec_map_bld.f90
+++ b/mlprec/impl/mld_s_dec_map_bld.f90
@ -319,12 +319,8 @@ subroutine mld_s_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_s_dec_map_bld
--- a/mlprec/impl/mld_saggrmap_bld.f90
+++ b/mlprec/impl/mld_saggrmap_bld.f90
@ -153,12 +153,8 @@ subroutine mld_saggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_saggrmap_bld
--- a/mlprec/impl/mld_saggrmat_asb.f90
+++ b/mlprec/impl/mld_saggrmat_asb.f90
@ -273,12 +273,8 @@ subroutine mld_saggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_saggrmat_asb
--- a/mlprec/impl/mld_saggrmat_biz_asb.f90
+++ b/mlprec/impl/mld_saggrmat_biz_asb.f90
@ -404,13 +404,8 @@ subroutine mld_saggrmat_biz_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr
 9999 continue
  call psb_errpush(info,name)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
  call psb_error_handler(err_act)
  return
 end subroutine mld_saggrmat_biz_asb
--- a/mlprec/impl/mld_saggrmat_minnrg_asb.f90
+++ b/mlprec/impl/mld_saggrmat_minnrg_asb.f90
@ -593,11 +593,7 @@ subroutine mld_saggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
 9999 continue
  call psb_errpush(info,name)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
--- a/mlprec/impl/mld_saggrmat_nosmth_asb.f90
+++ b/mlprec/impl/mld_saggrmat_nosmth_asb.f90
@ -175,12 +175,8 @@ subroutine mld_saggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_saggrmat_nosmth_asb
--- a/mlprec/impl/mld_saggrmat_smth_asb.f90
+++ b/mlprec/impl/mld_saggrmat_smth_asb.f90
@ -418,13 +418,7 @@ subroutine mld_saggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
 9999 continue
  call psb_errpush(info,name)
-  call psb_erractionrestore(err_act)
+  call psb_error_handler(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_saggrmat_smth_asb
--- a/mlprec/impl/mld_scoarse_bld.f90
+++ b/mlprec/impl/mld_scoarse_bld.f90
@ -146,12 +146,7 @@ subroutine mld_scoarse_bld(a,desc_a,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+  return
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  Return
 end subroutine mld_scoarse_bld
--- a/mlprec/impl/mld_silu0_fact.f90
+++ b/mlprec/impl/mld_silu0_fact.f90
@ -201,12 +201,8 @@ subroutine mld_silu0_fact(ialg,a,l,u,d,info,blck, upd)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -475,13 +471,10 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine mld_silu0_factint
  !
@ -661,13 +654,10 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine ilu_copyin
 end subroutine mld_silu0_fact
--- a/mlprec/impl/mld_siluk_fact.f90
+++ b/mlprec/impl/mld_siluk_fact.f90
@ -193,12 +193,8 @@ subroutine mld_siluk_fact(fill_in,ialg,a,l,u,d,info,blck)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
     call psb_error()
     return
  end if
  return
 contains
@ -418,13 +414,9 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine mld_siluk_factint
  !
@ -569,12 +561,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine iluk_copyin
@ -968,12 +955,8 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+    return
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
  end subroutine iluk_copyout
--- a/mlprec/impl/mld_silut_fact.f90
+++ b/mlprec/impl/mld_silut_fact.f90
@ -214,12 +214,7 @@ subroutine mld_silut_fact(fill_in,thres,a,l,u,d,info,blck,iscale)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
     call psb_error()
     return
  end if
  return
 contains
@ -425,13 +420,9 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine mld_silut_factint
  !
@ -639,12 +630,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine ilut_copyin
@ -1186,12 +1172,8 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
-    call psb_erractionrestore(err_act)
+    return
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
  end subroutine ilut_copyout
--- a/mlprec/impl/mld_smlprec_aply.f90
+++ b/mlprec/impl/mld_smlprec_aply.f90
@ -394,12 +394,8 @@ subroutine mld_smlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -965,12 +961,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine inner_ml_aply
@ -1088,12 +1079,8 @@ subroutine mld_smlprec_aply_vect(alpha,p,x,beta,y,desc_data,trans,work,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -1649,12 +1636,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine inner_ml_aply
--- a/mlprec/impl/mld_smlprec_bld.f90
+++ b/mlprec/impl/mld_smlprec_bld.f90
@ -514,14 +514,9 @@ subroutine mld_smlprec_bld(a,desc_a,p,info,amold,vmold,imold)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
  return
 contains
--- a/mlprec/impl/mld_sprecaply.f90
+++ b/mlprec/impl/mld_sprecaply.f90
@ -163,12 +163,8 @@ subroutine mld_sprecaply(prec,x,y,desc_data,info,trans,work)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_sprecaply
@ -260,13 +256,9 @@ subroutine mld_sprecaply1(prec,x,desc_data,info,trans)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
     call psb_error()
     return
  end if
  return
 end subroutine mld_sprecaply1
@ -365,12 +357,8 @@ subroutine mld_sprecaply2_vect(prec,x,y,desc_data,info,trans,work)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_sprecaply2_vect
@ -474,12 +462,8 @@ subroutine mld_sprecaply1_vect(prec,x,desc_data,info,trans,work)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_sprecaply1_vect
--- a/mlprec/impl/mld_sprecbld.f90
+++ b/mlprec/impl/mld_sprecbld.f90
@ -204,13 +204,8 @@ subroutine mld_sprecbld(a,desc_a,p,info,amold,vmold,imold)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
  return
 end subroutine mld_sprecbld
--- a/mlprec/impl/mld_sslu_bld.f90
+++ b/mlprec/impl/mld_sslu_bld.f90
@ -120,12 +120,7 @@ subroutine mld_sslu_bld(a,desc_a,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_sslu_bld
--- a/mlprec/impl/mld_sslud_bld.f90
+++ b/mlprec/impl/mld_sslud_bld.f90
@ -148,12 +148,7 @@ subroutine mld_ssludist_bld(a,desc_a,p,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_ssludist_bld
--- a/mlprec/impl/mld_ssp_renum.f90
+++ b/mlprec/impl/mld_ssp_renum.f90
@ -254,12 +254,7 @@ subroutine mld_ssp_renum(a,blck,p,atmp,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 contains
@ -374,12 +369,7 @@ contains
    call psb_erractionrestore(err_act)
    return
-9999 continue
+9999 call psb_error_handler(err_act)
    call psb_erractionrestore(err_act)
    if (err_act.eq.psb_act_abort_) then
      call psb_error()
      return
    end if
    return
  end subroutine gps_reduction
--- a/mlprec/impl/mld_z_dec_map_bld.f90
+++ b/mlprec/impl/mld_z_dec_map_bld.f90
@ -319,12 +319,8 @@ subroutine mld_z_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
-  call psb_erractionrestore(err_act)
+
  if (err_act.eq.psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_dec_map_bld
--- a/mlprec/impl/mld_z_onelev_impl.f90
+++ b/mlprec/impl/mld_z_onelev_impl.f90
@ -113,13 +113,9 @@ subroutine mld_z_base_onelev_descr(lv,il,nl,info,iout)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_descr
@ -210,12 +206,7 @@ subroutine mld_z_base_onelev_check(lv,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_check
@ -296,12 +287,7 @@ subroutine mld_z_base_onelev_seti(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_seti
@ -332,12 +318,7 @@ subroutine mld_z_base_onelev_setc(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_setc
@ -378,12 +359,7 @@ subroutine mld_z_base_onelev_setr(lv,what,val,info)
  call psb_erractionrestore(err_act)
  return
-9999 continue
+9999 call psb_error_handler(err_act)
  call psb_erractionrestore(err_act)
  if (err_act == psb_act_abort_) then
    call psb_error()
    return
  end if
  return
 end subroutine mld_z_base_onelev_setr
--- a/Show More
+++ b/Show More