INTEGER numPnts
numPnts=0
numPnts=numPnts+1
tmpVal=FLOAT(numPnts)
numPnts=INT(tmpVal+0.5)
_GLOBAL_SUM_R8(numPnts,myThid)
IF (numPnts.NE.0.) theMean=theMean/numPnts
_RL numPnts,theVol,tmpVal,tmpVol
numPnts=0.
numPnts=numPnts+1.
numPnts=NINT(tmpVal)