LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 12:56:14 +01:00
Code Issues Releases Wiki Activity

Missing PROVIDE

Browse Source
This commit is contained in:
Thomas Applencourt 2017-01-31 16:18:48 -06:00
parent 78c47519da
commit 71c7f2619a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
plugins/mrcepa0/dressing.irp.f
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) &