INTEGER startdate_1
& startdate_1,
mydate(1) = startdate_1
startdate_1 = 0
CALL CAL_FULLDATE( startdate_1, startdate_2,
xx_gentim2d_startdate1(iarr)=startdate_1
gencost_startdate1(k)=startdate_1