mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-01 05:33:40 +02:00
Clean up openmp in cholesky
This commit is contained in:
parent
0dca6cfde4
commit
0a3d462510
@ -255,7 +255,7 @@ END_PROVIDER
|
|||||||
allocate(computed(nq))
|
allocate(computed(nq))
|
||||||
!print *, 'allocate : computed(nq)', memory_of_int(nq)
|
!print *, 'allocate : computed(nq)', memory_of_int(nq)
|
||||||
|
|
||||||
!$OMP PARALLEL DEFAULT(SHARED) PRIVATE(m,k,p,q,j)
|
!$OMP PARALLEL DEFAULT(SHARED) PRIVATE(k,p,q,j)
|
||||||
|
|
||||||
!$OMP DO
|
!$OMP DO
|
||||||
do q=1,nq
|
do q=1,nq
|
||||||
@ -351,7 +351,7 @@ END_PROVIDER
|
|||||||
! iii.
|
! iii.
|
||||||
f = 1.d0/dsqrt(Qmax)
|
f = 1.d0/dsqrt(Qmax)
|
||||||
|
|
||||||
!$OMP PARALLEL PRIVATE(m,p,q,k) DEFAULT(shared)
|
!$OMP PARALLEL PRIVATE(p,q) DEFAULT(shared)
|
||||||
!$OMP DO
|
!$OMP DO
|
||||||
do p=1,np
|
do p=1,np
|
||||||
Ltmp_p(p,iblock) = Ltmp_p(p,iblock) * f
|
Ltmp_p(p,iblock) = Ltmp_p(p,iblock) * f
|
||||||
|
Loading…
Reference in New Issue
Block a user