sumvol = 0. _d 0
sumvol = sumvol + fctile
_GLOBAL_SUM_RL( sumvol, mythid )
objf_obcsvol = wobcsvol * sumvol* sumvol
_RL sumvol