mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-30 15:15:38 +01:00
This commit is contained in:
parent
fba2fefb19
commit
4ad7765127
@ -457,8 +457,7 @@ subroutine compute_r2_space_chol(nO,nV,t1,t2,tau,H_oo,H_vv,H_vo,r2,max_r2)
|
|||||||
integer :: u,v,i,j,beta,gam,a,b
|
integer :: u,v,i,j,beta,gam,a,b
|
||||||
double precision :: max_r2_local
|
double precision :: max_r2_local
|
||||||
|
|
||||||
! Residual
|
call set_multiple_levels_omp(.False.)
|
||||||
!r2 = 0d0
|
|
||||||
|
|
||||||
!$omp parallel &
|
!$omp parallel &
|
||||||
!$omp shared(nO,nV,r2,cc_space_v_oovv) &
|
!$omp shared(nO,nV,r2,cc_space_v_oovv) &
|
||||||
|
Loading…
Reference in New Issue
Block a user