#!/usr/bin/env perl
# Extract the ground state energy from the log file
# Rok Zitko, rok.zitko@ijs.si, Oct 2009

use warnings;

my $fn = (@ARGV >= 1 ? shift : "log");

open(F,"<$fn") or die "Error opening $fn. Exiting";

while (<F>) {
  if (/^Total energy:\s+(\S+)\n$/) {
    print "$1";
    exit(0);
  }
}

close F;

exit(1);
