fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-21 13:21:55 +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
prec/psb_dilu_fct.f90
+2 -2
View File
@@ -249,7 +249,7 @@ contains
!
! Non singularity
!
if (dabs(dia) < epstol) then
if (dabs(dia) < d_epstol) then
!
! Pivot too small: unstable factorization
!
@@ -364,7 +364,7 @@ contains
!
! Non singularity
!
if (dabs(dia) < epstol) then
if (dabs(dia) < d_epstol) then
!
! Pivot too small: unstable factorization
!
prec/psb_zilu_fct.f90
+2 -2
View File
@@ -246,7 +246,7 @@ contains
!
! Non singularity
!
if (abs(dia) < epstol) then
if (abs(dia) < d_epstol) then
!
! Pivot too small: unstable factorization
!
@@ -361,7 +361,7 @@ contains
!
! Non singularity
!
if (abs(dia) < epstol) then
if (abs(dia) < d_epstol) then
!
! Pivot too small: unstable factorization
!