PRO Homogenize,z,x,y

nx = N_Elements(x) & maxX = MAX(x) & minX = MIN(x)
ny = N_Elements(y) & maxY = MAX(y) & minY = MIN(y)

IF nx GT 2 THEN BEGIN
  stepX = ABS(x(1) - x(0)) & stepXOld = stepX
  FOR i=1, nx-2 DO BEGIN
    diff = ABS(x(i+1)-x(i))
    IF (diff  LT stepX) AND (diff-stepXOld GT 1e-3) THEN $
      stepX = ABS(x(i+1)-x(i))
  ENDFOR
  IF stepX NE StepXOld THEN BEGIN
    nx = LONG(maxX-minX)/stepX + 1
    xModif = IndGen(nx+1)*stepX + minX
  ENDIF
ENDIF
IF ny GT 2 THEN BEGIN
  stepY = ABS(y(1) - y(0)) & stepYOld = stepY
  FOR i=1, ny-2 DO BEGIN
    diff = ABS(x(i+1)-x(i))
    IF (diff  LT stepY)AND (diff -stepYOld GT 1e-3) THEN $
      stepY = ABS(y(i+1)-y(i))
  ENDFOR
  IF stepY NE stepYOld THEN BEGIN
    ny = (maxY-minY)/stepY + 1
    yModif = IndGen(ny)*stepY + minY
  ENDIF
ENDIF
    
zModif = BytArr(nx,ny)


END