fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix handling of L1-BJAC in PREC%SET

Browse Source
pizdaint-runs
Salvatore Filippone 5 years ago
parent d81bb30844
commit 940609564f
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

6
mlprec/impl/mld_ccprecset.F90
Unescape Escape View File

@ -572,7 +572,7 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
if (nlev_ > 1) then if (nlev_ > 1) then
call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
select case (psb_toupper(trim(string))) select case (psb_toupper(trim(string)))
case('BJAC', 'L1_BJAC') case('BJAC', 'L1-BJAC')
call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
#if defined(HAVE_SLU_) #if defined(HAVE_SLU_)
call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos)
@ -687,8 +687,8 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
case('COARSE_SOLVE') case('COARSE_SOLVE')
if (nlev_ > 1) then if (nlev_ > 1) then
call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
select case (string) select case (psb_toupper(trim(string)))
case('BJAC', 'L1_BJAC') case('BJAC', 'L1-BJAC')
call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
#if defined(HAVE_SLU_) #if defined(HAVE_SLU_)
call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos)

6
mlprec/impl/mld_dcprecset.F90
Unescape Escape View File

@ -612,7 +612,7 @@ subroutine mld_dcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
if (nlev_ > 1) then if (nlev_ > 1) then
call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
select case (psb_toupper(trim(string))) select case (psb_toupper(trim(string)))
case('BJAC', 'L1_BJAC') case('BJAC', 'L1-BJAC')
call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
#if defined(HAVE_UMF_) #if defined(HAVE_UMF_)
call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos)
@ -741,8 +741,8 @@ subroutine mld_dcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
case('COARSE_SOLVE') case('COARSE_SOLVE')
if (nlev_ > 1) then if (nlev_ > 1) then
call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
select case (string) select case (psb_toupper(trim(string)))
case('BJAC', 'L1_BJAC') case('BJAC', 'L1-BJAC')
call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
#if defined(HAVE_UMF_) #if defined(HAVE_UMF_)
call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos)

6
mlprec/impl/mld_scprecset.F90
Unescape Escape View File

@ -572,7 +572,7 @@ subroutine mld_scprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
if (nlev_ > 1) then if (nlev_ > 1) then
call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
select case (psb_toupper(trim(string))) select case (psb_toupper(trim(string)))
case('BJAC', 'L1_BJAC') case('BJAC', 'L1-BJAC')
call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
#if defined(HAVE_SLU_) #if defined(HAVE_SLU_)
call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos)
@ -687,8 +687,8 @@ subroutine mld_scprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
case('COARSE_SOLVE') case('COARSE_SOLVE')
if (nlev_ > 1) then if (nlev_ > 1) then
call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
select case (string) select case (psb_toupper(trim(string)))
case('BJAC', 'L1_BJAC') case('BJAC', 'L1-BJAC')
call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
#if defined(HAVE_SLU_) #if defined(HAVE_SLU_)
call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','SLU',info,pos=pos)

6
mlprec/impl/mld_zcprecset.F90
Unescape Escape View File

@ -612,7 +612,7 @@ subroutine mld_zcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
if (nlev_ > 1) then if (nlev_ > 1) then
call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
select case (psb_toupper(trim(string))) select case (psb_toupper(trim(string)))
case('BJAC', 'L1_BJAC') case('BJAC', 'L1-BJAC')
call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
#if defined(HAVE_UMF_) #if defined(HAVE_UMF_)
call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos)
@ -741,8 +741,8 @@ subroutine mld_zcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
case('COARSE_SOLVE') case('COARSE_SOLVE')
if (nlev_ > 1) then if (nlev_ > 1) then
call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('COARSE_SOLVE',string,info,pos=pos)
select case (string) select case (psb_toupper(trim(string)))
case('BJAC', 'L1_BJAC') case('BJAC', 'L1-BJAC')
call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE',psb_toupper(trim(string)),info,pos=pos)
#if defined(HAVE_UMF_) #if defined(HAVE_UMF_)
call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','UMF',info,pos=pos)

Write Preview
Loading…
Cancel
Save