Fix locks in openmp

2024-12-22 03:23:29 +01:00 · 2023-09-20 15:16:10 +02:00 · 2023-09-20 15:16:10 +02:00 · 4f78610432
commit 4f78610432
parent c44d624ceb
2 changed files with 17 additions and 16 deletions
--- a/src/tc_bi_ortho/slater_tc_opt.irp.f
+++ b/src/tc_bi_ortho/slater_tc_opt.irp.f
@ -8,6 +8,7 @@ subroutine provide_all_three_ints_bi_ortho()
  END_DOC

  implicit none
+  PROVIDE ao_two_e_integrals_in_map

  if(three_body_h_tc) then

--- a/src/tc_bi_ortho/tc_hmat.irp.f
+++ b/src/tc_bi_ortho/tc_hmat.irp.f
@ -15,7 +15,7 @@ BEGIN_PROVIDER [double precision, htilde_matrix_elmt_bi_ortho, (N_det,N_det)]
  integer          :: i, j
  double precision :: htot

-  PROVIDE N_int
+  call provide_all_three_ints_bi_ortho

  i = 1
  j = 1