PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-07-11 22:03:55 +02:00
Code Releases Activity

Fix locks in openmp

Browse Source
This commit is contained in:
Anthony Scemama 2023-09-20 15:16:10 +02:00
parent c44d624ceb
commit 4f78610432
2 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/tc_bi_ortho/slater_tc_opt.irp.f
View File

@ -8,6 +8,7 @@ subroutine provide_all_three_ints_bi_ortho()
END_DOC END_DOC
implicit none implicit none
PROVIDE ao_two_e_integrals_in_map
if(three_body_h_tc) then if(three_body_h_tc) then

2
src/tc_bi_ortho/tc_hmat.irp.f
View File

@ -15,7 +15,7 @@ BEGIN_PROVIDER [double precision, htilde_matrix_elmt_bi_ortho, (N_det,N_det)]
integer :: i, j integer :: i, j
double precision :: htot double precision :: htot
PROVIDE N_int call provide_all_three_ints_bi_ortho
i = 1 i = 1
j = 1 j = 1