#!/usr/bin/env perl

my $gap = `getparam bcsgap param`;
chomp($gap);

open(F, "${NRGPREFIX} lastblock annotated.dat |") or die "oops!";

while(<F>) {
    /(\S+)\s+(\S+)\s/;
    my $E = $1/$gap;
    my $spin = $2;
    $spin =~ s/,//;
    if ($E < 1) {
      print "$E $spin\n";
    }
    $cnt++;
}

close F;

