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

Improve use of TRIM in precinit

Browse Source
pizdaint-runs
Salvatore Filippone 5 years ago
parent f7059c285d
commit 32d550ed05
4 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File

3
mlprec/impl/mld_cprecinit.F90
Unescape Escape View File

@ -126,7 +126,7 @@ subroutine mld_cprecinit(ictxt,prec,ptype,info)
prec%ictxt = ictxt prec%ictxt = ictxt
prec%ag_data%min_coarse_size = -1 prec%ag_data%min_coarse_size = -1
select case(psb_toupper(ptype(1:len_trim(ptype)))) select case(psb_toupper(trim(ptype)))
case ('NOPREC','NONE') case ('NOPREC','NONE')
nlev_ = 1 nlev_ = 1
ilev_ = 1 ilev_ = 1
@ -225,7 +225,6 @@ subroutine mld_cprecinit(ictxt,prec,ptype,info)
#else #else
call prec%set('COARSE_SOLVE','ILU',info) call prec%set('COARSE_SOLVE','ILU',info)
#endif #endif
!call prec%precv(nlev_)%default()
case default case default
write(psb_err_unit,*) name,& write(psb_err_unit,*) name,&

3
mlprec/impl/mld_dprecinit.F90
Unescape Escape View File

@ -129,7 +129,7 @@ subroutine mld_dprecinit(ictxt,prec,ptype,info)
prec%ictxt = ictxt prec%ictxt = ictxt
prec%ag_data%min_coarse_size = -1 prec%ag_data%min_coarse_size = -1
select case(psb_toupper(ptype(1:len_trim(ptype)))) select case(psb_toupper(trim(ptype)))
case ('NOPREC','NONE') case ('NOPREC','NONE')
nlev_ = 1 nlev_ = 1
ilev_ = 1 ilev_ = 1
@ -230,7 +230,6 @@ subroutine mld_dprecinit(ictxt,prec,ptype,info)
#else #else
call prec%set('COARSE_SOLVE','ILU',info) call prec%set('COARSE_SOLVE','ILU',info)
#endif #endif
!call prec%precv(nlev_)%default()
case default case default
write(psb_err_unit,*) name,& write(psb_err_unit,*) name,&

3
mlprec/impl/mld_sprecinit.F90
Unescape Escape View File

@ -126,7 +126,7 @@ subroutine mld_sprecinit(ictxt,prec,ptype,info)
prec%ictxt = ictxt prec%ictxt = ictxt
prec%ag_data%min_coarse_size = -1 prec%ag_data%min_coarse_size = -1
select case(psb_toupper(ptype(1:len_trim(ptype)))) select case(psb_toupper(trim(ptype)))
case ('NOPREC','NONE') case ('NOPREC','NONE')
nlev_ = 1 nlev_ = 1
ilev_ = 1 ilev_ = 1
@ -225,7 +225,6 @@ subroutine mld_sprecinit(ictxt,prec,ptype,info)
#else #else
call prec%set('COARSE_SOLVE','ILU',info) call prec%set('COARSE_SOLVE','ILU',info)
#endif #endif
!call prec%precv(nlev_)%default()
case default case default
write(psb_err_unit,*) name,& write(psb_err_unit,*) name,&

3
mlprec/impl/mld_zprecinit.F90
Unescape Escape View File

@ -129,7 +129,7 @@ subroutine mld_zprecinit(ictxt,prec,ptype,info)
prec%ictxt = ictxt prec%ictxt = ictxt
prec%ag_data%min_coarse_size = -1 prec%ag_data%min_coarse_size = -1
select case(psb_toupper(ptype(1:len_trim(ptype)))) select case(psb_toupper(trim(ptype)))
case ('NOPREC','NONE') case ('NOPREC','NONE')
nlev_ = 1 nlev_ = 1
ilev_ = 1 ilev_ = 1
@ -230,7 +230,6 @@ subroutine mld_zprecinit(ictxt,prec,ptype,info)
#else #else
call prec%set('COARSE_SOLVE','ILU',info) call prec%set('COARSE_SOLVE','ILU',info)
#endif #endif
!call prec%precv(nlev_)%default()
case default case default
write(psb_err_unit,*) name,& write(psb_err_unit,*) name,&

Write Preview
Loading…
Cancel
Save