SUBROUTINE GSMB(XBOX,YBOX)
      INCLUDE 'Parametres.f'
c
      if (ipostscript.eq.1) then
        i2box = nint(abs(facteur_en_x*XBOX*.5))
        j2box = nint(abs(facteur_en_y*YBOX*.5))
      else
        taille_mark = amin1(facteur_en_x*XBOX,facteur_en_y*YBOX)*.5
      endif
      END