for  my $i ( 0 .. $no_energy_bins ) {
     my $j=0;
     printf PLOUT "$energy_bin[$i] $spec_cps[$i][$j] $sigma_cps[$i][$j]%s", $j<=$y_iter_max ? " " : "\n" while $spec_cps[$i][$j++];
#
#   for my $j ( 0 .. $max_y_locations ) {
#   printf PLOUT ( "%.5f %.5e %.5f %.5e %.5f %.5e %.5f %.5e %.5f \n",
#  $energy_bin[$i] $spec_cps[$i][$j] $sigma_cps[$i][$j]\t; )
#   }
#
    }