LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 11:33:29 +01:00
Code Releases Activity

Add nthreads_pt2 to (T)

Browse Source
This commit is contained in:
Anthony Scemama 2024-04-03 16:59:15 +02:00
parent d93b529b36
commit b22c835ec8
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ccsd/ccsd_t_space_orb_stoch.irp.f
View File

@ -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

0
src/cipsi_utils/environment.irp.f → src/ezfio_files/environment.irp.f
View File