Quick fix to handle cases where there are lots of shared files and the

variance table becomes too big causing latex to bomb. This sorts the
entries by slowest time in descending order showing the top 15. This
might not be the best idea but it will do for now.


git-svn-id: https://svn.mcs.anl.gov/repos/darshan/trunk@335 3b7491f3-a168-0410-bf4b-c445ed680a29

util/bin/darshan-job-summary.pl

@@ -884,7 +884,11 @@ Suffix \&  \& Rank \& Time \& Bytes \& Rank \& Time \& Bytes \& Time \& Bytes \\
 \\hline
 ";
 
-foreach $key (keys %hash_files) {
+my $curcount = 1;
+foreach $key (sort { $hash_files{$b}{'slowest_time'} <=> $hash_files{$a}{'slowest_time'} } keys %hash_files) {
+
+    if ($curcount > 20) { last; }
+
     if ($hash_files{$key}{'procs'} > 1)
     {
         my $vt = sprintf("%.3g", sqrt($hash_files{$key}{'variance_time'}));
@@ -905,6 +909,7 @@ foreach $key (keys %hash_files) {
                $vt \&
                $vb \\\\
          ";
+        $curcount++;
     }
 }