mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-20 21:02:35 +00:00
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.
This commit is contained in:
@@ -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.
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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.
|
||||
|
||||
Reference in New Issue
Block a user