fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4:

Browse Source 
mlprec/impl/mld_cmlprec_aply.f90
 mlprec/impl/mld_dmlprec_aply.f90
 mlprec/impl/mld_smlprec_aply.f90
 mlprec/impl/mld_zmlprec_aply.f90

Fix error and status messages.
This commit is contained in:
Salvatore Filippone
2016-07-16 10:59:37 +00:00
parent a128383525
commit e8f62cb1af
4 changed files with 28 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_cmlprec_aply.f90
+7 -3
View File
@@ -902,7 +902,7 @@ contains
name = 'inner_inner_add'
name = 'inner_kcycle'
info = psb_success_
call psb_erractionsave(err_act)
debug_unit = psb_get_debug_unit()
@@ -917,7 +917,7 @@ contains
call psb_info(ictxt, me, np)
if(debug_level > 1) then
write(debug_unit,*) me,' inner_add at level ',level
write(debug_unit,*) me,name,' at level ',level
end if
if ((level<1).or.(level>nlev)) then
@@ -992,11 +992,15 @@ contains
!Set the preconditioner
if ((level < nlev - 2)) then
if (level < nlev ) then
if (p%precv(level)%parms%ml_type == mld_kcyclesym_ml_) then
call mld_cinneritkcycle(p, mlprec_wrk, level + 1, trans, work, 'FCG')
elseif (p%precv(level)%parms%ml_type == mld_kcycle_ml_) then
call mld_cinneritkcycle(p, mlprec_wrk, level + 1, trans, work, 'CGR')
else
call psb_errpush(psb_err_internal_error_,name,&
& a_err='Bad value for ml_type')
goto 9999
endif
else
call inner_ml_aply(level + 1 ,p,mlprec_wrk,trans,work,info)
mlprec/impl/mld_dmlprec_aply.f90
+7 -3
View File
@@ -902,7 +902,7 @@ contains
name = 'inner_inner_add'
name = 'inner_kcycle'
info = psb_success_
call psb_erractionsave(err_act)
debug_unit = psb_get_debug_unit()
@@ -917,7 +917,7 @@ contains
call psb_info(ictxt, me, np)
if(debug_level > 1) then
write(debug_unit,*) me,' inner_add at level ',level
write(debug_unit,*) me,name,' at level ',level
end if
if ((level<1).or.(level>nlev)) then
@@ -992,11 +992,15 @@ contains
!Set the preconditioner
if ((level < nlev - 2)) then
if (level < nlev ) then
if (p%precv(level)%parms%ml_type == mld_kcyclesym_ml_) then
call mld_dinneritkcycle(p, mlprec_wrk, level + 1, trans, work, 'FCG')
elseif (p%precv(level)%parms%ml_type == mld_kcycle_ml_) then
call mld_dinneritkcycle(p, mlprec_wrk, level + 1, trans, work, 'CGR')
else
call psb_errpush(psb_err_internal_error_,name,&
& a_err='Bad value for ml_type')
goto 9999
endif
else
call inner_ml_aply(level + 1 ,p,mlprec_wrk,trans,work,info)
mlprec/impl/mld_smlprec_aply.f90
+7 -3
View File
@@ -902,7 +902,7 @@ contains
name = 'inner_inner_add'
name = 'inner_kcycle'
info = psb_success_
call psb_erractionsave(err_act)
debug_unit = psb_get_debug_unit()
@@ -917,7 +917,7 @@ contains
call psb_info(ictxt, me, np)
if(debug_level > 1) then
write(debug_unit,*) me,' inner_add at level ',level
write(debug_unit,*) me,name,' at level ',level
end if
if ((level<1).or.(level>nlev)) then
@@ -992,11 +992,15 @@ contains
!Set the preconditioner
if ((level < nlev - 2)) then
if (level < nlev ) then
if (p%precv(level)%parms%ml_type == mld_kcyclesym_ml_) then
call mld_sinneritkcycle(p, mlprec_wrk, level + 1, trans, work, 'FCG')
elseif (p%precv(level)%parms%ml_type == mld_kcycle_ml_) then
call mld_sinneritkcycle(p, mlprec_wrk, level + 1, trans, work, 'CGR')
else
call psb_errpush(psb_err_internal_error_,name,&
& a_err='Bad value for ml_type')
goto 9999
endif
else
call inner_ml_aply(level + 1 ,p,mlprec_wrk,trans,work,info)
mlprec/impl/mld_zmlprec_aply.f90
+7 -3
View File
@@ -902,7 +902,7 @@ contains
name = 'inner_inner_add'
name = 'inner_kcycle'
info = psb_success_
call psb_erractionsave(err_act)
debug_unit = psb_get_debug_unit()
@@ -917,7 +917,7 @@ contains
call psb_info(ictxt, me, np)
if(debug_level > 1) then
write(debug_unit,*) me,' inner_add at level ',level
write(debug_unit,*) me,name,' at level ',level
end if
if ((level<1).or.(level>nlev)) then
@@ -992,11 +992,15 @@ contains
!Set the preconditioner
if ((level < nlev - 2)) then
if (level < nlev ) then
if (p%precv(level)%parms%ml_type == mld_kcyclesym_ml_) then
call mld_zinneritkcycle(p, mlprec_wrk, level + 1, trans, work, 'FCG')
elseif (p%precv(level)%parms%ml_type == mld_kcycle_ml_) then
call mld_zinneritkcycle(p, mlprec_wrk, level + 1, trans, work, 'CGR')
else
call psb_errpush(psb_err_internal_error_,name,&
& a_err='Bad value for ml_type')
goto 9999
endif
else
call inner_ml_aply(level + 1 ,p,mlprec_wrk,trans,work,info)