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