1 SUBROUTINE GSLT (ITYPE) 2 INCLUDE 'Parametres.f' 3 ii = mod(itype,8) 4 if (ipostscript.eq.1) then 5 if (ii.ne.ityp_ligne) then 6CC call x11draw3(ii,iepais_ligne) 7 call x11draw3(ii) 8 ityp_ligne = ii 9 endif 10 else 11 ityp_ligne_pend = ii 12 endif 13 end 14