| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_fulldate.F |
60 |
CAL_FULLDATE |
integer cal_IsLeap |
|
./pkg/cal/cal_fulldate.F |
76 |
CAL_FULLDATE |
date(3) = cal_IsLeap( theyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
146 |
CAL_DAYSFORMONTH |
lycurrent = cal_IsLeap( currentyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
153 |
CAL_DAYSFORMONTH |
lycurrent = cal_IsLeap( currentyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
167 |
CAL_DAYSFORMONTH |
lycurrent = cal_IsLeap( currentyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
175 |
CAL_DAYSFORMONTH |
lycurrent = cal_IsLeap( currentyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
70 |
CAL_DAYSFORMONTH |
integer cal_IsLeap |
|
./pkg/cal/cal_daysformonth.F |
75 |
CAL_DAYSFORMONTH |
lyfirst = cal_IsLeap( firstyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
76 |
CAL_DAYSFORMONTH |
lylast = cal_IsLeap( lastyear, mythid ) |
|
./pkg/cal/cal_stepsforday.F |
71 |
CAL_STEPSFORDAY |
integer cal_IsLeap |
|
./pkg/cal/cal_stepsforday.F |
76 |
CAL_STEPSFORDAY |
lyfirst = cal_IsLeap( firstyear, mythid ) |
|
./pkg/cal/cal_addtime.F |
177 |
CAL_ADDTIME |
if ((mi.gt.2.and.cal_IsLeap(yi+1,mythid).eq.2).or. |
|
./pkg/cal/cal_addtime.F |
178 |
CAL_ADDTIME |
& (mi.le.2.and.cal_IsLeap(yi,mythid).eq.2) ) |
|
./pkg/cal/cal_addtime.F |
184 |
CAL_ADDTIME |
if ((mi.gt.2.and.cal_IsLeap(yi+1,mythid).eq.2).or. |
|
./pkg/cal/cal_addtime.F |
185 |
CAL_ADDTIME |
& (mi.le.2.and.cal_IsLeap(yi,mythid).eq.2) ) |
|
./pkg/cal/cal_addtime.F |
188 |
CAL_ADDTIME |
li = cal_IsLeap( yi, mythid ) |
|
./pkg/cal/cal_addtime.F |
200 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, mythid ) |
|
./pkg/cal/cal_addtime.F |
218 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, mythid ) |
|
./pkg/cal/cal_addtime.F |
73 |
CAL_ADDTIME |
integer cal_IsLeap |
|
./pkg/cal/cal_timepassed.F |
150 |
CAL_TIMEPASSED |
ndays = (ndaysnoleap - 1) + cal_IsLeap( yi, mythid ) - |
|
./pkg/cal/cal_timepassed.F |
154 |
CAL_TIMEPASSED |
& cal_IsLeap( iyr, mythid ) |
|
./pkg/cal/cal_timepassed.F |
72 |
CAL_TIMEPASSED |
integer cal_IsLeap |
|
./pkg/cal/cal_isleap.F |
50 |
NO PROCEDURE |
cal_IsLeap = 1 |
|
./pkg/cal/cal_isleap.F |
52 |
NO PROCEDURE |
cal_IsLeap = 2 |
|
./pkg/cal/cal_isleap.F |
55 |
NO PROCEDURE |
cal_IsLeap = 1 |
|
./pkg/cal/cal_isleap.F |
60 |
NO PROCEDURE |
cal_IsLeap = 1 |
|
./pkg/cal/cal_isleap.F |
62 |
NO PROCEDURE |
cal_IsLeap = 2 |
|
./pkg/cal/cal_isleap.F |
65 |
NO PROCEDURE |
cal_IsLeap = 1 |
|
./pkg/cal/cal_isleap.F |
6 |
NO PROCEDURE |
integer function cal_IsLeap( |