1      SUBROUTINE GSQCP (X,Y)
2      INCLUDE 'Parametres.f'
3      REAL*4 X,Y
4
5      X = (xcourant-origine_x)/facteur_en_x
6      Y = (ycourant-origine_y)/facteur_en_y
7      end
8