From c0a1f19cd0c3e051aacf63cf49e51c4386143a85 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 18 Jan 2008 13:52:46 +0000 Subject: [PATCH] psb_const_mod: Restored psb_percent, was taken out by mistake. --- base/modules/psb_const_mod.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/base/modules/psb_const_mod.f90 b/base/modules/psb_const_mod.f90 index 25f867ca..64f3755b 100644 --- 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_=' '