COMMON /MDS_WH_BUFFERS_3D_I/ iWh, jWh
integer nWh, iWh, jWh
IF (jWh.EQ.nWh) jWh=0
jWh=jWh+1
IF (jWh.EQ.1) THEN
j=(jWh-1)*lengthBuff+i
IF (jWh.EQ.nWh) THEN
jWh=0