mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-08 07:03:57 +01:00
12 lines
305 B
FortranFixed
12 lines
305 B
FortranFixed
|
program H_CORE_guess
|
||
|
|
implicit none
|
||
|
|
character*(64) :: label
|
||
|
|
mo_coef = ao_ortho_lowdin_coef
|
||
|
|
TOUCH mo_coef
|
||
|
|
label = "H_CORE_GUESS"
|
||
|
|
call mo_as_eigvectors_of_mo_matrix(mo_mono_elec_integral,size(mo_mono_elec_integral,1),size(mo_mono_elec_integral,2),label)
|
||
|
|
call save_mos
|
||
|
|
|
||
|
|
|
||
|
|
end
|