dataglbmean(irec) = 0. _d 0
dataglbmean(irec) = gencost_1DDATA(irec,kgen)
meandataglbmean = meandataglbmean + dataglbmean(irec)
dataglbmean(irec) = dataglbmean(irec)
junk=locbarglbmean/locbarglbmean_sum - dataglbmean(irec)
& locbarglbmean/locbarglbmean_sum, dataglbmean(irec)
_RL dataglbmean ( N1DDATA )