LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 12:03:30 +01:00
Code Releases Activity

fixed incorrect lapack copy call

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

4
src/scf_utils/huckel_complex.irp.f
View File

@ -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_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) ! 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)) 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)) Fock_matrix_ao_beta_complex, size(Fock_matrix_ao_beta_complex, 1))