I xx_gentim2d_startdate2(iarr),
& xx_gentim2d_startdate2,
INTEGER xx_gentim2d_startdate2(maxCtrlTim2D)
xx_gentim2d_startdate2(iarr)=startdate_2
& xx_gentim2d_startdate1, xx_gentim2d_startdate2,
xx_gentim2d_startdate2(iarr) = 0