mld2p4-2

mlprec/impl/smoother/mld_c_jac_smoother_bld.f90
 mlprec/impl/smoother/mld_d_jac_smoother_bld.f90
 mlprec/impl/smoother/mld_s_jac_smoother_bld.f90
 mlprec/impl/smoother/mld_z_jac_smoother_bld.f90

Space formatting in select type.

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

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

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

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