1      SUBROUTINE GSMB(XBOX,YBOX)
2      INCLUDE 'Parametres.f'
3c
4      if (ipostscript.eq.1) then
5        i2box = nint(abs(facteur_en_x*XBOX*.5))
6        j2box = nint(abs(facteur_en_y*YBOX*.5))
7      else
8        taille_mark = amin1(facteur_en_x*XBOX,facteur_en_y*YBOX)*.5
9      endif
10      END
11