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

psblas3:

Browse Source 
Fixed epstol into d_epstol.
Added tests for same_type_as and extends_type_of
This commit is contained in:
Salvatore Filippone
2010-01-22 14:49:17 +00:00
parent 8ebc9dd3c0
commit 00cdc61fac
6 changed files with 211 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_const_mod.f90
+1 -1
View File
@@ -54,7 +54,7 @@ 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 :: epstol=1.d-32, psb_percent_=0.7
real(psb_dpk_), parameter :: d_epstol=1.d-32
real(psb_spk_), parameter :: s_epstol=1.e-16 ! How to choose this?
character, parameter :: psb_all_='A', psb_topdef_=' '