program guess
  implicit none
  character*(64)                 :: label
  call huckel_guess
  
end