File |
Line number |
Procedure |
Code |
./pkg/cal/cal_checkdate.F |
111 |
CAL_CHECKDATE |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_checkdate.F |
112 |
CAL_CHECKDATE |
hhmmss = hhmmss/minutesperhour*10000 + |
./pkg/cal/cal_checkdate.F |
113 |
CAL_CHECKDATE |
& mod(hhmmss,minutesperhour)*100 + |
./pkg/cal/cal_checkdate.F |
116 |
CAL_CHECKDATE |
if (date(2) .ne. hhmmss) then |
./pkg/cal/cal_checkdate.F |
56 |
CAL_CHECKDATE |
integer hhmmss |
./pkg/cal/cal_checkdate.F |
64 |
CAL_CHECKDATE |
hhmmss = 0 |
./pkg/cal/cal_checkdate.F |
85 |
CAL_CHECKDATE |
hhmmss = fac*nsecs/secondsperminute |
./pkg/cal/cal_checkdate.F |
86 |
CAL_CHECKDATE |
hhmmss = hhmmss/minutesperhour*10000 + |
./pkg/cal/cal_checkdate.F |
87 |
CAL_CHECKDATE |
& mod(hhmmss,minutesperhour)*100 + |
./pkg/cal/cal_checkdate.F |
89 |
CAL_CHECKDATE |
hhmmss = fac*hhmmss |
./pkg/cal/cal_checkdate.F |
90 |
CAL_CHECKDATE |
if (date(2) .ne. hhmmss) then |
./pkg/cal/cal_toseconds.F |
60 |
CAL_TOSECONDS |
integer ierr, check_sign, hhmmss |
./pkg/cal/cal_toseconds.F |
78 |
CAL_TOSECONDS |
hhmmss = -date(2) |
./pkg/cal/cal_toseconds.F |
82 |
CAL_TOSECONDS |
hhmmss = date(2) |
./pkg/cal/cal_toseconds.F |
86 |
CAL_TOSECONDS |
& (hhmmss/10000)*secondsperhour + |
./pkg/cal/cal_toseconds.F |
87 |
CAL_TOSECONDS |
& mod(hhmmss/100,100)*secondsperminute + |
./pkg/cal/cal_toseconds.F |
88 |
CAL_TOSECONDS |
& mod(hhmmss,100) |
./pkg/cal/cal_fulldate.F |
48 |
CAL_FULLDATE |
integer hhmmss |
./pkg/cal/cal_fulldate.F |
66 |
CAL_FULLDATE |
date(2) = hhmmss |
./pkg/cal/cal_fulldate.F |
8 |
CAL_FULLDATE |
I hhmmss, |
./pkg/cal/cal_timeinterval.F |
58 |
CAL_TIMEINTERVAL |
integer hhmmss |
./pkg/cal/cal_timeinterval.F |
90 |
CAL_TIMEINTERVAL |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_timeinterval.F |
91 |
CAL_TIMEINTERVAL |
date(2) = hhmmss/minutesperhour*10000 + |
./pkg/cal/cal_timeinterval.F |
92 |
CAL_TIMEINTERVAL |
& (mod(fac*hhmmss,minutesperhour)*100 + |
./pkg/cal/cal_addtime.F |
228 |
CAL_ADDTIME |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_addtime.F |
229 |
CAL_ADDTIME |
added(2) = hhmmss/minutesperhour*10000 + |
./pkg/cal/cal_addtime.F |
230 |
CAL_ADDTIME |
& (mod(fac*hhmmss,minutesperhour)*100 + |
./pkg/cal/cal_addtime.F |
60 |
CAL_ADDTIME |
integer hhmmss |
./pkg/cal/cal_timepassed.F |
165 |
CAL_TIMEPASSED |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_timepassed.F |
166 |
CAL_TIMEPASSED |
numdays(2) = hhmmss/minutesperhour*10000 + |
./pkg/cal/cal_timepassed.F |
167 |
CAL_TIMEPASSED |
& mod(hhmmss,minutesperhour)*100 + |
./pkg/cal/cal_timepassed.F |
61 |
CAL_TIMEPASSED |
integer hhmmss |
./pkg/fizhi/fizhi_readparms.F |
36 |
FIZHI_READPARMS |
integer mmdd,hhmmss,nsecf2 |
./pkg/fizhi/fizhi_readparms.F |
72 |
FIZHI_READPARMS |
hhmmss = int((runlength - int(runlength))*1.e6) |
./pkg/fizhi/fizhi_readparms.F |
74 |
FIZHI_READPARMS |
nincr = nsecf2(hhmmss,mmdd,nymdcurrent) |
./pkg/fizhi/fizhi_diagalarms.F |
34 |
FIZHI_DIAGALARMS |
integer mmdd,hhmmss,nsecf2 |
./pkg/fizhi/fizhi_diagalarms.F |
56 |
FIZHI_DIAGALARMS |
hhmmss = int((freq(n) - int(freq(n)))*1.e6) |
./pkg/fizhi/fizhi_diagalarms.F |
57 |
FIZHI_DIAGALARMS |
nincr = mmdd * 1.e6 + hhmmss |
./pkg/fizhi/fizhi_diagalarms.F |
72 |
FIZHI_DIAGALARMS |
hhmmss = int((diagSt_freq(n) - int(diagSt_freq(n)))*1.e6) |
./pkg/fizhi/fizhi_diagalarms.F |
73 |
FIZHI_DIAGALARMS |
nincr = mmdd * 1.e6 + hhmmss |