From 97d3f2d951f70879d8e32d7eda91ce933ee9806a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 22 Jan 2010 15:02:58 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_const_mod.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/base/modules/psb_const_mod.f90 b/base/modules/psb_const_mod.f90 index 712e4612..71a310d9 100644 --- a/base/modules/psb_const_mod.f90 +++ b/base/modules/psb_const_mod.f90 @@ -54,8 +54,8 @@ module psb_const_mod complex(psb_spk_), parameter :: cone=(1.e0,0.0e0) complex(psb_dpk_), parameter :: zzero=(0.d0,0.0d0) complex(psb_dpk_), parameter :: zone=(1.d0,0.0d0) - real(psb_dpk_), parameter :: d_epstol=1.d-32 - real(psb_spk_), parameter :: s_epstol=1.e-16 ! How to choose this? + real(psb_dpk_), parameter :: d_epstol=1.1d-16 ! Unit roundoff. + real(psb_spk_), parameter :: s_epstol=5.e-8 ! Is this right? character, parameter :: psb_all_='A', psb_topdef_=' ' !