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