Lines Matching refs:drift
3 # drift of 104.8576 -> +1 tick. Base of 10000 ticks.
16 my $drift_file = $opts->{'drift-file'};
31 my $drift = 0.;
35 $drift = <$dfh>;
38 die "Invalid drift file value <$drift>" if $drift !~ /[+-]?\d+\.?[0-9]+/;
40 while ($drift < 0) {
41 $drift += $cvt;
45 while ($drift > $cvt) {
46 $drift -= $cvt;
50 printf "%.3f (drift)\n", $drift;
51 printf "%d usec; %d nsec\n", $tick, ($tick + ($drift/$cvt)) * 1000;