File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_diagalarms.F |
34 |
FIZHI_DIAGALARMS |
integer mmdd,hhmmss,nsecf2 |
./pkg/fizhi/fizhi_diagalarms.F |
58 |
FIZHI_DIAGALARMS |
hhmmss = int((absfreq - int(absfreq))*1.e6) |
./pkg/fizhi/fizhi_diagalarms.F |
59 |
FIZHI_DIAGALARMS |
nincr = mmdd * 1.e6 + hhmmss |
./pkg/fizhi/fizhi_diagalarms.F |
75 |
FIZHI_DIAGALARMS |
hhmmss = int((absfreq - int(absfreq))*1.e6) |
./pkg/fizhi/fizhi_diagalarms.F |
76 |
FIZHI_DIAGALARMS |
nincr = mmdd * 1.e6 + hhmmss |
./pkg/fizhi/fizhi_readparms.F |
37 |
FIZHI_READPARMS |
integer mmdd,hhmmss,nsecf2 |
./pkg/fizhi/fizhi_readparms.F |
92 |
FIZHI_READPARMS |
hhmmss = int((runlength - int(runlength))*1.e6) |
./pkg/fizhi/fizhi_readparms.F |
94 |
FIZHI_READPARMS |
nincr = nsecf2(hhmmss,mmdd,nymdcurrent) |
./pkg/cal/cal_addtime.F |
231 |
CAL_ADDTIME |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_addtime.F |
232 |
CAL_ADDTIME |
added(2) = hhmmss/minutesperhour*10000 + |
./pkg/cal/cal_addtime.F |
233 |
CAL_ADDTIME |
& (mod(fac*hhmmss,minutesperhour)*100 + |
./pkg/cal/cal_addtime.F |
55 |
CAL_ADDTIME |
INTEGER hhmmss |
./pkg/cal/cal_checkdate.F |
121 |
CAL_CHECKDATE |
hhmmss = ABS(date(2)) |
./pkg/cal/cal_checkdate.F |
122 |
CAL_CHECKDATE |
hh = hhmmss/10000 |
./pkg/cal/cal_checkdate.F |
123 |
CAL_CHECKDATE |
mn = MOD(hhmmss/100,100) |
./pkg/cal/cal_checkdate.F |
124 |
CAL_CHECKDATE |
ss = MOD(hhmmss,100) |
./pkg/cal/cal_checkdate.F |
50 |
CAL_CHECKDATE |
INTEGER hhmmss |
./pkg/cal/cal_fulldate.F |
40 |
CAL_FULLDATE |
INTEGER hhmmss |
./pkg/cal/cal_fulldate.F |
57 |
CAL_FULLDATE |
date(2) = hhmmss |
./pkg/cal/cal_fulldate.F |
63 |
CAL_FULLDATE |
& 'yymmdd=',yymmdd,' , hhmmss=',hhmmss |
./pkg/cal/cal_fulldate.F |
75 |
CAL_FULLDATE |
& 'yymmdd=',yymmdd,' , hhmmss=',hhmmss |
./pkg/cal/cal_fulldate.F |
8 |
CAL_FULLDATE |
I hhmmss, |
./pkg/cal/cal_timeinterval.F |
100 |
CAL_TIMEINTERVAL |
date(2) = hhmmss/minutesperhour*10000 + |
./pkg/cal/cal_timeinterval.F |
101 |
CAL_TIMEINTERVAL |
& (mod(fac*hhmmss,minutesperhour)*100 + |
./pkg/cal/cal_timeinterval.F |
49 |
CAL_TIMEINTERVAL |
INTEGER hhmmss |
./pkg/cal/cal_timeinterval.F |
99 |
CAL_TIMEINTERVAL |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_timepassed.F |
170 |
CAL_TIMEPASSED |
hhmmss = nsecs/secondsperminute |
./pkg/cal/cal_timepassed.F |
171 |
CAL_TIMEPASSED |
numdays(2) = hhmmss/minutesperhour*10000 + |
./pkg/cal/cal_timepassed.F |
172 |
CAL_TIMEPASSED |
& mod(hhmmss,minutesperhour)*100 + |
./pkg/cal/cal_timepassed.F |
58 |
CAL_TIMEPASSED |
INTEGER hhmmss |
./pkg/cal/cal_toseconds.F |
52 |
CAL_TOSECONDS |
INTEGER ierr, check_sign, hhmmss |
./pkg/cal/cal_toseconds.F |
81 |
CAL_TOSECONDS |
hhmmss = -date(2) |
./pkg/cal/cal_toseconds.F |
85 |
CAL_TOSECONDS |
hhmmss = date(2) |
./pkg/cal/cal_toseconds.F |
89 |
CAL_TOSECONDS |
& (hhmmss/10000)*secondsperhour + |
./pkg/cal/cal_toseconds.F |
90 |
CAL_TOSECONDS |
& mod(hhmmss/100,100)*secondsperminute + |
./pkg/cal/cal_toseconds.F |
91 |
CAL_TOSECONDS |
& mod(hhmmss,100) |