9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-13 08:53:38 +01:00
qp2/src/mo_guess/h_core_guess_routine.irp.f
2019-01-25 11:39:31 +01:00

14 lines
418 B
Fortran

subroutine hcore_guess
BEGIN_DOC
! Produce `H_core` MO orbital
END_DOC
implicit none
character*(64) :: label
label = "Guess"
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,.false.)
call save_mos
SOFT_TOUCH mo_coef mo_label
end