mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-08 09:07:36 +02:00
Added 6-31g_star basis set
This commit is contained in:
parent
e2de943f6c
commit
177c6722ac
1154
data/basis/6-31g_star
Normal file
1154
data/basis/6-31g_star
Normal file
File diff suppressed because it is too large
Load Diff
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user