| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal.h |
71 |
NO PROCEDURE |
& ndaymonth, |
|
./pkg/cal/cal.h |
92 |
NO PROCEDURE |
integer ndaymonth(12,2) |
|
./pkg/cal/cal_addtime.F |
193 |
CAL_ADDTIME |
if (di .gt. ndaymonth(mi,li)) then |
|
./pkg/cal/cal_addtime.F |
219 |
CAL_ADDTIME |
di = ndaymonth(mi,li) |
|
./pkg/cal/cal_daysformonth.F |
107 |
CAL_DAYSFORMONTH |
lastday = ndaymonth(firstmonth,lyfirst) |
|
./pkg/cal/cal_daysformonth.F |
133 |
CAL_DAYSFORMONTH |
lastday = ndaymonth(firstmonth,lyfirst) - firstd + 1 |
|
./pkg/cal/cal_daysformonth.F |
139 |
CAL_DAYSFORMONTH |
numdays = ndaymonth(firstmonth,lyfirst) - firstd + 1 |
|
./pkg/cal/cal_daysformonth.F |
147 |
CAL_DAYSFORMONTH |
numdays = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_daysformonth.F |
155 |
CAL_DAYSFORMONTH |
lastday = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_daysformonth.F |
160 |
CAL_DAYSFORMONTH |
numdays = ndaymonth(firstmonth,lyfirst) - firstd + 1 |
|
./pkg/cal/cal_daysformonth.F |
168 |
CAL_DAYSFORMONTH |
numdays = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_daysformonth.F |
180 |
CAL_DAYSFORMONTH |
lastday = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_dayspermonth.F |
75 |
CAL_DAYSPERMONTH |
ndays = ndaymonth(mymonth,mydate(3)) - myday + 1 |
|
./pkg/cal/cal_dayspermonth.F |
80 |
CAL_DAYSPERMONTH |
ndays = ndaymonth(mymonth,mydate(3)) - myday + 1 |
|
./pkg/cal/cal_getmonthsrec.F |
111 |
CAL_GETMONTHSREC |
midsecs = float(ndaymonth(present,currentdate(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
148 |
CAL_GETMONTHSREC |
midsecs_np = float(ndaymonth(previous,middate0(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
188 |
CAL_GETMONTHSREC |
midsecs_np = float(ndaymonth(next,middate1(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
94 |
CAL_GETMONTHSREC |
& ndaymonth(present,currentdate(3)) |
|
./pkg/cal/cal_set.F |
241 |
CAL_SET |
ndaymonth(i,1) = 30+j |
|
./pkg/cal/cal_set.F |
242 |
CAL_SET |
ndaymonth(i,2) = 30+j |
|
./pkg/cal/cal_set.F |
244 |
CAL_SET |
ndaymonth(2,1) = 28 |
|
./pkg/cal/cal_set.F |
245 |
CAL_SET |
ndaymonth(2,2) = 29 |
|
./pkg/cal/cal_set.F |
277 |
CAL_SET |
ndaymonth(i,1) = 30 |
|
./pkg/cal/cal_set.F |
278 |
CAL_SET |
ndaymonth(i,2) = 30 |
|
./pkg/cal/cal_set.F |
312 |
CAL_SET |
ndaymonth(i,1) = 0 |
|
./pkg/cal/cal_set.F |
313 |
CAL_SET |
ndaymonth(i,2) = 0 |
|
./pkg/cal/cal_set.F |
339 |
CAL_SET |
ndaymonth(i,1) = 0 |
|
./pkg/cal/cal_set.F |
340 |
CAL_SET |
ndaymonth(i,2) = 0 |
|
./pkg/cal/cal_stepsforday.F |
98 |
CAL_STEPSFORDAY |
else if ( mod(firstday+1,ndaymonth(firstmonth,lyfirst)) .eq. |
|
./pkg/cal/cal_timepassed.F |
131 |
CAL_TIMEPASSED |
cdi = cdi + ndaymonth(imon,li) |
|
./pkg/cal/cal_timepassed.F |
136 |
CAL_TIMEPASSED |
cdf = cdf + ndaymonth(imon,lf) |
|
./pkg/cal/cal_timepassed.F |
151 |
CAL_TIMEPASSED |
& cdi - ndaymonth(mi,li) |
|
./pkg/cal/cal_timepassed.F |
157 |
CAL_TIMEPASSED |
csi = ndaymonth(mi,li)*secondsperday - csi |