| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_addtime.F |
139 |
CAL_ADDTIME |
li = 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 |
188 |
CAL_ADDTIME |
li = cal_IsLeap( yi, mythid ) |
|
./pkg/cal/cal_addtime.F |
193 |
CAL_ADDTIME |
if (di .gt. ndaymonth(mi,li)) then |
|
./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 |
219 |
CAL_ADDTIME |
di = ndaymonth(mi,li) |
|
./pkg/cal/cal_addtime.F |
232 |
CAL_ADDTIME |
added(3) = li |
|
./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 |
131 |
CAL_TIMEPASSED |
cdi = cdi + ndaymonth(imon,li) |
|
./pkg/cal/cal_timepassed.F |
151 |
CAL_TIMEPASSED |
& cdi - ndaymonth(mi,li) |
|
./pkg/cal/cal_timepassed.F |
157 |
CAL_TIMEPASSED |
csi = ndaymonth(mi,li)*secondsperday - csi |
|
./pkg/cal/cal_timepassed.F |
55 |
CAL_TIMEPASSED |
integer li,lf |