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