| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_addtime.F |
136 |
CAL_ADDTIME |
yi = 0 |
|
./pkg/cal/cal_addtime.F |
142 |
CAL_ADDTIME |
call CAL_CONVDATE( date,yi,mi,di,si,li,wi,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 |
182 |
CAL_ADDTIME |
yi = yi + 1 |
|
./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 |
198 |
CAL_ADDTIME |
yi = yi + switch |
|
./pkg/cal/cal_addtime.F |
200 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, mythid ) |
|
./pkg/cal/cal_addtime.F |
217 |
CAL_ADDTIME |
yi = yi - switch |
|
./pkg/cal/cal_addtime.F |
218 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, mythid ) |
|
./pkg/cal/cal_addtime.F |
227 |
CAL_ADDTIME |
added(1) = yi*10000 + mi*100 + di |
|
./pkg/cal/cal_addtime.F |
61 |
CAL_ADDTIME |
integer yi,mi,di,si,li,wi |
|
./pkg/cal/cal_timepassed.F |
109 |
CAL_TIMEPASSED |
call CAL_CONVDATE( finaldate,yi,mi,di,si,li,wi,mythid ) |
|
./pkg/cal/cal_timepassed.F |
112 |
CAL_TIMEPASSED |
call CAL_CONVDATE( initialdate,yi,mi,di,si,li,wi,mythid ) |
|
./pkg/cal/cal_timepassed.F |
140 |
CAL_TIMEPASSED |
if (yi .eq. yf) then |
|
./pkg/cal/cal_timepassed.F |
150 |
CAL_TIMEPASSED |
ndays = (ndaysnoleap - 1) + cal_IsLeap( yi, mythid ) - |
|
./pkg/cal/cal_timepassed.F |
152 |
CAL_TIMEPASSED |
do iyr = yi+1,yf-1 |
|
./pkg/cal/cal_timepassed.F |
51 |
CAL_TIMEPASSED |
integer yi,yf |