& gencost_nrec(k), modelstartdate, gencost_period(k),
& gencost_nrec
integer gencost_nrec(NGENCOST)
do irec = 1,gencost_nrec(k)
gencost_nrec(k) = ndaysrec
gencost_nrec(k) =nmonsrec