| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
103 |
SET_ALARM |
freqs(ntags) = freq |
|
./pkg/fizhi/fizhi_clockstuff.F |
109 |
SET_ALARM |
& ', with frequency: ', freq, ', and Tag: ',tag(1:iL) |
|
./pkg/fizhi/fizhi_clockstuff.F |
117 |
GET_ALARM |
subroutine GET_ALARM (tag,datein,timein,freq,tleft) |
|
./pkg/fizhi/fizhi_clockstuff.F |
138 |
GET_ALARM |
integer freq,datein,timein,tleft |
|
./pkg/fizhi/fizhi_clockstuff.F |
150 |
GET_ALARM |
freq = freqs(n) |
|
./pkg/fizhi/fizhi_clockstuff.F |
158 |
GET_ALARM |
tleft = nsecf(freq) - nalarm(freq,nymd,nhms,datein,timein ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
167 |
GET_ALARM |
freq = 0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
31 |
SET_ALARM |
subroutine SET_ALARM (tag,datein,timein,freq) |
|
./pkg/fizhi/fizhi_clockstuff.F |
51 |
SET_ALARM |
integer freq,datein,timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
67 |
SET_ALARM |
freqs(1) = freq |
|
./pkg/fizhi/fizhi_clockstuff.F |
73 |
SET_ALARM |
& ', with frequency: ', freq, ', and Tag: ',tag(1:iL) |
|
./pkg/fizhi/fizhi_clockstuff.F |
82 |
SET_ALARM |
print *, 'Frequency: ',freqs(n),' (Old) ',freq,' (New)' |
|
./pkg/fizhi/fizhi_clockstuff.F |
86 |
SET_ALARM |
freqs(n) = freq |
|
./pkg/fizhi/fizhi_diagalarms.F |
48 |
FIZHI_DIAGALARMS |
absfreq = abs(freq(n)) |
|
./pkg/openad/ad_s_different_multiple.F |
31 |
OAD_S_DIFFERENT_MULTIPLE |
_RL freq, val1, step |
|
./pkg/openad/ad_s_different_multiple.F |
46 |
OAD_S_DIFFERENT_MULTIPLE |
IF ( freq .NE. 0. ) THEN |
|
./pkg/openad/ad_s_different_multiple.F |
47 |
OAD_S_DIFFERENT_MULTIPLE |
IF ( ABS(step) .GT. freq ) THEN |
|
./pkg/openad/ad_s_different_multiple.F |
57 |
OAD_S_DIFFERENT_MULTIPLE |
v4 = NINT(v1/freq)*freq |
|
./pkg/openad/ad_s_different_multiple.F |
9 |
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 phase, freq, step |
|
./pkg/cal/cal_time2dump.F |
34 |
CAL_TIME2DUMP |
IF ( calendarDumps .AND. freq .NE. 0. ) THEN |
|
./pkg/cal/cal_time2dump.F |
40 |
CAL_TIME2DUMP |
posFreq = ABS(freq) |
|
./pkg/cal/cal_time2dump.F |
7 |
CAL_TIME2DUMP |
I phase, 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 |
109 |
NO PROCEDURE |
_RL freq(numLists), phase(numLists) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
128 |
NO PROCEDURE |
& freq, phase, averageFreq, averagePhase, |
|
./pkg/diagnostics/diagnostics_out.F |
113 |
DIAGNOSTICS_OUT |
IF ( freq(listId).LT.0. ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
130 |
DIAGNOSTICS_OUT |
timeRec(1) = (timeRec(1)-phase(listId))/freq(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
136 |
DIAGNOSTICS_OUT |
timeRec(1) = phase(listId) + freq(listId)*FLOAT(i) |
|
./pkg/diagnostics/diagnostics_readparms.F |
233 |
DIAGNOSTICS_READPARMS |
freq(n) = 0. |
|
./pkg/diagnostics/diagnostics_readparms.F |
289 |
DIAGNOSTICS_READPARMS |
freq(n) = frequency(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
556 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', freq(n), |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
205 |
DIAGNOSTICS_SET_POINTERS |
IF ( freq(j).EQ.freq(ld) .AND. phase(j).EQ.phase(ld) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
170 |
DIAGNOSTICS_SETDIAG |
IF (flagM .AND. freq(l) .EQ.freq(listId) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
86 |
DIAGNOSTICS_SETDIAG |
IF (flagD .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 |
83 |
DIAGNOSTICS_SWITCH_ONOFF |
IF ( freq(n).LT.0. ) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
86 |
DIAGNOSTICS_SWITCH_ONOFF |
freqSec = freq(n) |
|
./pkg/diagnostics/diagnostics_utils.F |
274 |
DIAGNOSTICS_GET_POINTERS |
& .AND. freq(n) .EQ. freq(listId) |
|
./pkg/diagnostics/diagnostics_write.F |
165 |
DIAGNOSTICS_WRITE |
freqSec = freq(n) |
|
./pkg/diagnostics/diagnostics_write.F |
60 |
DIAGNOSTICS_WRITE |
freqSec = freq(n) |