LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 19:43:32 +01:00
Code Releases Activity

bugfix in restore_symmetry

Browse Source
This commit is contained in:
Yann Damour 2023-01-18 09:05:16 +01:00
parent d2f234afb5
commit 66ce35f5db
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