length2d=sNxWh*procNyWh
length3d=length2d*nr
integer length2d, length3d, length_of_rec
integer n2d,length2d
length2d=(sNx+2*Olx)*(sNy+2*Oly)*nSx*nSy
n2d=int(length/length2d)
if (n2d*length2d.EQ.length) then