& gencost_spmin(k), gencost_spmax(k),
spminloc=gencost_spmin(igen_conc)
& gencost_spmin, gencost_spmax, gencost_spzero
_RL gencost_spmin(NGENCOST)
& gencost_spmin,
gencost_spmin(k) = 0. _d 0
if ( gencost_spmin(k) .EQ. 0. _d 0 .AND.