#!/usr/bin/env perl

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

$jc = `extractcolumn custom JC | tail -n 1`;
chomp($jc);
$jc *= -1; # flip sign

$rescaled = $jc/$gap;

print "current=$jc\n";
print "rescaled=$rescaled Delta\n";
