      SUBROUTINE GSQCUR (DUM,X,Y)
      INCLUDE 'Parametres.f'
      REAL*4 X,Y

      X = ( REAL(ixposcurs)-origine_x)/facteur_en_x
      Y = ( REAL(iyposcurs)-origine_y)/facteur_en_y
      end
