egs-format-estar-density.pl

#!/usr/bin/env perl

$count=0;
print " ";

while (<>) {

    chomp;

    # convert estar output to pegs format
    $_ =~ s/^\s+//;

    ($energy, $param) = split(/ +/);
    printf "%.2E,%.3E", $energy, $param;
    $count++;
    if ($count==4) {
        $count = 0;
        print "\n ";
    }
    else {
        print "  ";
    }
}
print "\n ";