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