INTEGER bBij
bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx )
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy
i1 = bBij + 1
i2 = bBij + sNx*sNy*nNz
i1 = bBij + 1 + (j-1)*sNx + (k-1)*sNx*sNy
i2 = bBij + j*sNx + (k-1)*sNx*sNy