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

      X = (xcourant-origine_x)/facteur_en_x
      Y = (ycourant-origine_y)/facteur_en_y
      end