50 |
LOGICAL time4SnapShot |
LOGICAL time4SnapShot |
51 |
_RL phiSec, freqSec |
_RL phiSec, freqSec |
52 |
#ifdef ALLOW_FIZHI |
#ifdef ALLOW_FIZHI |
53 |
integer yymmdd,hhmmss,nsecf2 |
integer mmdd,hhmmss,nsecf2,alarm2 |
54 |
|
character *9 tagname |
55 |
#endif |
#endif |
56 |
|
|
57 |
LOGICAL DIFF_PHASE_MULTIPLE |
LOGICAL DIFF_PHASE_MULTIPLE |
69 |
|
|
70 |
freqSec = freq(n) |
freqSec = freq(n) |
71 |
phiSec = phase(n) |
phiSec = phase(n) |
72 |
|
time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec, |
73 |
|
& myTime, deltaTclock ) |
74 |
#ifdef ALLOW_FIZHI |
#ifdef ALLOW_FIZHI |
75 |
if( useFIZHI) then |
if( useFIZHI) then |
76 |
yymmdd = int(freq(n)) |
mmdd = int(freq(n)) |
77 |
hhmmss = int((freq(n) - int(freq(n)))*1.e6) |
hhmmss = int((freq(n) - int(freq(n)))*1.e6) |
78 |
freqSec = nsecf2(hhmmss,yymmdd,nymd) |
freqSec = nsecf2(hhmmss,mmdd,nymd) |
79 |
yymmdd = int(phase(n)) |
write(tagname,'(A,I2.2)')'diagtag',n |
80 |
hhmmss = int((phase(n) - int(phase(n)))*1.e6) |
time4SnapShot = alarm2(tagname) |
|
phiSec = nsecf2(hhmmss,yymmdd,nymd) |
|
81 |
endif |
endif |
82 |
#endif |
#endif |
83 |
|
|
|
time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec, |
|
|
& myTime, deltaTclock ) |
|
|
|
|
84 |
IF ( time4SnapShot ) THEN |
IF ( time4SnapShot ) THEN |
85 |
C-- switch ON diagnostics of output-stream # n |
C-- switch ON diagnostics of output-stream # n |
86 |
DO m=1,nActive(n) |
DO m=1,nActive(n) |