      subroutine vraiecoord(x,y,ix,iy)
      INCLUDE 'Parametres.f'
      Ix = nint(origine_x + facteur_en_x*X)
      Iy = nint(origine_y + facteur_en_y*Y)
      end
