mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 10:48:31 +02:00
Fix possible float_of_string: 0.160099927795302-102 error
This commit is contained in:
parent
a7cd7ef28e
commit
6881a65994
@ -1565,7 +1565,7 @@ subroutine nullify_small_elements(m,n,A,LDA,thresh)
|
|||||||
! Remove tiny elements
|
! Remove tiny elements
|
||||||
do j=1,n
|
do j=1,n
|
||||||
do i=1,m
|
do i=1,m
|
||||||
if ( dabs(A(i,j) * amax) < thresh ) then
|
if ( (dabs(A(i,j) * amax) < thresh).or.(dabs(A(i,j)) < 1.d-99) ) then
|
||||||
A(i,j) = 0.d0
|
A(i,j) = 0.d0
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
Loading…
Reference in New Issue
Block a user