mld2p4-2:

mlprec/impl/smoother/mld_c_jac_smoother_apply.f90
 mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90
 mlprec/impl/smoother/mld_d_jac_smoother_apply.f90
 mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90
 mlprec/impl/smoother/mld_s_jac_smoother_apply.f90
 mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90
 mlprec/impl/smoother/mld_z_jac_smoother_apply.f90
 mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90

Improve readability

mlprec/impl/smoother/mld_c_jac_smoother_apply_vect.f90

@@ -125,7 +125,7 @@ subroutine mld_c_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
 !!$      goto 9999
 !!$    endif
 !!$
-!!$  else if (sweeps >= 1) then 
+!!$  else if (sweeps >= 0) then 
     !
     !
     ! Apply multiple sweeps of a block-Jacobi solver

mlprec/impl/smoother/mld_d_jac_smoother_apply_vect.f90

@@ -125,7 +125,7 @@ subroutine mld_d_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
 !!$      goto 9999
 !!$    endif
 !!$
-!!$  else if (sweeps >= 1) then 
+!!$  else if (sweeps >= 0) then 
     !
     !
     ! Apply multiple sweeps of a block-Jacobi solver

mlprec/impl/smoother/mld_s_jac_smoother_apply_vect.f90

@@ -125,7 +125,7 @@ subroutine mld_s_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
 !!$      goto 9999
 !!$    endif
 !!$
-!!$  else if (sweeps >= 1) then 
+!!$  else if (sweeps >= 0) then 
     !
     !
     ! Apply multiple sweeps of a block-Jacobi solver

mlprec/impl/smoother/mld_z_jac_smoother_apply_vect.f90

@@ -125,7 +125,7 @@ subroutine mld_z_jac_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,trans,&
 !!$      goto 9999
 !!$    endif
 !!$
-!!$  else if (sweeps >= 1) then 
+!!$  else if (sweeps >= 0) then 
     !
     !
     ! Apply multiple sweeps of a block-Jacobi solver