      SUBROUTINE GSQCOL(I)
      INCLUDE 'Parametres.f'
      if (iabs(ipostscript).eq.1) then
        i = icoul_courante
      else
        i = icoul_pend
      endif
      end
