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