| File |
Line number |
Procedure |
Code |
|
./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 |
154 |
CAL_DAYSFORMONTH |
firstday = numdays + 1 |
|
./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_daysformonth.F |
186 |
CAL_DAYSFORMONTH |
lastday = numdays + lastd - 1 |
|
./pkg/cal/cal_daysformonth.F |
188 |
CAL_DAYSFORMONTH |
lastday = numdays + lastd |
|
./pkg/cal/cal_daysformonth.F |
191 |
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 |
163 |
CAL_TIMEPASSED |
numdays(1) = ndays + nsecs/secondsperday |
|
./pkg/cal/cal_timepassed.F |
166 |
CAL_TIMEPASSED |
numdays(2) = hhmmss/minutesperhour*10000 + |
|
./pkg/cal/cal_timepassed.F |
170 |
CAL_TIMEPASSED |
numdays(1) = -numdays(1) |
|
./pkg/cal/cal_timepassed.F |
171 |
CAL_TIMEPASSED |
numdays(2) = -numdays(2) |
|
./pkg/cal/cal_timepassed.F |
46 |
CAL_TIMEPASSED |
integer numdays(4) |
|
./pkg/cal/cal_timepassed.F |
80 |
CAL_TIMEPASSED |
numdays(1) = 0 |
|
./pkg/cal/cal_timepassed.F |
81 |
CAL_TIMEPASSED |
numdays(2) = 0 |
|
./pkg/cal/cal_timepassed.F |
82 |
CAL_TIMEPASSED |
numdays(3) = 0 |
|
./pkg/cal/cal_timepassed.F |
83 |
CAL_TIMEPASSED |
numdays(4) = -1 |
|
./pkg/cal/cal_timepassed.F |
9 |
CAL_TIMEPASSED |
O numdays, |