diff --git a/mlprec/impl/smoother/mld_c_jac_smoother_bld.f90 b/mlprec/impl/smoother/mld_c_jac_smoother_bld.f90
index 80383ab2..16bbf371 100644
--- a/mlprec/impl/smoother/mld_c_jac_smoother_bld.f90
+++ b/mlprec/impl/smoother/mld_c_jac_smoother_bld.f90
@@ -75,7 +75,7 @@ subroutine mld_c_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold,imold)
   select type (smsv => sm%sv)
   type is (mld_c_diag_solver_type)
     call a%clip_diag(sm%nd,info)
-    class default
+  class default
     call a%csclip(sm%nd,info,&
          & jmin=nrow_a+1,rscale=.false.,cscale=.false.)
   end select
diff --git a/mlprec/impl/smoother/mld_d_jac_smoother_bld.f90 b/mlprec/impl/smoother/mld_d_jac_smoother_bld.f90
index 89c19d82..587db844 100644
--- a/mlprec/impl/smoother/mld_d_jac_smoother_bld.f90
+++ b/mlprec/impl/smoother/mld_d_jac_smoother_bld.f90
@@ -75,7 +75,7 @@ subroutine mld_d_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold,imold)
   select type (smsv => sm%sv)
   type is (mld_d_diag_solver_type)
     call a%clip_diag(sm%nd,info)
-    class default
+  class default
     call a%csclip(sm%nd,info,&
          & jmin=nrow_a+1,rscale=.false.,cscale=.false.)
   end select
diff --git a/mlprec/impl/smoother/mld_s_jac_smoother_bld.f90 b/mlprec/impl/smoother/mld_s_jac_smoother_bld.f90
index 7dd86148..b883fea3 100644
--- a/mlprec/impl/smoother/mld_s_jac_smoother_bld.f90
+++ b/mlprec/impl/smoother/mld_s_jac_smoother_bld.f90
@@ -75,7 +75,7 @@ subroutine mld_s_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold,imold)
   select type (smsv => sm%sv)
   type is (mld_s_diag_solver_type)
     call a%clip_diag(sm%nd,info)
-    class default
+  class default
     call a%csclip(sm%nd,info,&
          & jmin=nrow_a+1,rscale=.false.,cscale=.false.)
   end select
diff --git a/mlprec/impl/smoother/mld_z_jac_smoother_bld.f90 b/mlprec/impl/smoother/mld_z_jac_smoother_bld.f90
index 52ae6f08..0d2cc5f7 100644
--- a/mlprec/impl/smoother/mld_z_jac_smoother_bld.f90
+++ b/mlprec/impl/smoother/mld_z_jac_smoother_bld.f90
@@ -75,7 +75,7 @@ subroutine mld_z_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold,imold)
   select type (smsv => sm%sv)
   type is (mld_z_diag_solver_type)
     call a%clip_diag(sm%nd,info)
-    class default
+  class default
     call a%csclip(sm%nd,info,&
          & jmin=nrow_a+1,rscale=.false.,cscale=.false.)
   end select