Improve use of TRIM in precinit

5 years ago · 32d550ed05
parent f7059c285d
commit 32d550ed05
4 changed files with 8 additions and 12 deletions
--- a/mlprec/impl/mld_cprecinit.F90
+++ b/mlprec/impl/mld_cprecinit.F90
@ -126,7 +126,7 @@ subroutine mld_cprecinit(ictxt,prec,ptype,info)
  prec%ictxt = ictxt
  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') 
    nlev_ = 1
    ilev_ = 1
@ -225,7 +225,6 @@ subroutine mld_cprecinit(ictxt,prec,ptype,info)
 #else
    call prec%set('COARSE_SOLVE','ILU',info)
 #endif
-    !call prec%precv(nlev_)%default()
    
  case default
    write(psb_err_unit,*) name,&
--- a/mlprec/impl/mld_dprecinit.F90
+++ b/mlprec/impl/mld_dprecinit.F90
@ -129,7 +129,7 @@ subroutine mld_dprecinit(ictxt,prec,ptype,info)
  prec%ictxt = ictxt
  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') 
    nlev_ = 1
    ilev_ = 1
@ -230,7 +230,6 @@ subroutine mld_dprecinit(ictxt,prec,ptype,info)
 #else
    call prec%set('COARSE_SOLVE','ILU',info)
 #endif
-    !call prec%precv(nlev_)%default()
    
  case default
    write(psb_err_unit,*) name,&
--- a/mlprec/impl/mld_sprecinit.F90
+++ b/mlprec/impl/mld_sprecinit.F90
@ -126,7 +126,7 @@ subroutine mld_sprecinit(ictxt,prec,ptype,info)
  prec%ictxt = ictxt
  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') 
    nlev_ = 1
    ilev_ = 1
@ -225,7 +225,6 @@ subroutine mld_sprecinit(ictxt,prec,ptype,info)
 #else
    call prec%set('COARSE_SOLVE','ILU',info)
 #endif
-    !call prec%precv(nlev_)%default()
    
  case default
    write(psb_err_unit,*) name,&
--- a/mlprec/impl/mld_zprecinit.F90
+++ b/mlprec/impl/mld_zprecinit.F90
@ -129,7 +129,7 @@ subroutine mld_zprecinit(ictxt,prec,ptype,info)
  prec%ictxt = ictxt
  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') 
    nlev_ = 1
    ilev_ = 1
@ -230,7 +230,6 @@ subroutine mld_zprecinit(ictxt,prec,ptype,info)
 #else
    call prec%set('COARSE_SOLVE','ILU',info)
 #endif
-    !call prec%precv(nlev_)%default()
    
  case default
    write(psb_err_unit,*) name,&