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

Fix typo in cprecset.F90

Browse Source
pizdaint-runs
Salvatore Filippone 5 years ago
parent 0854eee936
commit 8f167a3295
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

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

@ -606,7 +606,7 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos)
call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos) call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
#else #else
call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC'_,info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC',info,pos=pos)
call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos)
call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos) call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
#endif #endif

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

@ -648,7 +648,7 @@ subroutine mld_dcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos)
call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos) call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
#else #else
call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC'_,info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC',info,pos=pos)
call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos)
call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos) call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
#endif #endif

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

@ -606,7 +606,7 @@ subroutine mld_scprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos)
call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos) call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
#else #else
call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC'_,info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC',info,pos=pos)
call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos)
call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos) call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
#endif #endif

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

@ -648,7 +648,7 @@ subroutine mld_zcprecsetc(p,what,string,info,ilev,ilmax,pos,idx)
call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE',string,info,pos=pos)
call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos) call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
#else #else
call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC'_,info,pos=pos) call p%precv(nlev_)%set('SMOOTHER_TYPE','BJAC',info,pos=pos)
call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos) call p%precv(nlev_)%set('SUB_SOLVE','ILU',info,pos=pos)
call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos) call p%precv(nlev_)%set('COARSE_MAT','DIST',info,pos=pos)
#endif #endif

Write Preview
Loading…
Cancel
Save