mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-24 21:21:47 +02:00
Add nthreads_pt2 to (T)
This commit is contained in:
parent
d93b529b36
commit
b22c835ec8
@ -110,6 +110,7 @@ subroutine ccsd_par_t_space_stoch(nO,nV,t1,t2,f_o,f_v,v_vvvo,v_vvoo,v_vooo,energ
|
||||
double precision :: eocc
|
||||
double precision :: norm
|
||||
integer :: isample
|
||||
PROVIDE nthreads_pt2
|
||||
|
||||
|
||||
! Prepare table of triplets (a,b,c)
|
||||
@ -216,11 +217,12 @@ subroutine ccsd_par_t_space_stoch(nO,nV,t1,t2,f_o,f_v,v_vvvo,v_vvoo,v_vooo,energ
|
||||
print '(A)', ' ======================= ============== =========='
|
||||
|
||||
|
||||
call set_multiple_levels_omp(.False.)
|
||||
call wall_time(t00)
|
||||
imin = 1_8
|
||||
!$OMP PARALLEL &
|
||||
!$OMP PRIVATE(ieta,eta,a,b,c,kiter,isample) &
|
||||
!$OMP DEFAULT(SHARED)
|
||||
!$OMP DEFAULT(SHARED) NUM_THREADS(nthreads_pt2)
|
||||
|
||||
do kiter=1,Nabc
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user