From 8f167a3295ff9f147de2d64248a751970cebc33e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 5 May 2020 21:53:20 +0200 Subject: [PATCH] Fix typo in cprecset.F90 --- mlprec/impl/mld_ccprecset.F90 | 2 +- mlprec/impl/mld_dcprecset.F90 | 2 +- mlprec/impl/mld_scprecset.F90 | 2 +- mlprec/impl/mld_zcprecset.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/impl/mld_ccprecset.F90 b/mlprec/impl/mld_ccprecset.F90 index f97ffa0a..0a65bf46 100644 --- a/mlprec/impl/mld_ccprecset.F90 +++ b/mlprec/impl/mld_ccprecset.F90 @@ -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('COARSE_MAT','DIST',info,pos=pos) #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('COARSE_MAT','DIST',info,pos=pos) #endif diff --git a/mlprec/impl/mld_dcprecset.F90 b/mlprec/impl/mld_dcprecset.F90 index be551424..782be5ab 100644 --- a/mlprec/impl/mld_dcprecset.F90 +++ b/mlprec/impl/mld_dcprecset.F90 @@ -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('COARSE_MAT','DIST',info,pos=pos) #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('COARSE_MAT','DIST',info,pos=pos) #endif diff --git a/mlprec/impl/mld_scprecset.F90 b/mlprec/impl/mld_scprecset.F90 index 44d961f4..39c1981b 100644 --- a/mlprec/impl/mld_scprecset.F90 +++ b/mlprec/impl/mld_scprecset.F90 @@ -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('COARSE_MAT','DIST',info,pos=pos) #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('COARSE_MAT','DIST',info,pos=pos) #endif diff --git a/mlprec/impl/mld_zcprecset.F90 b/mlprec/impl/mld_zcprecset.F90 index 97b9b772..b3a58473 100644 --- a/mlprec/impl/mld_zcprecset.F90 +++ b/mlprec/impl/mld_zcprecset.F90 @@ -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('COARSE_MAT','DIST',info,pos=pos) #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('COARSE_MAT','DIST',info,pos=pos) #endif