| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
137 |
GET_ALARM |
datein = dates(n) |
|
./pkg/fizhi/fizhi_clockstuff.F |
177 |
GET_ALARM |
alarm = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
179 |
GET_ALARM |
alarm = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
180 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
181 |
GET_ALARM |
& .and. nalarm( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
204 |
GET_ALARM |
alarm2 = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
206 |
GET_ALARM |
alarm2 = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
207 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
208 |
GET_ALARM |
& .and. nalarm2( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
237 |
GET_ALARM |
alarm2next = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
239 |
GET_ALARM |
alarm2next = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
240 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
241 |
GET_ALARM |
& .and. nalarm2( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
58 |
SET_ALARM |
dates(1) = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
70 |
SET_ALARM |
print *, ' Date0: ',dates(n),' (Old) ',datein,' (New)' |
|
./pkg/fizhi/fizhi_clockstuff.F |
74 |
SET_ALARM |
dates(n) = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
91 |
SET_ALARM |
dates(ntags) = datein |
|
./pkg/chronos/chronos.F |
152 |
GET_ALARM |
date = dates(n) |
|
./pkg/chronos/chronos.F |
193 |
GET_ALARM |
alarm = (dates(n).eq.date) .and. (times(n).eq.time) |
|
./pkg/chronos/chronos.F |
195 |
GET_ALARM |
alarm = ( date.gt.dates(n) .or. |
|
./pkg/chronos/chronos.F |
196 |
GET_ALARM |
. (date.eq.dates(n) .and. time.ge.times(n)) ) .and. |
|
./pkg/chronos/chronos.F |
197 |
GET_ALARM |
. modalarm( freqs(n),dates(n),times(n) ).eq.0 |
|
./pkg/chronos/chronos.F |
55 |
SET_ALARM |
dates(1) = date |
|
./pkg/chronos/chronos.F |
67 |
SET_ALARM |
print *, ' Date0: ',dates(n),' (Old) ',date,' (New)' |
|
./pkg/chronos/chronos.F |
71 |
SET_ALARM |
dates(n) = date |
|
./pkg/chronos/chronos.F |
88 |
SET_ALARM |
dates(ntags) = date |
|
./pkg/chronos/chronos.h |
12 |
NO PROCEDURE |
integer freqs,dates,times |
|
./pkg/chronos/chronos.h |
22 |
NO PROCEDURE |
common /chronos/ dates(maxtag) |
|
./pkg/fizhi/chronos.h |
12 |
NO PROCEDURE |
integer freqs,dates,times |
|
./pkg/fizhi/chronos.h |
22 |
NO PROCEDURE |
common /chronos/ dates(maxtag) |