      integer function ivraiecoord(x)
      INCLUDE 'Parametres.f'
      Ivraiecoord = nint(origine_x + facteur_en_x*X)
      end
