1 SUBROUTINE GSQCOL(I) 2 INCLUDE 'Parametres.f' 3 if (iabs(ipostscript).eq.1) then 4 i = icoul_courante 5 else 6 i = icoul_pend 7 endif 8 end 9