integer component_tile_nx(MAX_TILES,MAX_PROCS,MAX_COMPONENTS)
integer component_tile_ny(MAX_TILES,MAX_PROCS,MAX_COMPONENTS)
integer component_tile_i0(MAX_TILES,MAX_PROCS,MAX_COMPONENTS)
integer component_tile_j0(MAX_TILES,MAX_PROCS,MAX_COMPONENTS)
integer MAX_TILES
parameter( MAX_TILES=16 )
integer my_tile_nx(MAX_TILES)
integer my_tile_ny(MAX_TILES)
integer my_tile_i0(MAX_TILES)
integer my_tile_j0(MAX_TILES)
integer my_tile_bi(MAX_TILES)
integer my_tile_bj(MAX_TILES)
generate_tag = iarg1*MAX_TILES + iarg2
if (num_tiles.gt.MAX_TILES)
if (numtiles.lt.1 .or. numtiles.gt.MAX_TILES) then