& gencost_spmax,
gencost_spmax(k) = 0. _d 0
& gencost_spmax(k) .EQ. 0. _d 0 ) then
& gencost_spmin(k), gencost_spmax(k), gencost_spzero(k),
& gencost_1DDATA(irec,kgen).lt.gencost_spmax(kgen) .and.
spmaxloc=gencost_spmax(igen_conc)
spmaxloc=gencost_spmax(kgen(icount))
& gencost_spmin, gencost_spmax, gencost_spzero,
_RL gencost_spmax(NGENCOST)