Select Code to Download

MCCC processed: unknown event at: Tue, 21 Oct 2014 13:39:56 CST 
station, mccc delay,    std,    cc coeff,  cc std,   pol   , t0_times 
+ , delay_times
...
Taper:   0.40 
Phase: P        
PDE    2013  4 20  3 47 55.02    -5.002   152.111   65.3  0.0  5.6

 
97 42121 2 27.38 0.00-12.544 0.000 166.815 0.000 29.90 0.00 83 7.6 0.0
+0
 44 -1.45 1135  0.70 1105 -0.13 1547  0.04 1184  0.91 1168 -1.07 1
...
150  0.34 1124  0.47 1157 -0.33 1 34 -0.58 1 28 -0.59 1199 -0.37 1
185 -0.58 1119  0.04 1490  0.03 1463 -0.06 1330  0.50 1255 -0.04 1
231 -0.17 1 30  0.16 1331  0.77 1523 -0.43 1191  0.58 1  0  0.00 0

 
open(TABLEA, "mcp_list");
@tablea = <TABLEA>;
...
            ($net, $sta) = (split /\./, $netsta)[0,1];
            print $net, " ", $sta, "\n";