      SUBROUTINE GSMS(IMARK)
      INCLUDE 'Parametres.f'
      marqueur_courant = IMARK
      end
