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