INTEGER startdate_2
& startdate_2
mydate(2) = startdate_2
startdate_2 = 0
CALL CAL_FULLDATE( startdate_1, startdate_2,
xx_gentim2d_startdate2(iarr)=startdate_2
gencost_startdate2(k)=startdate_2