& gencost_startdate1,
gencost_startdate1(k) = 0
& gencost_startdate1, gencost_startdate2,
integer gencost_startdate1(NGENCOST)
& gencost_datafile(k), gencost_startdate1(k), myThid )
& gencost_errfile(k), gencost_startdate1(k), myThid )
if (gencost_startdate1(k).GT.0) then
& gencost_startdate1(k), gencost_startdate2(k),
gencost_startdate1(k)=startdate_1