LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-06 16:15:57 +02:00
Code Releases Activity

Merge pull request #233 from Ydrnan/qp2_add
Some checks failed
continuous-integration/drone/push Build is failing
Details

Browse Source 
bugfix in restore_symmetry
This commit is contained in:
Anthony Scemama 2023-01-18 09:22:44 +01:00 committed by GitHub
commit a317506294
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/utils/linear_algebra.irp.f
View File

@ -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