mld2p4-2:

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

Cosmetic line breaks
stopcriterion
Salvatore Filippone 16 years ago
parent 59ae89af7d
commit d003d7dfa8

@ -291,7 +291,8 @@ contains
case(:-1) case(:-1)
! Error: fill-in <= -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 goto 9999
case(0:) case(0:)
@ -313,7 +314,8 @@ contains
select case(sv%fill_in) select case(sv%fill_in)
case(:-1) case(:-1)
! Error: fill-in <= -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 goto 9999
case(0) case(0)
! Fill-in 0 ! Fill-in 0

@ -142,7 +142,8 @@ contains
call sm%sv%apply(alpha,x,beta,y,desc_data,trans_,aux,info) call sm%sv%apply(alpha,x,beta,y,desc_data,trans_,aux,info)
if (info /= psb_success_) then 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 goto 9999
endif endif

Loading…
Cancel
Save