Searched refs:ifonte (Results 1 – 1 of 1) sorted by relevance
1 subroutine gslss(ifonte) argument64 iiii = ifonte + iptifont70 print*,'Font',ifonte,': '73 print*,'On n''a pas trouv� la fonte',ifonte,' : '93 ifonte_courante = ifonte95 if (ifonte.eq.ifonte_courante.and.ipostscript.eq.1) return96 if (ifonte.lt.0.or.ifonte.gt.nfontes_de_base-1) then99 iopt = ifonte