LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-20 04:02:16 +02:00
Code Issues Releases Wiki Activity

Added 6-31g_star basis set

Browse Source
This commit is contained in:
Anthony Scemama 2014-12-11 01:35:42 +01:00
parent e2de943f6c
commit 177c6722ac
3 changed files with 1167 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1154
data/basis/6-31g_star Normal file
View File

File diff suppressed because it is too large Load Diff

2
ocaml/qp_create_ezfio_from_xyz.ml
View File

@ -148,7 +148,7 @@ let run ?o b c m xyz_file =
let alt_channel = basis_channel x.Atom.element in
Basis.read_element alt_channel i x.Atom.element
end
| _ -> assert false
| x -> raise x
)
|> List.concat
in

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

@ -26,23 +26,33 @@
lwork = -1
liwork = -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)
! call dsygv(1, 'v', 'u',ao_num,F,size(F,1),S,size(S,1),&
! diagonal_Fock_matrix_mo, work, lwork, info)
if (info /= 0) then
print *, irp_here//' failed'
print *, irp_here//' failed : ', info
stop 1
endif
lwork = int(work(1))
liwork = iwork(1)
deallocate(work,iwork)
allocate(work(lwork), iwork(liwork) )
! deallocate(work)
! allocate(work(lwork))
call dsygvd(1,'v','u',ao_num,F,size(F,1),S,size(S,1),&
diagonal_Fock_matrix_mo, work, lwork, iwork, liwork, info)
! call dsygv(1, 'v', 'u',ao_num,F,size(F,1),S,size(S,1),&
! diagonal_Fock_matrix_mo, work, lwork, info)
if (info /= 0) then
print *, irp_here//' failed'
print *, irp_here//' failed : ', info
stop 1
endif
do j=1,mo_tot_num