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

delta_cancel was uninitialized

Browse Source
This commit is contained in:
Yann Garniron 2017-10-18 15:10:15 +02:00
parent 59976b6c58
commit 70543a965f
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
plugins/mrcepa0/dressing.irp.f
View File

@ -23,6 +23,10 @@ use bitmasks
integer, external :: get_index_in_psi_det_sorted_bit, searchDet,detCmp
logical, external :: is_in_wavefunction
provide dij
delta_ij_cancel = 0d0
delta_ii_cancel = 0d0
do i=1,N_det_ref
!$OMP PARALLEL DO default(shared) private(kk, k, blok, exc_Ik,det_tmp2,ok,deg,phase_Ik, l,ll) &
@ -64,6 +68,7 @@ use bitmasks
end do
end do
end do
!$OMP END PARALLEL DO
enddo
END_PROVIDER
@ -82,12 +87,14 @@ END_PROVIDER
logical, external :: detEq
integer, external :: omp_get_thread_num
provide dij hh_shortcut psi_det_size
delta_ij_mrcc = 0d0
delta_ii_mrcc = 0d0
delta_ij_s2_mrcc = 0d0
delta_ii_s2_mrcc = 0d0
PROVIDE dij
provide hh_shortcut psi_det_size! lambda_mrcc
!$OMP PARALLEL DO default(none) schedule(dynamic) &
!$OMP shared(psi_det_generators, N_det_generators, hh_exists, pp_exists, N_int, hh_shortcut) &
!$OMP shared(N_det_non_ref, N_det_ref, delta_ii_mrcc, delta_ij_mrcc, delta_ii_s2_mrcc, delta_ij_s2_mrcc) &