INTEGER nnx, nny, nnz, nfx, nfy, nfz, nfxp, nfyp, nfzp
nny = int(yp)
dy = yp - float(nny)
nfy = nny
nfy = nny + 1
INTEGER nnx, nny, nfx, nfy, nfxp, nfyp
subroutine MITCOUPLER_TILE_REGISTER( compName, nnx, nny )
integer nnx, nny
subroutine MITCOUPLER_REGISTER( compName, nnx, nny )
if (j0+ny-1.gt.nny) then