10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00

Missing PROVIDE

This commit is contained in:
Thomas Applencourt 2017-01-31 16:18:48 -06:00
parent 78c47519da
commit 71c7f2619a

View File

@ -716,6 +716,9 @@ end subroutine
integer :: II, blok integer :: II, blok
integer*8, save :: notf = 0 integer*8, save :: notf = 0
PROVIDE psi_ref_coef psi_non_ref_coef
call wall_time(wall) call wall_time(wall)
allocate(idx_sorted_bit(N_det), sortRef(N_int,2,N_det_ref)) allocate(idx_sorted_bit(N_det), sortRef(N_int,2,N_det_ref))
@ -839,8 +842,7 @@ END_PROVIDER
delta_sub_ij(:,:,:) = 0d0 delta_sub_ij(:,:,:) = 0d0
delta_sub_ii(:,:) = 0d0 delta_sub_ii(:,:) = 0d0
provide mo_bielec_integrals_in_map provide mo_bielec_integrals_in_map N_det_non_ref psi_ref_coef psi_non_ref_coef
!$OMP PARALLEL DO default(none) schedule(dynamic,10) shared(delta_sub_ij, delta_sub_ii) & !$OMP PARALLEL DO default(none) schedule(dynamic,10) shared(delta_sub_ij, delta_sub_ii) &
!$OMP private(i, J, k, degree, degree2, l, deg, ni) & !$OMP private(i, J, k, degree, degree2, l, deg, ni) &