I xx_gentim2d_startdate1(iarr),
& xx_gentim2d_startdate1,
INTEGER xx_gentim2d_startdate1(maxCtrlTim2D)
if (xx_gentim2d_startdate1(iarr).EQ.0) then
xx_gentim2d_startdate1(iarr)=startdate_1
& xx_gentim2d_startdate1, xx_gentim2d_startdate2,
xx_gentim2d_startdate1(iarr) = 0