+sub check_data_file () {
+ my $file=shift;
+ my @values;
+ my @tmp;
+
+ open ( FILE, "< $file" ) or die "Can't open $file for reading";
+ while ( <FILE> ) {
+ @tmp = split;
+ push @values, [ @tmp ];
+ }
+ close FILE;
+
+ for ( $j = 0; $j <= $#tmp; $j++) {
+ my $sum=0;
+ for ($i = 2; $i <= $#values ; $i ++) {
+ $values [$i][$j] =~ "-" or $sum = $sum + $values [$i][$j];
+ }
+ die "File: $file : $j column contains no data.\n" unless $sum != 0;
+ }
+}
+
+sub numerically { $a <=> $b; }
+