startinyear(1) = date_array(1)
startinyear(1) = (yf-1)*10000 + 100 + 1
startinyear(1) = yf*10000 + 100 + 1
startinyear(2) = date_array(2)
startinyear(3) = date_array(3)
startinyear(4) = date_array(4)
call CAL_TIMEPASSED( startinyear, mydate, difftime, mythid )
startinyear(1) = yp*10000 + 100 + 1
startinyear(3) = previousdate(3)
call CAL_TIMEPASSED( startinyear, previousdate, difftime,
integer startinyear(4)