File |
Line number |
Procedure |
Code |
./pkg/exf/exf_getffieldrec.F |
209 |
EXF_GETFFIELDREC |
startinyear(1) = date_array(1) |
./pkg/exf/exf_getffieldrec.F |
213 |
EXF_GETFFIELDREC |
startinyear(1) = date_array(1) |
./pkg/exf/exf_getffieldrec.F |
215 |
EXF_GETFFIELDREC |
startinyear(1) = (yf-1)*10000 + 100 + 1 |
./pkg/exf/exf_getffieldrec.F |
218 |
EXF_GETFFIELDREC |
startinyear(1) = yf*10000 + 100 + 1 |
./pkg/exf/exf_getffieldrec.F |
225 |
EXF_GETFFIELDREC |
startinyear(2) = date_array(2) |
./pkg/exf/exf_getffieldrec.F |
226 |
EXF_GETFFIELDREC |
startinyear(3) = date_array(3) |
./pkg/exf/exf_getffieldrec.F |
227 |
EXF_GETFFIELDREC |
startinyear(4) = date_array(4) |
./pkg/exf/exf_getffieldrec.F |
234 |
EXF_GETFFIELDREC |
call CAL_TIMEPASSED( startinyear, mydate, difftime, mythid ) |
./pkg/exf/exf_getffieldrec.F |
248 |
EXF_GETFFIELDREC |
startinyear(1) = yp*10000 + 100 + 1 |
./pkg/exf/exf_getffieldrec.F |
249 |
EXF_GETFFIELDREC |
startinyear(2) = date_array(2) |
./pkg/exf/exf_getffieldrec.F |
250 |
EXF_GETFFIELDREC |
startinyear(3) = previousdate(3) |
./pkg/exf/exf_getffieldrec.F |
251 |
EXF_GETFFIELDREC |
startinyear(4) = date_array(4) |
./pkg/exf/exf_getffieldrec.F |
254 |
EXF_GETFFIELDREC |
call CAL_TIMEPASSED( startinyear, previousdate, difftime, |
./pkg/exf/exf_getffieldrec.F |
91 |
EXF_GETFFIELDREC |
integer startinyear(4) |