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.
2026-10-06 22:55:12 +00:00 · 2014-10-27 14:00:05 +00:00
parent 5f132cb863
commit ca30dacd90
4 changed files with 4 additions and 4 deletions
@@ -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
@@ -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
@@ -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
@@ -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