| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
103 |
GET_ALARM |
subroutine GET_ALARM (tag,datein,timein,freq,tleft) |
|
./pkg/fizhi/fizhi_clockstuff.F |
124 |
GET_ALARM |
integer freq,datein,timein,tleft |
|
./pkg/fizhi/fizhi_clockstuff.F |
136 |
GET_ALARM |
freq = freqs(n) |
|
./pkg/fizhi/fizhi_clockstuff.F |
144 |
GET_ALARM |
tleft = nsecf(freq) - nalarm(freq,nymd,nhms,datein,timein ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
153 |
GET_ALARM |
freq = 0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
27 |
SET_ALARM |
subroutine SET_ALARM (tag,datein,timein,freq) |
|
./pkg/fizhi/fizhi_clockstuff.F |
44 |
SET_ALARM |
integer freq,datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
57 |
SET_ALARM |
freqs(1) = freq |
|
./pkg/fizhi/fizhi_clockstuff.F |
60 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(1) |
|
./pkg/fizhi/fizhi_clockstuff.F |
69 |
SET_ALARM |
print *, 'Frequency: ',freqs(n),' (Old) ',freq,' (New)' |
|
./pkg/fizhi/fizhi_clockstuff.F |
73 |
SET_ALARM |
freqs(n) = freq |
|
./pkg/fizhi/fizhi_clockstuff.F |
90 |
SET_ALARM |
freqs(ntags) = freq |
|
./pkg/fizhi/fizhi_clockstuff.F |
93 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(ntags) |
|
./pkg/fizhi/fizhi_diagalarms.F |
48 |
FIZHI_DIAGALARMS |
absfreq = abs(freq(n)) |
|
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F |
28 |
OAD_S_DIFFERENT_MULTIPLE |
_RL freq, val1, step |
|
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F |
43 |
OAD_S_DIFFERENT_MULTIPLE |
IF ( freq .NE. 0. ) THEN |
|
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F |
44 |
OAD_S_DIFFERENT_MULTIPLE |
IF ( ABS(step) .GT. freq ) THEN |
|
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F |
54 |
OAD_S_DIFFERENT_MULTIPLE |
v4 = NINT(v1/freq)*freq |
|
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F |
6 |
OAD_S_DIFFERENT_MULTIPLE |
subroutine OAD_S_DIFFERENT_MULTIPLE( freq, val1, step, isit ) |
|
./eesupp/src/diff_phase_multiple.F |
10 |
NO PROCEDURE |
LOGICAL FUNCTION DIFF_PHASE_MULTIPLE( phase, freq, val1, step ) |
|
./eesupp/src/diff_phase_multiple.F |
33 |
NO PROCEDURE |
_RL phase, freq, val1, step |
|
./eesupp/src/diff_phase_multiple.F |
47 |
NO PROCEDURE |
IF ( freq .NE. 0. ) THEN |
|
./eesupp/src/diff_phase_multiple.F |
48 |
NO PROCEDURE |
IF ( ABS(step) .GT. ABS(freq) ) THEN |
|
./eesupp/src/diff_phase_multiple.F |
61 |
NO PROCEDURE |
v4 = phase + NINT((v1-phase)/freq)*freq |
|
./eesupp/src/different_multiple.F |
10 |
NO PROCEDURE |
LOGICAL FUNCTION DIFFERENT_MULTIPLE( freq, val1, step ) |
|
./eesupp/src/different_multiple.F |
32 |
NO PROCEDURE |
_RL freq, val1, step |
|
./eesupp/src/different_multiple.F |
46 |
NO PROCEDURE |
IF ( freq .NE. 0. ) THEN |
|
./eesupp/src/different_multiple.F |
47 |
NO PROCEDURE |
IF ( ABS(step) .GT. freq ) THEN |
|
./eesupp/src/different_multiple.F |
57 |
NO PROCEDURE |
v4 = NINT(v1/freq)*freq |
|
./pkg/cal/cal_time2dump.F |
23 |
CAL_TIME2DUMP |
_RL freq, step |
|
./pkg/cal/cal_time2dump.F |
37 |
CAL_TIME2DUMP |
IF ( freq.GE.2592000. .AND. freq.LE.2678400. ) THEN |
|
./pkg/cal/cal_time2dump.F |
42 |
CAL_TIME2DUMP |
IF ( freq.GE.31104000. .AND. freq.LE.31968000. ) THEN |
|
./pkg/cal/cal_time2dump.F |
7 |
CAL_TIME2DUMP |
I freq, step, |
|
./pkg/chronos/chronos.F |
100 |
GET_ALARM |
subroutine GET_ALARM (tag,date,time,freq,tleft) |
|
./pkg/chronos/chronos.F |
121 |
GET_ALARM |
integer freq,date,time,tleft |
|
./pkg/chronos/chronos.F |
151 |
GET_ALARM |
freq = freqs(n) |
|
./pkg/chronos/chronos.F |
159 |
GET_ALARM |
tleft = nsecf(freq) - nalarm(freq,nymd,nhms,date,time ) |
|
./pkg/chronos/chronos.F |
168 |
GET_ALARM |
freq = 0 |
|
./pkg/chronos/chronos.F |
184 |
GET_ALARM |
integer n,modalarm,nalarm,freq,date0,time0 |
|
./pkg/chronos/chronos.F |
185 |
GET_ALARM |
modalarm(freq,date0,time0) = nalarm (freq,date,time,date0,time0 ) |
|
./pkg/chronos/chronos.F |
23 |
SET_ALARM |
integer freq,date,time |
|
./pkg/chronos/chronos.F |
54 |
SET_ALARM |
freqs(1) = freq |
|
./pkg/chronos/chronos.F |
57 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) date,time,freq,tags(1) |
|
./pkg/chronos/chronos.F |
66 |
SET_ALARM |
print *, 'Frequency: ',freqs(n),' (Old) ',freq,' (New)' |
|
./pkg/chronos/chronos.F |
6 |
SET_ALARM |
subroutine SET_ALARM (tag,date,time,freq) |
|
./pkg/chronos/chronos.F |
70 |
SET_ALARM |
freqs(n) = freq |
|
./pkg/chronos/chronos.F |
87 |
SET_ALARM |
freqs(ntags) = freq |
|
./pkg/chronos/chronos.F |
90 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) date,time,freq,tags(ntags) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
108 |
NO PROCEDURE |
& freq, phase, averageFreq, averagePhase, |
|
./pkg/diagnostics/DIAGNOSTICS.h |
85 |
NO PROCEDURE |
_RL freq(numlists), phase(numlists) |
|
./pkg/diagnostics/diagnostics_out.F |
125 |
DIAGNOSTICS_OUT |
IF ( freq(listId).LT.0. ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
142 |
DIAGNOSTICS_OUT |
timeRec(1) = (timeRec(1)-phase(listId))/freq(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
148 |
DIAGNOSTICS_OUT |
timeRec(1) = phase(listId) + freq(listId)*FLOAT(i) |
|
./pkg/diagnostics/diagnostics_readparms.F |
185 |
DIAGNOSTICS_READPARMS |
freq(n) = 0. |
|
./pkg/diagnostics/diagnostics_readparms.F |
228 |
DIAGNOSTICS_READPARMS |
freq(n) = frequency(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
470 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', freq(n), |
|
./pkg/diagnostics/diagnostics_setdiag.F |
118 |
DIAGNOSTICS_SETDIAG |
IF (flag .AND. freq(l) .EQ.freq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
67 |
DIAGNOSTICS_SETDIAG |
IF (flag .AND. freq(l) .EQ. freq(listId) |
|
./pkg/diagnostics/diagnostics_summary.F |
99 |
DIAGNOSTICS_SUMMARY |
& freq(ld), phase(ld), ' |', nlevels(ld) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
70 |
DIAGNOSTICS_SWITCH_ONOFF |
IF ( freq(n).LT.0. ) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
73 |
DIAGNOSTICS_SWITCH_ONOFF |
freqSec = freq(n) |
|
./pkg/diagnostics/diagnostics_utils.F |
266 |
DIAGNOSTICS_GET_POINTERS |
& .AND. freq(n) .EQ. freq(listId) |
|
./pkg/diagnostics/diagnostics_write.F |
147 |
DIAGNOSTICS_WRITE |
freqSec = freq(n) |
|
./pkg/diagnostics/diagnostics_write.F |
56 |
DIAGNOSTICS_WRITE |
freqSec = freq(n) |