| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_getmonthsrec.F |
111 |
CAL_GETMONTHSREC |
midsecs = float(ndaymonth(present,currentdate(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
114 |
CAL_GETMONTHSREC |
call CAL_TIMEINTERVAL( midsecs, 'secs', midtime, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
132 |
CAL_GETMONTHSREC |
if ( currentsecs .lt. midsecs ) then |
|
./pkg/cal/cal_getmonthsrec.F |
165 |
CAL_GETMONTHSREC |
if ( prevsecs .lt. midsecs ) then |
|
./pkg/cal/cal_getmonthsrec.F |
205 |
CAL_GETMONTHSREC |
if ( currentsecs .lt. midsecs ) then |
|
./pkg/cal/cal_getmonthsrec.F |
206 |
CAL_GETMONTHSREC |
fac = (midsecs - currentsecs)/diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
208 |
CAL_GETMONTHSREC |
fac = (2.*midsecs + midsecs_np - currentsecs)/ |
|
./pkg/cal/cal_getmonthsrec.F |
71 |
CAL_GETMONTHSREC |
_RL midsecs |