Taken out unused constants.

base/modules/psb_const_mod.f90

@@ -35,7 +35,6 @@ module psb_const_mod
   !
   integer, parameter             :: izero=0, ione=1
   integer, parameter             :: itwo=2, ithree=3,mone=-1, psb_root_=0
-  real(kind(1.d0)), parameter    :: psb_colrow_=0.33, psb_percent_=0.7
   real(kind(1.d0)), parameter    :: dzero=0.d0, done=1.d0
   complex(kind(1.d0)), parameter :: zzero=(0.d0,0.0d0)
   complex(kind(1.d0)), parameter :: zone=(1.d0,0.0d0)

base/modules/psb_desc_type.f90

@@ -43,8 +43,10 @@ module psb_descriptor_type
   !     Communication, prolongation & restriction
   !
   integer, parameter :: psb_nohalo_=0,  psb_halo_=1
+  ! For overlap update. 
   integer, parameter :: psb_none_=0,  psb_sum_=1
   integer, parameter :: psb_avg_=2,  psb_square_root_=3
+  integer, parameter :: psb_zero_=999
   ! The following are bit fields. 
   integer, parameter :: psb_swap_send_=1, psb_swap_recv_=2
   integer, parameter :: psb_swap_sync_=4, psb_swap_mpi_=8