LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-08-25 14:01:46 +02:00
Code Issues Releases Wiki Activity

Trying to fix travis

Browse Source
This commit is contained in:
Anthony Scemama 2017-06-06 00:51:40 +02:00
parent b2e978c170
commit c49720fdae
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
plugins/Hartree_Fock/diagonalize_fock.irp.f
View File

@ -66,7 +66,7 @@
work, lwork, iwork, liwork, info)
if (info /= 0) then
print *, irp_here//' failed : ', info
print *, irp_here//' DSYEVD failed : ', info
stop 1
endif
lwork = int(work(1))
@ -83,15 +83,19 @@
if (info /= 0) then
call dsyev( 'V', 'U', mo_tot_num, F, &
info = 0
do j=1,mo_tot_num
do i=1,mo_tot_num
F(i,j) = Fock_matrix_mo(i,j)
enddo
enddo
call dsyev( 'V', 'L', mo_tot_num, F, &
size(F,1), diagonal_Fock_matrix_mo, &
work, lwork, info)
if (info < 0) then
if (info /= 0) then
print *, irp_here//' DSYEV failed : ', info
stop 1
else if (info > 0) then
print *, 'Warning: '//irp_here//' DSYEV info : ', info
endif
endif