DO n=1,nSepBnd
I myNr, mskNr, kLoc, nSepBnd, ySepBnd,
INTEGER nSepBnd
_RS ySepBnd(nSepBnd)
_RL theMin(nSepBnd)
_RL theMax(nSepBnd)
_RL theMean(nSepBnd)
_RL theVar(nSepBnd)
_RL theVol(nSepBnd)
n = NLATBND(nSepBnd, ySepBnd, arrY(i,j,bi,bj) )