diff --git a/mlprec/impl/solver/mld_c_base_solver_clone_settings.f90 b/mlprec/impl/solver/mld_c_base_solver_clone_settings.f90
index d9975d15..c8da48fc 100644
--- a/mlprec/impl/solver/mld_c_base_solver_clone_settings.f90
+++ b/mlprec/impl/solver/mld_c_base_solver_clone_settings.f90
@@ -64,4 +64,4 @@ subroutine mld_c_base_solver_clone_settings(sv,svout,info)
 9999 call psb_error_handler(err_act)
 
   return
-end subroutine mld_c_base_solver_clone
+end subroutine mld_c_base_solver_clone_settings
diff --git a/mlprec/impl/solver/mld_d_base_solver_clone_settings.f90 b/mlprec/impl/solver/mld_d_base_solver_clone_settings.f90
index 4c593ea0..bc392884 100644
--- a/mlprec/impl/solver/mld_d_base_solver_clone_settings.f90
+++ b/mlprec/impl/solver/mld_d_base_solver_clone_settings.f90
@@ -64,4 +64,4 @@ subroutine mld_d_base_solver_clone_settings(sv,svout,info)
 9999 call psb_error_handler(err_act)
 
   return
-end subroutine mld_d_base_solver_clone
+end subroutine mld_d_base_solver_clone_settings
diff --git a/mlprec/impl/solver/mld_s_base_solver_clone_settings.f90 b/mlprec/impl/solver/mld_s_base_solver_clone_settings.f90
index 3e43b931..a7ad373e 100644
--- a/mlprec/impl/solver/mld_s_base_solver_clone_settings.f90
+++ b/mlprec/impl/solver/mld_s_base_solver_clone_settings.f90
@@ -64,4 +64,4 @@ subroutine mld_s_base_solver_clone_settings(sv,svout,info)
 9999 call psb_error_handler(err_act)
 
   return
-end subroutine mld_s_base_solver_clone
+end subroutine mld_s_base_solver_clone_settings
diff --git a/mlprec/impl/solver/mld_z_base_solver_clone_settings.f90 b/mlprec/impl/solver/mld_z_base_solver_clone_settings.f90
index fd32fedc..55daf06b 100644
--- a/mlprec/impl/solver/mld_z_base_solver_clone_settings.f90
+++ b/mlprec/impl/solver/mld_z_base_solver_clone_settings.f90
@@ -64,4 +64,4 @@ subroutine mld_z_base_solver_clone_settings(sv,svout,info)
 9999 call psb_error_handler(err_act)
 
   return
-end subroutine mld_z_base_solver_clone
+end subroutine mld_z_base_solver_clone_settings