%N setcolcg %F $MIR/src/subs/cgsubs.for
%D Set multiple line graphics PGPLOT colours
%P nebk
%: plotting
%B
      subroutine setcolcg (i, icol)

      integer i, icol
  ---------------------------------------------------------------------
  Return a PGPLOT colour index given a graph number, where you plan
  to put many graphs with different colours on the one plot.  The
  colours are chosen so that similar colours are not consecutive

 Input:
   i      Graph number in the range 1 -> NGRAPH, where NGRAPH is the
          number of graphs that will be drawn on the one plot
 Output:
   icol   The colour index to set with PGSCI (ICOL)
