| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_addtime.F |
138 |
CAL_ADDTIME |
di = fac*date_1 |
|
./pkg/cal/cal_addtime.F |
142 |
CAL_ADDTIME |
call CAL_CONVDATE( date,yi,mi,di,si,li,wi,mythid ) |
|
./pkg/cal/cal_addtime.F |
168 |
CAL_ADDTIME |
if ( mi.eq.2 .and. di.eq.29 .and. ndays_left.gt.1 ) then |
|
./pkg/cal/cal_addtime.F |
170 |
CAL_ADDTIME |
di = 1 |
|
./pkg/cal/cal_addtime.F |
192 |
CAL_ADDTIME |
di = di + 1 |
|
./pkg/cal/cal_addtime.F |
193 |
CAL_ADDTIME |
if (di .gt. ndaymonth(mi,li)) then |
|
./pkg/cal/cal_addtime.F |
194 |
CAL_ADDTIME |
di = 1 |
|
./pkg/cal/cal_addtime.F |
213 |
CAL_ADDTIME |
di = di - 1 |
|
./pkg/cal/cal_addtime.F |
214 |
CAL_ADDTIME |
if (di .eq. 0) then |
|
./pkg/cal/cal_addtime.F |
219 |
CAL_ADDTIME |
di = ndaymonth(mi,li) |
|
./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 |
118 |
CAL_TIMEPASSED |
ndays = df - di |
|
./pkg/cal/cal_timepassed.F |
127 |
CAL_TIMEPASSED |
si = si + (di-1)*secondsperday |
|
./pkg/cal/cal_timepassed.F |
53 |
CAL_TIMEPASSED |
integer di,df |
|
./pkg/exf/exf_getffieldrec.F |
203 |
EXF_GETFFIELDREC |
call CAL_CONVDATE( date_array,yi,mi,di,si,li,wi,mythid ) |
|
./pkg/exf/exf_getffieldrec.F |
94 |
EXF_GETFFIELDREC |
integer di,df,dp,dn |