| File |
Line number |
Procedure |
Code |
|
./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 |
160 |
CAL_DAYSFORMONTH |
firstday = numdays + 1 |
|
./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_daysformonth.F |
198 |
CAL_DAYSFORMONTH |
lastday = numdays + lastd - 1 |
|
./pkg/cal/cal_daysformonth.F |
200 |
CAL_DAYSFORMONTH |
lastday = numdays + lastd |
|
./pkg/cal/cal_daysformonth.F |
203 |
CAL_DAYSFORMONTH |
firstday = numdays + 1 |
|
./pkg/cal/cal_daysformonth.F |
52 |
CAL_DAYSFORMONTH |
integer numdays |
|
./pkg/cal/cal_stepsforday.F |
127 |
CAL_STEPSFORDAY |
else if ( numdays .gt. 1 ) then |
|
./pkg/cal/cal_stepsforday.F |
133 |
CAL_STEPSFORDAY |
& ( iday .lt. numdays) ) then |
|
./pkg/cal/cal_stepsforday.F |
150 |
CAL_STEPSFORDAY |
else if ( iday .eq. numdays ) then |
|
./pkg/cal/cal_stepsforday.F |
51 |
CAL_STEPSFORDAY |
integer numdays |
|
./pkg/cal/cal_stepsforday.F |
75 |
CAL_STEPSFORDAY |
numdays = cal_IntDays( mythid ) |
|
./pkg/cal/cal_stepsforday.F |
92 |
CAL_STEPSFORDAY |
if ( numdays .eq. 1 ) then |
|
./pkg/cal/cal_timepassed.F |
168 |
CAL_TIMEPASSED |
numdays(1) = ndays + nsecs/secondsperday |
|
./pkg/cal/cal_timepassed.F |
171 |
CAL_TIMEPASSED |
numdays(2) = hhmmss/minutesperhour*10000 + |
|
./pkg/cal/cal_timepassed.F |
175 |
CAL_TIMEPASSED |
numdays(1) = -numdays(1) |
|
./pkg/cal/cal_timepassed.F |
176 |
CAL_TIMEPASSED |
numdays(2) = -numdays(2) |
|
./pkg/cal/cal_timepassed.F |
40 |
CAL_TIMEPASSED |
INTEGER numdays(4) |
|
./pkg/cal/cal_timepassed.F |
85 |
CAL_TIMEPASSED |
numdays(1) = 0 |
|
./pkg/cal/cal_timepassed.F |
86 |
CAL_TIMEPASSED |
numdays(2) = 0 |
|
./pkg/cal/cal_timepassed.F |
87 |
CAL_TIMEPASSED |
numdays(3) = 0 |
|
./pkg/cal/cal_timepassed.F |
88 |
CAL_TIMEPASSED |
numdays(4) = -1 |
|
./pkg/cal/cal_timepassed.F |
9 |
CAL_TIMEPASSED |
O numdays, |