if (Io+Ni-1.gt.Nx .or. Io.lt.1) then
if (Jo+Nj-1.gt.Ny .or. Jo.lt.1) then
if (i0+nx-1.gt.nnx) then
if (j0+ny-1.gt.nny) then