integer my_tile_i0(MAX_TILES)
& my_tile_i0,
if (Io.ne.my_tile_i0(1)) stop 'comprecv_r4: bad Io'
if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r4tiles: bad Io'
if (Io.ne.my_tile_i0(1)) stop 'comprecv_r8: bad Io'
if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r8tiles: bad Io'
Io=my_tile_i0(1)
r4buf(1)=float( my_tile_i0(bibj) )
r8buf(1)=float( my_tile_i0(bibj) )
my_tile_i0(1)=i0
my_tile_i0(n) = iReg(5,n)
ibuf(3) = my_tile_i0(n)