From d003d7dfa8ef141f53615578a9c902677140f338 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 6 Jan 2011 20:05:00 +0000 Subject: [PATCH] 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 | 4 ++-- mlprec/mld_d_ilu_solver.f90 | 6 ++++-- mlprec/mld_d_jac_smoother.f90 | 3 ++- 3 files changed, 8 insertions(+), 5 deletions(-) diff --git a/mlprec/mld_d_as_smoother.f90 b/mlprec/mld_d_as_smoother.f90 index b58f41f5..c13a7d5f 100644 --- a/mlprec/mld_d_as_smoother.f90 +++ b/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 diff --git a/mlprec/mld_d_ilu_solver.f90 b/mlprec/mld_d_ilu_solver.f90 index ea0bea18..7ed0342c 100644 --- a/mlprec/mld_d_ilu_solver.f90 +++ b/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 diff --git a/mlprec/mld_d_jac_smoother.f90 b/mlprec/mld_d_jac_smoother.f90 index 3a111e70..e604a2a9 100644 --- a/mlprec/mld_d_jac_smoother.f90 +++ b/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