PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-24 13:23:39 +01:00
Code Releases Activity

minor fix

Browse Source
This commit is contained in:
Kevin Gasperich 2020-02-03 11:06:34 -06:00
parent dd7b3131b8
commit 3f0f71be22
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/hartree_fock/fock_matrix_hf_complex.irp.f
View File

@ -12,9 +12,8 @@
integer :: i0,j0,k0,l0 integer :: i0,j0,k0,l0
integer*8 :: p,q integer*8 :: p,q
complex*16 :: integral, c0 complex*16 :: integral, c0
double precision :: ao_two_e_integral, local_threshold complex*16, allocatable :: ao_two_e_integral_alpha_tmp(:,:)
double precision, allocatable :: ao_two_e_integral_alpha_tmp(:,:) complex*16, allocatable :: ao_two_e_integral_beta_tmp(:,:)
double precision, allocatable :: ao_two_e_integral_beta_tmp(:,:)
ao_two_e_integral_alpha_complex = (0.d0,0.d0) ao_two_e_integral_alpha_complex = (0.d0,0.d0)
ao_two_e_integral_beta_complex = (0.d0,0.d0) ao_two_e_integral_beta_complex = (0.d0,0.d0)