| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_getmonthsrec.F |
106 |
CAL_GETMONTHSREC |
currentsecs = float( |
|
./pkg/cal/cal_getmonthsrec.F |
133 |
CAL_GETMONTHSREC |
if ( currentsecs .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 |
72 |
CAL_GETMONTHSREC |
_RL currentsecs |