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 :: eocc
|
||||||
double precision :: norm
|
double precision :: norm
|
||||||
integer :: isample
|
integer :: isample
|
||||||
|
PROVIDE nthreads_pt2
|
||||||
|
|
||||||
|
|
||||||
! Prepare table of triplets (a,b,c)
|
! 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)', ' ======================= ============== =========='
|
print '(A)', ' ======================= ============== =========='
|
||||||
|
|
||||||
|
|
||||||
|
call set_multiple_levels_omp(.False.)
|
||||||
call wall_time(t00)
|
call wall_time(t00)
|
||||||
imin = 1_8
|
imin = 1_8
|
||||||
!$OMP PARALLEL &
|
!$OMP PARALLEL &
|
||||||
!$OMP PRIVATE(ieta,eta,a,b,c,kiter,isample) &
|
!$OMP PRIVATE(ieta,eta,a,b,c,kiter,isample) &
|
||||||
!$OMP DEFAULT(SHARED)
|
!$OMP DEFAULT(SHARED) NUM_THREADS(nthreads_pt2)
|
||||||
|
|
||||||
do kiter=1,Nabc
|
do kiter=1,Nabc
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user