& gencost_spmin,
gencost_spmin(k) = 0. _d 0
if ( gencost_spmin(k) .EQ. 0. _d 0 .AND.
& gencost_spmin(k), gencost_spmax(k), gencost_spzero(k),
if ( gencost_1DDATA(irec,kgen).gt.gencost_spmin(kgen) .and.
spminloc=gencost_spmin(igen_conc)
spval = gencost_spmin(kgen)
spminloc=gencost_spmin(kgen(icount))
& gencost_spmin, gencost_spmax, gencost_spzero,
_RL gencost_spmin(NGENCOST)