program hcore_guess_prog
  implicit none
  call hcore_guess
end