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