Lines Matching refs:drift

4 # drift of 104.8576 -> +1 tick.  Base  of 10000 ticks.
17     my $drift_file = $opts->{'drift-file'};
32     my $drift = 0.;
36     $drift = <$dfh>; 
39     die "Invalid drift file value <$drift>" if $drift !~ /[+-]?\d+\.?[0-9]+/;
41     while ($drift < 0) {
42         $drift += $cvt;
46     while ($drift > $cvt) {
47         $drift -= $cvt;
51     printf "%.3f (drift)\n", $drift;
52     printf "%d usec; %d nsec\n", $tick, ($tick + ($drift/$cvt)) * 1000;