subroutine MITCOUPLER_TILE_REGISTER( compName, nnx, nny )
compind=mitcplr_match_comp( compName )
character*(*) compName
subroutine MITCOUPLER_REGISTER( compName, nnx, nny )