my ($PDE,$year,$month,$day,$hour,$minute,$second,$eqlat,$eqlong,$eqdepth,undef, $mag) = split /\s+/,$tableb[$j];