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