mirror of
https://github.com/LCPQ/quantum_package
synced 2024-09-16 17:35:42 +02:00
Fixed compilation
This commit is contained in:
parent
ebcbcd8d35
commit
7f9d19346e
@ -89,7 +89,7 @@ END_PROVIDER
|
|||||||
!$OMP shared(is_active_exc, active_hh_idx, active_pp_idx, n_exc_active)&
|
!$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)
|
!$OMP private(lref, pp, II, ok, myMask, myDet, ind, phase, wk, ppp, hh, s)
|
||||||
allocate(lref(N_det_non_ref))
|
allocate(lref(N_det_non_ref))
|
||||||
!$OMP DO dynamic
|
!$OMP DO schedule(dynamic)
|
||||||
do ppp=1,n_exc_active
|
do ppp=1,n_exc_active
|
||||||
active_excitation_to_determinants_val(:,:,ppp) = 0d0
|
active_excitation_to_determinants_val(:,:,ppp) = 0d0
|
||||||
active_excitation_to_determinants_idx(:,ppp) = 0
|
active_excitation_to_determinants_idx(:,ppp) = 0
|
||||||
|
@ -718,7 +718,7 @@ END_PROVIDER
|
|||||||
factor = 1.d0
|
factor = 1.d0
|
||||||
resold = huge(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 PARALLEL default(shared) private(cx, i, a_col, a_coll)
|
||||||
|
|
||||||
!$OMP DO
|
!$OMP DO
|
||||||
|
Loading…
Reference in New Issue
Block a user