From 9c95835ed5f8d667be4fff076d4998a177c09eeb Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 28 May 2020 13:12:17 +0200 Subject: [PATCH] Fix clone for L1_JAC --- mlprec/impl/smoother/mld_c_l1_jac_smoother_clone.f90 | 5 +++++ mlprec/impl/smoother/mld_d_l1_jac_smoother_clone.f90 | 5 +++++ mlprec/impl/smoother/mld_s_l1_jac_smoother_clone.f90 | 5 +++++ mlprec/impl/smoother/mld_z_l1_jac_smoother_clone.f90 | 5 +++++ 4 files changed, 20 insertions(+) diff --git a/mlprec/impl/smoother/mld_c_l1_jac_smoother_clone.f90 b/mlprec/impl/smoother/mld_c_l1_jac_smoother_clone.f90 index cbd80b81..3e6d38b0 100644 --- a/mlprec/impl/smoother/mld_c_l1_jac_smoother_clone.f90 +++ b/mlprec/impl/smoother/mld_c_l1_jac_smoother_clone.f90 @@ -67,6 +67,11 @@ subroutine mld_c_l1_jac_smoother_clone(sm,smout,info) select type(smo => smout) type is (mld_c_l1_jac_smoother_type) smo%nd_nnz_tot = sm%nd_nnz_tot + smo%checkres = sm%checkres + smo%printres = sm%printres + smo%checkiter = sm%checkiter + smo%printiter = sm%printiter + smo%tol = sm%tol call sm%nd%clone(smo%nd,info) if ((info==psb_success_).and.(allocated(sm%sv))) then allocate(smout%sv,mold=sm%sv,stat=info) diff --git a/mlprec/impl/smoother/mld_d_l1_jac_smoother_clone.f90 b/mlprec/impl/smoother/mld_d_l1_jac_smoother_clone.f90 index 3ecf3ee3..b2237d5c 100644 --- a/mlprec/impl/smoother/mld_d_l1_jac_smoother_clone.f90 +++ b/mlprec/impl/smoother/mld_d_l1_jac_smoother_clone.f90 @@ -67,6 +67,11 @@ subroutine mld_d_l1_jac_smoother_clone(sm,smout,info) select type(smo => smout) type is (mld_d_l1_jac_smoother_type) smo%nd_nnz_tot = sm%nd_nnz_tot + smo%checkres = sm%checkres + smo%printres = sm%printres + smo%checkiter = sm%checkiter + smo%printiter = sm%printiter + smo%tol = sm%tol call sm%nd%clone(smo%nd,info) if ((info==psb_success_).and.(allocated(sm%sv))) then allocate(smout%sv,mold=sm%sv,stat=info) diff --git a/mlprec/impl/smoother/mld_s_l1_jac_smoother_clone.f90 b/mlprec/impl/smoother/mld_s_l1_jac_smoother_clone.f90 index d15baa85..fefcbaaf 100644 --- a/mlprec/impl/smoother/mld_s_l1_jac_smoother_clone.f90 +++ b/mlprec/impl/smoother/mld_s_l1_jac_smoother_clone.f90 @@ -67,6 +67,11 @@ subroutine mld_s_l1_jac_smoother_clone(sm,smout,info) select type(smo => smout) type is (mld_s_l1_jac_smoother_type) smo%nd_nnz_tot = sm%nd_nnz_tot + smo%checkres = sm%checkres + smo%printres = sm%printres + smo%checkiter = sm%checkiter + smo%printiter = sm%printiter + smo%tol = sm%tol call sm%nd%clone(smo%nd,info) if ((info==psb_success_).and.(allocated(sm%sv))) then allocate(smout%sv,mold=sm%sv,stat=info) diff --git a/mlprec/impl/smoother/mld_z_l1_jac_smoother_clone.f90 b/mlprec/impl/smoother/mld_z_l1_jac_smoother_clone.f90 index 02e83d99..c83a8a5f 100644 --- a/mlprec/impl/smoother/mld_z_l1_jac_smoother_clone.f90 +++ b/mlprec/impl/smoother/mld_z_l1_jac_smoother_clone.f90 @@ -67,6 +67,11 @@ subroutine mld_z_l1_jac_smoother_clone(sm,smout,info) select type(smo => smout) type is (mld_z_l1_jac_smoother_type) smo%nd_nnz_tot = sm%nd_nnz_tot + smo%checkres = sm%checkres + smo%printres = sm%printres + smo%checkiter = sm%checkiter + smo%printiter = sm%printiter + smo%tol = sm%tol call sm%nd%clone(smo%nd,info) if ((info==psb_success_).and.(allocated(sm%sv))) then allocate(smout%sv,mold=sm%sv,stat=info)