9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-02 18:08:23 +01:00
qp2/src/mo_guess/h_core_guess_routine.irp.f

15 lines
493 B
Fortran
Raw Normal View History

2019-01-25 11:39:31 +01:00
subroutine hcore_guess
BEGIN_DOC
! Produce `H_core` MO orbital
END_DOC
implicit none
character*(64) :: label
2020-11-11 10:26:36 +01:00
label = 'Guess'
2019-01-25 11:39:31 +01:00
call mo_as_eigvectors_of_mo_matrix(mo_one_e_integrals, &
size(mo_one_e_integrals,1), &
size(mo_one_e_integrals,2),label,1,.true.)
2020-11-11 01:12:52 +01:00
call nullify_small_elements(ao_num, mo_num, mo_coef, size(mo_coef,1), 1.d-12 )
2019-01-25 11:39:31 +01:00
call save_mos
2020-09-21 15:38:26 +02:00
TOUCH mo_coef mo_label
2019-01-25 11:39:31 +01:00
end