mld2p4-2:

mlprec/mld_d_as_smoother.f90
 mlprec/mld_d_ilu_solver.f90
 mlprec/mld_d_jac_smoother.f90

Cosmetic line breaks

mlprec/mld_d_as_smoother.f90

@@ -52,8 +52,8 @@ module mld_d_as_smoother
     !    class(mld_d_base_solver_type), allocatable :: sv
     !    
     type(psb_dspmat_type) :: nd
-    type(psb_desc_type)    :: desc_data 
-    integer                :: novr, restr, prol
+    type(psb_desc_type)   :: desc_data 
+    integer               :: novr, restr, prol
   contains
     procedure, pass(sm) :: build => d_as_smoother_bld
     procedure, pass(sm) :: apply => d_as_smoother_apply

mlprec/mld_d_ilu_solver.f90

@@ -291,7 +291,8 @@ contains
 
         case(:-1) 
           ! Error: fill-in <= -1
-          call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=(/3,sv%fill_in,0,0,0/))
+          call psb_errpush(psb_err_input_value_invalid_i_,&
+               & name,i_err=(/3,sv%fill_in,0,0,0/))
           goto 9999
 
         case(0:)
@@ -313,7 +314,8 @@ contains
         select case(sv%fill_in)
         case(:-1) 
           ! Error: fill-in <= -1
-          call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=(/3,sv%fill_in,0,0,0/))
+          call psb_errpush(psb_err_input_value_invalid_i_,&
+               & name,i_err=(/3,sv%fill_in,0,0,0/))
           goto 9999
         case(0)
           ! Fill-in 0

mlprec/mld_d_jac_smoother.f90

@@ -142,7 +142,8 @@ contains
       call sm%sv%apply(alpha,x,beta,y,desc_data,trans_,aux,info) 
 
       if (info /= psb_success_) then
-        call psb_errpush(psb_err_internal_error_,name,a_err='Error in sub_aply Jacobi Sweeps = 1')
+        call psb_errpush(psb_err_internal_error_,&
+             & name,a_err='Error in sub_aply Jacobi Sweeps = 1')
         goto 9999
       endif