Return to tdata.awk CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / ntp / scripts / stats

ntp 4.2.6p5

    1: # program to produce loran tdata statistics from clockstats files
    2: #
    3: # usage: awk -f tdata.awk clockstats
    4: #
    5: # format of input record (missing replaced by -40.0)
    6: # 49228 36.852 127.127.10.1 93:241:00:00:20.812 LORAN TDATA
    7: # M OK 0 0 1169.14 -7.4 3.16E-07 .424
    8: # W CV 0 0 3329.30 -16.4 1.81E-06 
    9: # X OK 0 0 1737.19 -10.5 3.44E-07 .358
   10: # Y OK 0 0 2182.07 -9.0 4.41E-07 .218
   11: #
   12: # format of output record (time in nanoseconds, signal values in dB)
   13: #  MJD      sec      time     M      W      X      Y      Z
   14: # 49228    36.852   175.0   -7.4  -16.4  -10.5   -9.0
   15: #
   16: # select LORAN TDATA records with valid format
   17: {
   18: 	if (NF >= 7 && $6 == "TDATA") {
   19: 		m = w = x = y = z = -40.0
   20: 		for (i = 7; i < NF - 5; i++) {
   21: 			if ($i == "M" && $(i+1) == "OK") {
   22: 				i += 5
   23: 				m = $i
   24: 			}
   25: 			else if ($i == "W" && $(i+1) == "OK") {
   26: 				i += 5
   27: 				w = $i
   28: 			}
   29: 			else if ($i == "X" && $(i+1) == "OK") {
   30: 				i += 5
   31: 				x = $i
   32: 			}
   33: 			else if ($i == "Y" && $(i+1) == "OK") {
   34: 				i += 5
   35: 				y = $i
   36: 			}
   37: 			else if ($i == "Z" && $(i+1) == "OK") {
   38: 				i += 5
   39: 				z = $i
   40: 			}
   41:                 }
   42: 		printf "%5s %9.3f %6.1f %6.1f %6.1f %6.1f %6.1f\n", $1, $2, m, w, x, y, z
   43: 	}
   44: }
   45: