I yp,
_RL xp, yp, zp
nny = int(yp)
dy = yp - float(nny)
_RL xp, yp
O yp,
yp = yf
call CAL_CONVDATE( previousdate,yp,mp,dp,sp,lp,wp,mythid )
if ( yp .NE. yf ) then
startinyear(1) = yp*10000 + 100 + 1
integer yi,yf,yp,yn