| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_addtime.F |
196 |
CAL_ADDTIME |
if (di .gt. ndaymonth(mi,li)) then |
|
./pkg/cal/cal_addtime.F |
222 |
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 |
150 |
CAL_DAYSFORMONTH |
numdays = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_daysformonth.F |
161 |
CAL_DAYSFORMONTH |
lastday = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_daysformonth.F |
166 |
CAL_DAYSFORMONTH |
numdays = ndaymonth(firstmonth,lyfirst) - firstd + 1 |
|
./pkg/cal/cal_daysformonth.F |
177 |
CAL_DAYSFORMONTH |
numdays = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_daysformonth.F |
192 |
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 |
100 |
CAL_GETMONTHSREC |
& ndaymonth(present,currentdate(3)) |
|
./pkg/cal/cal_getmonthsrec.F |
112 |
CAL_GETMONTHSREC |
midsecs = float(ndaymonth(present,currentdate(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
147 |
CAL_GETMONTHSREC |
midsecs_np = float(ndaymonth(previous,tempDate(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
185 |
CAL_GETMONTHSREC |
midsecs_np = float(ndaymonth(next,tempDate(3))* |
|
./pkg/cal/cal_stepsforday.F |
98 |
CAL_STEPSFORDAY |
else if ( mod(firstday+1,ndaymonth(firstmonth,lyfirst)) .eq. |
|
./pkg/cal/cal_timepassed.F |
136 |
CAL_TIMEPASSED |
cdi = cdi + ndaymonth(imon,li) |
|
./pkg/cal/cal_timepassed.F |
141 |
CAL_TIMEPASSED |
cdf = cdf + ndaymonth(imon,lf) |
|
./pkg/cal/cal_timepassed.F |
156 |
CAL_TIMEPASSED |
& cdi - ndaymonth(mi,li) |
|
./pkg/cal/cal_timepassed.F |
162 |
CAL_TIMEPASSED |
csi = ndaymonth(mi,li)*secondsperday - csi |