LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 03:53:29 +01:00
Code Releases Activity

Removed collapse

Browse Source
This commit is contained in:
Anthony Scemama 2023-01-17 13:38:50 +01:00
parent 2f937cbca4
commit b101fd398d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1704,7 +1704,7 @@ subroutine restore_symmetry(m,n,A,LDA,thresh)
!$OMP SHARED(A,m,n,sze,copy_sign,copy,key,ii,jj) & !$OMP SHARED(A,m,n,sze,copy_sign,copy,key,ii,jj) &
!$OMP PRIVATE(i,j,k) & !$OMP PRIVATE(i,j,k) &
!$OMP DEFAULT(NONE) !$OMP DEFAULT(NONE)
!$OMP DO COLLAPSE(2) !$OMP DO
do j = 1, n do j = 1, n
do i = 1, m do i = 1, m
k = i+(j-1)*m k = i+(j-1)*m