| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_getmonthsrec.F |
112 |
CAL_GETMONTHSREC |
midsecs = float(ndaymonth(present,currentdate(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
115 |
CAL_GETMONTHSREC |
call CAL_TIMEINTERVAL( midsecs, 'secs', midtime, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
133 |
CAL_GETMONTHSREC |
if ( currentsecs .lt. midsecs ) then |
|
./pkg/cal/cal_getmonthsrec.F |
164 |
CAL_GETMONTHSREC |
if ( prevsecs .lt. midsecs ) then |
|
./pkg/cal/cal_getmonthsrec.F |
202 |
CAL_GETMONTHSREC |
if ( currentsecs .lt. midsecs ) then |
|
./pkg/cal/cal_getmonthsrec.F |
203 |
CAL_GETMONTHSREC |
fac = (midsecs - currentsecs)/diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
205 |
CAL_GETMONTHSREC |
fac = (2.*midsecs + midsecs_np - currentsecs)/ |
|
./pkg/cal/cal_getmonthsrec.F |
76 |
CAL_GETMONTHSREC |
_RL midsecs |