mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-15 00:38:34 +02:00
fixed incorrect lapack copy call
This commit is contained in:
parent
3f0f71be22
commit
a6a4e8ecac
@ -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))
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user