Modified implementation for residual check/print

richardson
Cirdans-Home 5 years ago
parent adc5aebd6b
commit d249042ea2

@ -67,6 +67,11 @@ subroutine mld_c_jac_smoother_clone(sm,smout,info)
select type(smo => smout) select type(smo => smout)
type is (mld_c_jac_smoother_type) type is (mld_c_jac_smoother_type)
smo%nd_nnz_tot = sm%nd_nnz_tot smo%nd_nnz_tot = sm%nd_nnz_tot
smo%checkres = sm%checkres
smo%printres = sm%printres
smo%checkiter = sm%checkiter
smo%printiter = sm%printiter
smo%tol = sm%tol
call sm%nd%clone(smo%nd,info) call sm%nd%clone(smo%nd,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smout%sv,mold=sm%sv,stat=info)

@ -52,20 +52,25 @@ subroutine mld_c_jac_smoother_csetc(sm,what,val,info,idx)
info = psb_success_ info = psb_success_
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
select case(psb_toupper(trim(what)))
select case(psb_toupper(what))
case('SMOOTHER_STOP') case('SMOOTHER_STOP')
if((psb_toupper(trim(val)) == 'T').or.(psb_toupper(trim(val)) == 'TRUE')) then select case(psb_toupper(trim(val)))
case('T','TRUE')
sm%checkres = .true. sm%checkres = .true.
else case('F','FALSE')
sm%checkres = .false. sm%checkres = .false.
end if case default
write(0,*) 'Unknown value for smoother_stop : "',psb_toupper(trim(val)),'"'
end select
case('SMOOTHER_TRACE') case('SMOOTHER_TRACE')
if((psb_toupper(trim(val)) == 'T').or.(psb_toupper(trim(val)) == 'TRUE')) then select case(psb_toupper(trim(val)))
case('T','TRUE')
sm%printres = .true. sm%printres = .true.
else case('F','FALSE')
sm%printres = .false. sm%printres = .false.
end if case default
write(0,*) 'Unknown value for smoother_trace : "',psb_toupper(trim(val)),'"'
end select
case default case default
call sm%mld_c_base_smoother_type%set(what,val,info,idx=idx) call sm%mld_c_base_smoother_type%set(what,val,info,idx=idx)
end select end select

@ -67,6 +67,11 @@ subroutine mld_d_jac_smoother_clone(sm,smout,info)
select type(smo => smout) select type(smo => smout)
type is (mld_d_jac_smoother_type) type is (mld_d_jac_smoother_type)
smo%nd_nnz_tot = sm%nd_nnz_tot smo%nd_nnz_tot = sm%nd_nnz_tot
smo%checkres = sm%checkres
smo%printres = sm%printres
smo%checkiter = sm%checkiter
smo%printiter = sm%printiter
smo%tol = sm%tol
call sm%nd%clone(smo%nd,info) call sm%nd%clone(smo%nd,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smout%sv,mold=sm%sv,stat=info)

@ -52,20 +52,25 @@ subroutine mld_d_jac_smoother_csetc(sm,what,val,info,idx)
info = psb_success_ info = psb_success_
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
select case(psb_toupper(trim(what)))
select case(psb_toupper(what))
case('SMOOTHER_STOP') case('SMOOTHER_STOP')
if((psb_toupper(trim(val)) == 'T').or.(psb_toupper(trim(val)) == 'TRUE')) then select case(psb_toupper(trim(val)))
case('T','TRUE')
sm%checkres = .true. sm%checkres = .true.
else case('F','FALSE')
sm%checkres = .false. sm%checkres = .false.
end if case default
write(0,*) 'Unknown value for smoother_stop : "',psb_toupper(trim(val)),'"'
end select
case('SMOOTHER_TRACE') case('SMOOTHER_TRACE')
if((psb_toupper(trim(val)) == 'T').or.(psb_toupper(trim(val)) == 'TRUE')) then select case(psb_toupper(trim(val)))
case('T','TRUE')
sm%printres = .true. sm%printres = .true.
else case('F','FALSE')
sm%printres = .false. sm%printres = .false.
end if case default
write(0,*) 'Unknown value for smoother_trace : "',psb_toupper(trim(val)),'"'
end select
case default case default
call sm%mld_d_base_smoother_type%set(what,val,info,idx=idx) call sm%mld_d_base_smoother_type%set(what,val,info,idx=idx)
end select end select

@ -67,6 +67,11 @@ subroutine mld_s_jac_smoother_clone(sm,smout,info)
select type(smo => smout) select type(smo => smout)
type is (mld_s_jac_smoother_type) type is (mld_s_jac_smoother_type)
smo%nd_nnz_tot = sm%nd_nnz_tot smo%nd_nnz_tot = sm%nd_nnz_tot
smo%checkres = sm%checkres
smo%printres = sm%printres
smo%checkiter = sm%checkiter
smo%printiter = sm%printiter
smo%tol = sm%tol
call sm%nd%clone(smo%nd,info) call sm%nd%clone(smo%nd,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smout%sv,mold=sm%sv,stat=info)

@ -52,20 +52,25 @@ subroutine mld_s_jac_smoother_csetc(sm,what,val,info,idx)
info = psb_success_ info = psb_success_
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
select case(psb_toupper(trim(what)))
select case(psb_toupper(what))
case('SMOOTHER_STOP') case('SMOOTHER_STOP')
if((psb_toupper(trim(val)) == 'T').or.(psb_toupper(trim(val)) == 'TRUE')) then select case(psb_toupper(trim(val)))
case('T','TRUE')
sm%checkres = .true. sm%checkres = .true.
else case('F','FALSE')
sm%checkres = .false. sm%checkres = .false.
end if case default
write(0,*) 'Unknown value for smoother_stop : "',psb_toupper(trim(val)),'"'
end select
case('SMOOTHER_TRACE') case('SMOOTHER_TRACE')
if((psb_toupper(trim(val)) == 'T').or.(psb_toupper(trim(val)) == 'TRUE')) then select case(psb_toupper(trim(val)))
case('T','TRUE')
sm%printres = .true. sm%printres = .true.
else case('F','FALSE')
sm%printres = .false. sm%printres = .false.
end if case default
write(0,*) 'Unknown value for smoother_trace : "',psb_toupper(trim(val)),'"'
end select
case default case default
call sm%mld_s_base_smoother_type%set(what,val,info,idx=idx) call sm%mld_s_base_smoother_type%set(what,val,info,idx=idx)
end select end select

@ -67,6 +67,11 @@ subroutine mld_z_jac_smoother_clone(sm,smout,info)
select type(smo => smout) select type(smo => smout)
type is (mld_z_jac_smoother_type) type is (mld_z_jac_smoother_type)
smo%nd_nnz_tot = sm%nd_nnz_tot smo%nd_nnz_tot = sm%nd_nnz_tot
smo%checkres = sm%checkres
smo%printres = sm%printres
smo%checkiter = sm%checkiter
smo%printiter = sm%printiter
smo%tol = sm%tol
call sm%nd%clone(smo%nd,info) call sm%nd%clone(smo%nd,info)
if ((info==psb_success_).and.(allocated(sm%sv))) then if ((info==psb_success_).and.(allocated(sm%sv))) then
allocate(smout%sv,mold=sm%sv,stat=info) allocate(smout%sv,mold=sm%sv,stat=info)

@ -52,20 +52,25 @@ subroutine mld_z_jac_smoother_csetc(sm,what,val,info,idx)
info = psb_success_ info = psb_success_
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
select case(psb_toupper(trim(what)))
select case(psb_toupper(what))
case('SMOOTHER_STOP') case('SMOOTHER_STOP')
if((psb_toupper(trim(val)) == 'T').or.(psb_toupper(trim(val)) == 'TRUE')) then select case(psb_toupper(trim(val)))
case('T','TRUE')
sm%checkres = .true. sm%checkres = .true.
else case('F','FALSE')
sm%checkres = .false. sm%checkres = .false.
end if case default
write(0,*) 'Unknown value for smoother_stop : "',psb_toupper(trim(val)),'"'
end select
case('SMOOTHER_TRACE') case('SMOOTHER_TRACE')
if((psb_toupper(trim(val)) == 'T').or.(psb_toupper(trim(val)) == 'TRUE')) then select case(psb_toupper(trim(val)))
case('T','TRUE')
sm%printres = .true. sm%printres = .true.
else case('F','FALSE')
sm%printres = .false. sm%printres = .false.
end if case default
write(0,*) 'Unknown value for smoother_trace : "',psb_toupper(trim(val)),'"'
end select
case default case default
call sm%mld_z_base_smoother_type%set(what,val,info,idx=idx) call sm%mld_z_base_smoother_type%set(what,val,info,idx=idx)
end select end select

Loading…
Cancel
Save