Fix rho calculation in vdw-DF.F for parallel threads

This commit is contained in:
Eric Bylaska 2025-11-20 16:20:05 -08:00 committed by GitHub
parent e15e9fe0f0
commit ec9e9dd71b
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -393,7 +393,7 @@
nthr = Parallel_nthreads()
do i=tid+1,n2ft3d,nthr
rho(i) = dn(i,1)+dn(1,ispin)+dncut
rho(i) = dn(i,1)+dn(i,ispin)+dncut
end do
!$OMP BARRIER