| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_getmonthsrec.F |
156 |
CAL_GETMONTHSREC |
middate1(1) = middate(1) |
|
./pkg/cal/cal_getmonthsrec.F |
157 |
CAL_GETMONTHSREC |
middate1(2) = middate(2) |
|
./pkg/cal/cal_getmonthsrec.F |
158 |
CAL_GETMONTHSREC |
middate1(3) = middate(3) |
|
./pkg/cal/cal_getmonthsrec.F |
159 |
CAL_GETMONTHSREC |
middate1(4) = middate(4) |
|
./pkg/cal/cal_getmonthsrec.F |
179 |
CAL_GETMONTHSREC |
call CAL_ADDTIME( endofmonth, shifttime, middate1, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
180 |
CAL_GETMONTHSREC |
middate1(1) = (middate1(1)/100)*100 + 1 |
|
./pkg/cal/cal_getmonthsrec.F |
181 |
CAL_GETMONTHSREC |
middate1(2) = 0 |
|
./pkg/cal/cal_getmonthsrec.F |
182 |
CAL_GETMONTHSREC |
middate1(3) = 0 |
|
./pkg/cal/cal_getmonthsrec.F |
183 |
CAL_GETMONTHSREC |
middate1(4) = 0 |
|
./pkg/cal/cal_getmonthsrec.F |
185 |
CAL_GETMONTHSREC |
call CAL_FULLDATE( middate1(1), middate1(2), middate1, |
|
./pkg/cal/cal_getmonthsrec.F |
187 |
CAL_GETMONTHSREC |
next = mod(middate1(1)/100,100) |
|
./pkg/cal/cal_getmonthsrec.F |
188 |
CAL_GETMONTHSREC |
midsecs_np = float(ndaymonth(next,middate1(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
191 |
CAL_GETMONTHSREC |
call CAL_ADDTIME( middate1, midtime, middate1, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
195 |
CAL_GETMONTHSREC |
call CAL_SUBDATES( middate1, middate0, difftime, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
55 |
CAL_GETMONTHSREC |
integer middate1(4) |