# get minimal EDR filename from commandline
my $minEDRfile = shift;
my $MinEDRstr = `grep -A37 "EDR alpha" $f | tail -n35|awk "{print \\\$4+\\\$5}"`;
        my @MinEDRvars = split(/\n/,$MinEDRstr);

##</code><code>##

# Print the outputs 
foreach my $i(0..$NU-1){
  print F sprintf("%8.3E %12.6E %12.6E %12.6E\n",
    $R,$Uvars[$i],$EDRvars[$i], 
    $EDRvars[$i] - $MinEDRvars[$i]
  );
}