psb_const_mod:

Restored psb_percent, was taken out by mistake.
17 years ago · c0a1f19cd0
parent 88e3b1a4d3
commit c0a1f19cd0
1 changed files with 1 additions and 1 deletions
--- a/base/modules/psb_const_mod.f90
+++ b/base/modules/psb_const_mod.f90
@ -38,7 +38,7 @@ module psb_const_mod
  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)
-  real(kind(1.d0)), parameter    :: epstol=1.d-32
+  real(kind(1.d0)), parameter    :: epstol=1.d-32, psb_percent_=0.7

  character, parameter :: psb_all_='A',  psb_topdef_=' '