if (gencost_nrec(k).GT.1) then
& gencost_nrec(k)
nrecloc= gencost_nrec(k)
nrecperiodloc= gencost_nrec(k)
nrecloc=gencost_nrec(kgen)
locnrec = gencost_nrec(kgen)
nrecloc=gencost_nrec(igen_conc)
nrecloc=gencost_nrec(kgen(icount))
& gencost_nrec, gencost_nrecperiod,
integer gencost_nrec(NGENCOST)
do irec = 1,gencost_nrec(k)
gencost_nrec(k) = ndaysrec
gencost_nrec(k) =nmonsrec
gencost_nrec(k) =nTimeSteps+1
gencost_nrec(k) =1
if(gencost_nrec(k).GT.N1DDATA)then
& 'Increase N1DDATA', N1DDATA, gencost_nrec(k)
do irec = 1, gencost_nrec(k)