INTEGER nnx, nny, nnz, nfx, nfy, nfz, nfxp, nfyp, nfzp
nnx = int(xp)
dx = xp - float(nnx)
nfx = nnx
nfx = nnx + 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 (i0+nx-1.gt.nnx) then