integer num_tiles
integer iReg(6,num_tiles)
& '): Starts ; num_tiles=', num_tiles
if (num_tiles.lt.1)
if (num_tiles.gt.MAX_TILES)
my_num_tiles = num_tiles
do n=1,num_tiles
ibuf(1) = num_tiles
subroutine MITCOMPONENT_TILE_REGISTER( num_tiles, iReg )