fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 19:02:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2010-01-22 15:02:58 +00:00
parent 00cdc61fac
commit 97d3f2d951
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_const_mod.f90
+2 -2
View File
@@ -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_=' '
!