LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-25 22:52:15 +02:00
Code Issues Releases Wiki Activity

Fixed compilation

Browse Source
This commit is contained in:
Anthony Scemama 2016-11-20 22:46:10 +01:00
parent ebcbcd8d35
commit 7f9d19346e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plugins/MRCC_Utils/amplitudes.irp.f
View File

@ -89,7 +89,7 @@ END_PROVIDER
!$OMP shared(is_active_exc, active_hh_idx, active_pp_idx, n_exc_active)&
!$OMP private(lref, pp, II, ok, myMask, myDet, ind, phase, wk, ppp, hh, s)
allocate(lref(N_det_non_ref))
!$OMP DO dynamic
!$OMP DO schedule(dynamic)
do ppp=1,n_exc_active
active_excitation_to_determinants_val(:,:,ppp) = 0d0
active_excitation_to_determinants_idx(:,ppp) = 0

2
plugins/MRCC_Utils/mrcc_utils.irp.f
View File

@ -718,7 +718,7 @@ END_PROVIDER
factor = 1.d0
resold = huge(1.d0)
do k=0,100000
do k=0,hh_nex
!$OMP PARALLEL default(shared) private(cx, i, a_col, a_coll)
!$OMP DO