locbarglbmean = 0. _d 0
locbarglbmean = locbarglbmean +
_GLOBAL_SUM_RL( locbarglbmean , mythid )
junk=locbarglbmean/locbarglbmean_sum - dataglbmean(irec)
& locbarglbmean/locbarglbmean_sum, dataglbmean(irec)
_RL locbarglbmean