# 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]
  );
}