From f5e604e65df9c0e6c49792d7d3ea1d1e8c0e106e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 21 Dec 2014 21:38:56 +0000 Subject: [PATCH] mld2p4-2: mlprec/mld_c_base_solver_mod.f90 mlprec/mld_d_base_solver_mod.f90 mlprec/mld_s_base_solver_mod.f90 mlprec/mld_z_base_solver_mod.f90 New error handling. --- mlprec/mld_c_base_solver_mod.f90 | 2 +- mlprec/mld_d_base_solver_mod.f90 | 2 +- mlprec/mld_s_base_solver_mod.f90 | 2 +- mlprec/mld_z_base_solver_mod.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/mld_c_base_solver_mod.f90 b/mlprec/mld_c_base_solver_mod.f90 index e8722500..3623e9b6 100644 --- a/mlprec/mld_c_base_solver_mod.f90 +++ b/mlprec/mld_c_base_solver_mod.f90 @@ -56,7 +56,7 @@ module mld_c_base_solver_mod use mld_base_prec_type use psb_base_mod, only : psb_cspmat_type, & & psb_c_vect_type, psb_c_base_vect_type, psb_c_base_sparse_mat, & - & psb_i_base_vect_type + & psb_i_base_vect_type, psb_erractionsave, psb_error_handler ! ! ! Type: mld_T_base_solver_type. diff --git a/mlprec/mld_d_base_solver_mod.f90 b/mlprec/mld_d_base_solver_mod.f90 index d69a8df5..6d901226 100644 --- a/mlprec/mld_d_base_solver_mod.f90 +++ b/mlprec/mld_d_base_solver_mod.f90 @@ -56,7 +56,7 @@ module mld_d_base_solver_mod use mld_base_prec_type use psb_base_mod, only : psb_dspmat_type, & & psb_d_vect_type, psb_d_base_vect_type, psb_d_base_sparse_mat, & - & psb_i_base_vect_type + & psb_i_base_vect_type, psb_erractionsave, psb_error_handler ! ! ! Type: mld_T_base_solver_type. diff --git a/mlprec/mld_s_base_solver_mod.f90 b/mlprec/mld_s_base_solver_mod.f90 index 82b966f6..48b9696c 100644 --- a/mlprec/mld_s_base_solver_mod.f90 +++ b/mlprec/mld_s_base_solver_mod.f90 @@ -56,7 +56,7 @@ module mld_s_base_solver_mod use mld_base_prec_type use psb_base_mod, only : psb_sspmat_type, & & psb_s_vect_type, psb_s_base_vect_type, psb_s_base_sparse_mat, & - & psb_i_base_vect_type + & psb_i_base_vect_type, psb_erractionsave, psb_error_handler ! ! ! Type: mld_T_base_solver_type. diff --git a/mlprec/mld_z_base_solver_mod.f90 b/mlprec/mld_z_base_solver_mod.f90 index d8b362bb..815414d7 100644 --- a/mlprec/mld_z_base_solver_mod.f90 +++ b/mlprec/mld_z_base_solver_mod.f90 @@ -56,7 +56,7 @@ module mld_z_base_solver_mod use mld_base_prec_type use psb_base_mod, only : psb_zspmat_type, & & psb_z_vect_type, psb_z_base_vect_type, psb_z_base_sparse_mat, & - & psb_i_base_vect_type + & psb_i_base_vect_type, psb_erractionsave, psb_error_handler ! ! ! Type: mld_T_base_solver_type.