do bi=1,ntx
subroutine MITCOMPONENT_TILE_REGISTER( ntx, nty, ireg, rreg )
integer ntx,nty
integer ireg(4,ntx,nty)
real*4 rreg(4,ntx,nty)