LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-10 21:18:29 +01:00
Code Issues Releases Wiki Activity

Hartree-Fock fixed when ao_num /= mo_tot_num

Browse Source
This commit is contained in:
Anthony Scemama 2014-07-14 17:38:03 +02:00
parent 849c57e6d9
commit a9f871cd49
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Hartree_Fock/diagonalize_fock.irp.f
View File

@ -1,4 +1,4 @@
BEGIN_PROVIDER [ double precision, diagonal_Fock_matrix_mo, (mo_tot_num) ] BEGIN_PROVIDER [ double precision, diagonal_Fock_matrix_mo, (ao_num) ]
&BEGIN_PROVIDER [ double precision, eigenvectors_Fock_matrix_mo, (ao_num_align,mo_tot_num) ] &BEGIN_PROVIDER [ double precision, eigenvectors_Fock_matrix_mo, (ao_num_align,mo_tot_num) ]
implicit none implicit none
BEGIN_DOC BEGIN_DOC
@ -26,7 +26,7 @@
lwork = -1 lwork = -1
liwork = -1 liwork = -1
call dsygvd(1,'v','u',mo_tot_num,F,size(F,1),S,size(S,1),& call dsygvd(1,'v','u',ao_num,F,size(F,1),S,size(S,1),&
diagonal_Fock_matrix_mo, work, lwork, iwork, liwork, info) diagonal_Fock_matrix_mo, work, lwork, iwork, liwork, info)
if (info /= 0) then if (info /= 0) then
@ -38,14 +38,14 @@
deallocate(work,iwork) deallocate(work,iwork)
allocate(work(lwork), iwork(liwork) ) allocate(work(lwork), iwork(liwork) )
call dsygvd(1,'v','u',mo_tot_num,F,size(F,1),S,size(S,1),& call dsygvd(1,'v','u',ao_num,F,size(F,1),S,size(S,1),&
diagonal_Fock_matrix_mo, work, lwork, iwork, liwork, info) diagonal_Fock_matrix_mo, work, lwork, iwork, liwork, info)
if (info /= 0) then if (info /= 0) then
print *, irp_here//' failed' print *, irp_here//' failed'
stop 1 stop 1
endif endif
do j=1,ao_num do j=1,mo_tot_num
do i=1,ao_num do i=1,ao_num
eigenvectors_Fock_matrix_mo(i,j) = F(i,j) eigenvectors_Fock_matrix_mo(i,j) = F(i,j)
enddo enddo