mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-22 20:34:58 +01:00
Remove possible division by zero
This commit is contained in:
parent
008d1b9e8f
commit
b89f53f40b
@ -1550,6 +1550,7 @@ subroutine nullify_small_elements(m,n,A,LDA,thresh)
|
|||||||
amax = max(dabs(A(i,j)), amax)
|
amax = max(dabs(A(i,j)), amax)
|
||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
|
if (amax == 0.d0) return
|
||||||
amax = 1.d0/amax
|
amax = 1.d0/amax
|
||||||
|
|
||||||
! Remove tiny elements
|
! Remove tiny elements
|
||||||
|
Loading…
Reference in New Issue
Block a user