LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-04-26 02:05:07 +02:00
Code Issues Releases Wiki Activity

Improved parallelism in davidson

Browse Source
This commit is contained in:
Anthony Scemama 2016-12-15 12:10:43 +01:00
parent c911db7f8e
commit bbc6065f25
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Davidson/u0Hu0.irp.f
View File

@ -380,7 +380,7 @@ subroutine H_S2_u_0_nstates(v_0,s_0,u_0,H_jj,S2_jj,n,keys_tmp,Nint,N_st,sze_8)
enddo
!$OMP END DO
!$OMP DO SCHEDULE(dynamic)
!$OMP DO SCHEDULE(static,1) COLLAPSE(2)
do sh=1,shortcut(0,1)
do sh2=1,shortcut(0,1)
if (sh==sh2) cycle