integer my_tile_ny(MAX_TILES)
& my_tile_ny,
if (ny.ne.my_tile_ny(1)) stop 'comprecv_r4: bad ny'
if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r4tiles: bad ny'
if (ny.ne.my_tile_ny(1)) stop 'comprecv_r8: bad ny'
if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r8tiles: bad ny'
if (Nj.ne.my_tile_ny(bibj))
r4buf(4)=float( my_tile_ny(bibj) )
r8buf(4)=float( my_tile_ny(bibj) )
my_tile_ny(1)=ny
my_tile_ny(n) = iReg(4,n)
ibuf(2) = my_tile_ny(n)