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