integer my_tile_nx(MAX_TILES)
& my_tile_nx,
if (nx.ne.my_tile_nx(1)) stop 'comprecv_r4: bad nx'
if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r4tiles: bad nx'
if (nx.ne.my_tile_nx(1)) stop 'comprecv_r8: bad nx'
if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r8tiles: bad nx'
if (Ni.ne.my_tile_nx(bibj))
r4buf(2)=float( my_tile_nx(bibj) )
r8buf(2)=float( my_tile_nx(bibj) )
my_tile_nx(1)=nx
my_tile_nx(n) = iReg(3,n)
ibuf(1) = my_tile_nx(n)