AnotherFoxGuy/autocmake
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

safer to test dabs

Browse Source
This commit is contained in:
Radovan Bast 2015-07-16 10:46:39 +02:00
parent 06194a54be
commit 168ba801f1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/fc_blas/src/example.f90
View File

@ -22,7 +22,7 @@ program example
do i = 1, n do i = 1, n
do j = 1, n do j = 1, n
if ((c(i, j) - 20.0d0) > tiny(0.0d0)) return if (dabs(c(i, j) - 20.0d0) > tiny(0.0d0)) return
end do end do
end do end do