5 * Revision 1.1.1.1 1995/10/24 10:20:22 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
12 SUBROUTINE GDCOL1(ICOL)
14 C. ******************************************************************
16 C. * Change the line color to ICOL *
18 C. * The color table is : *
20 C. * 1 = White (Black is suggested for paper outputs) *
30 C. * ==>Called by : GDRAWP, GDRAWT *
31 C. * Author : P.Zanarini ********* *
33 C. ******************************************************************
35 #include "geant321/gcdraw.inc"
40 C. ------------------------------------------------------------------
42 LCOL=MOD(IABS(ICOL),16)
45 IF (KCOL.NE.IOLD) THEN