mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-01 05:33:40 +02:00
This commit is contained in:
parent
19286bede4
commit
36a2f0b46f
@ -272,9 +272,10 @@ END_PROVIDER
|
||||
|
||||
|
||||
allocate(computed(nq))
|
||||
computed(:) = .False.
|
||||
|
||||
|
||||
!print *, 'N, rank, block_size', N, rank, block_size
|
||||
|
||||
!$OMP PARALLEL DEFAULT(SHARED) PRIVATE(k,p,q)
|
||||
do k=1,N
|
||||
!$OMP DO
|
||||
@ -285,7 +286,6 @@ END_PROVIDER
|
||||
|
||||
!$OMP DO
|
||||
do q=1,nq
|
||||
computed(q) = .False.
|
||||
Ltmp_q(q,k) = L(Dset(q),k)
|
||||
enddo
|
||||
!$OMP END DO NOWAIT
|
||||
|
Loading…
Reference in New Issue
Block a user