tmpMeanGlo=0. _d 0
& tmpMeanGlo=tmpSumGlo/tmpVolGlo
& 'boxmean :',irec,tmpMeanGlo
_RL tmpSumGlo,tmpVolGlo,tmpMeanGlo