LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-09-16 17:35:42 +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 enddo
!$OMP END DO !$OMP END DO
!$OMP DO SCHEDULE(dynamic) !$OMP DO SCHEDULE(static,1) COLLAPSE(2)
do sh=1,shortcut(0,1) do sh=1,shortcut(0,1)
do sh2=1,shortcut(0,1) do sh2=1,shortcut(0,1)
if (sh==sh2) cycle if (sh==sh2) cycle