hartree_fock
thresh_scf double precision
n_it_scf_max integer
energy double precision
guess character*(32)