| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_getmonthsrec.F |
138 |
CAL_GETMONTHSREC |
call CAL_ADDTIME( startofmonth, shifttime, middate0, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
139 |
CAL_GETMONTHSREC |
middate0(1) = (middate0(1)/100)*100 + 1 |
|
./pkg/cal/cal_getmonthsrec.F |
140 |
CAL_GETMONTHSREC |
middate0(2) = 0 |
|
./pkg/cal/cal_getmonthsrec.F |
141 |
CAL_GETMONTHSREC |
middate0(3) = 0 |
|
./pkg/cal/cal_getmonthsrec.F |
142 |
CAL_GETMONTHSREC |
middate0(4) = 0 |
|
./pkg/cal/cal_getmonthsrec.F |
143 |
CAL_GETMONTHSREC |
call CAL_FULLDATE( middate0(1), middate0(2), middate0, |
|
./pkg/cal/cal_getmonthsrec.F |
146 |
CAL_GETMONTHSREC |
previous = mod(middate0(1)/100,100) |
|
./pkg/cal/cal_getmonthsrec.F |
148 |
CAL_GETMONTHSREC |
midsecs_np = float(ndaymonth(previous,middate0(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
152 |
CAL_GETMONTHSREC |
call CAL_ADDTIME( middate0, midtime, middate0, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
171 |
CAL_GETMONTHSREC |
middate0(1) = middate(1) |
|
./pkg/cal/cal_getmonthsrec.F |
172 |
CAL_GETMONTHSREC |
middate0(2) = middate(2) |
|
./pkg/cal/cal_getmonthsrec.F |
173 |
CAL_GETMONTHSREC |
middate0(3) = middate(3) |
|
./pkg/cal/cal_getmonthsrec.F |
174 |
CAL_GETMONTHSREC |
middate0(4) = middate(4) |
|
./pkg/cal/cal_getmonthsrec.F |
195 |
CAL_GETMONTHSREC |
call CAL_SUBDATES( middate1, middate0, difftime, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
54 |
CAL_GETMONTHSREC |
integer middate0(4) |