From 49f49ba419a0eaa349e55ecb1d738e180b1a994f Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 9 Jan 2007 10:46:05 +0000 Subject: [PATCH] Take out redundant constants none_ square_root_ halo_. --- src/modules/psb_prec_type.f90 | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/modules/psb_prec_type.f90 b/src/modules/psb_prec_type.f90 index 022ab03c..1123b794 100644 --- a/src/modules/psb_prec_type.f90 +++ b/src/modules/psb_prec_type.f90 @@ -44,8 +44,6 @@ module psb_prec_type & new_loc_smth_=14, new_glb_smth_=15, ag2lsm_=16,& & msy2l_=18, msy2g_=19, max_prec_=19 integer, parameter :: nohalo_=0, halo_=4 - integer, parameter :: none_=0, sum_=1 - integer, parameter :: avg_=2, square_root_=3 ! Multilevel stuff. integer, parameter :: no_ml_=0, add_ml_prec_=1, mult_ml_prec_=2 @@ -546,14 +544,13 @@ contains integer, intent(in) :: ip logical :: is_legal_prolong - is_legal_prolong = ((ip>=none_).and.(ip<=square_root_)) + is_legal_prolong = ((ip>=psb_none_).and.(ip<=psb_square_root_)) return end function is_legal_prolong function is_legal_restrict(ip) integer, intent(in) :: ip logical :: is_legal_restrict - - is_legal_restrict = ((ip==nohalo_).or.(ip==halo_)) + is_legal_restrict = ((ip==psb_nohalo_).or.(ip==psb_halo_)) return end function is_legal_restrict function is_legal_ml_type(ip)