From 3f0f71be22c6b1c93852159586089778b853a95a Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Mon, 3 Feb 2020 11:06:34 -0600 Subject: [PATCH] minor fix --- src/hartree_fock/fock_matrix_hf_complex.irp.f | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/hartree_fock/fock_matrix_hf_complex.irp.f b/src/hartree_fock/fock_matrix_hf_complex.irp.f index a2d5a572..d4b3194d 100644 --- a/src/hartree_fock/fock_matrix_hf_complex.irp.f +++ b/src/hartree_fock/fock_matrix_hf_complex.irp.f @@ -12,9 +12,8 @@ integer :: i0,j0,k0,l0 integer*8 :: p,q complex*16 :: integral, c0 - double precision :: ao_two_e_integral, local_threshold - double precision, allocatable :: ao_two_e_integral_alpha_tmp(:,:) - double precision, allocatable :: ao_two_e_integral_beta_tmp(:,:) + complex*16, allocatable :: ao_two_e_integral_alpha_tmp(:,:) + complex*16, allocatable :: ao_two_e_integral_beta_tmp(:,:) ao_two_e_integral_alpha_complex = (0.d0,0.d0) ao_two_e_integral_beta_complex = (0.d0,0.d0)