From a6a4e8ecac5c7e810a0a8bcd0319819accb789c0 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Mon, 3 Feb 2020 13:55:14 -0600 Subject: [PATCH] fixed incorrect lapack copy call --- src/scf_utils/huckel_complex.irp.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/scf_utils/huckel_complex.irp.f b/src/scf_utils/huckel_complex.irp.f index 52fdef8f..8f448d42 100644 --- a/src/scf_utils/huckel_complex.irp.f +++ b/src/scf_utils/huckel_complex.irp.f @@ -25,9 +25,9 @@ subroutine huckel_guess_complex ! Fock_matrix_ao_alpha(1:ao_num,1:ao_num) = A(1:ao_num,1:ao_num) ! Fock_matrix_ao_beta (1:ao_num,1:ao_num) = A(1:ao_num,1:ao_num) - call zlacp2('X', ao_num, ao_num, A, size(A,1), & + call zlacpy('X', ao_num, ao_num, A, size(A,1), & Fock_matrix_ao_alpha_complex, size(Fock_matrix_ao_alpha_complex,1)) - call zlacp2('X', ao_num, ao_num, A, size(A,1), & + call zlacpy('X', ao_num, ao_num, A, size(A,1), & Fock_matrix_ao_beta_complex, size(Fock_matrix_ao_beta_complex, 1))