lengthBuff=sNxWh*procNyWh
lengthBuff=sNxWh*gloNyWh
DO i=1,lengthBuff
j=(jWh-1)*lengthBuff+i
integer lengthBuff, length_of_rec