mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-22 19:43:32 +01:00
Merge pull request #233 from Ydrnan/qp2_add
Some checks failed
continuous-integration/drone/push Build is failing
Some checks failed
continuous-integration/drone/push Build is failing
bugfix in restore_symmetry
This commit is contained in:
commit
a317506294
@ -1735,6 +1735,7 @@ subroutine restore_symmetry(m,n,A,LDA,thresh)
|
|||||||
! enddo
|
! enddo
|
||||||
|
|
||||||
! Symmetrize
|
! Symmetrize
|
||||||
|
i = 1
|
||||||
do while( (i < sze).and.(-copy(i) > thresh) )
|
do while( (i < sze).and.(-copy(i) > thresh) )
|
||||||
pi = i
|
pi = i
|
||||||
pf = i
|
pf = i
|
||||||
|
Loading…
Reference in New Issue
Block a user