]> git.uio.no Git - u/mrichter/AliRoot.git/blob - GEANT321/gdraw/gdcol.F
Fix needed on Sun and Alpha
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdcol.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:22  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
11 *-- Author :
12       SUBROUTINE GDCOL(ICOL)
13 C.
14 C.    ******************************************************************
15 C.    *                                                                *
16 C.    *       Set line color to ICOL                                   *
17 C.    *                                                                *
18 C.    *       if ICOL > 0 set color temporarily                        *
19 C.    *       if ICOL < 0 set color permanently                        *
20 C.    *       if ICOL = 0 restore permanent color value                *
21 C.    *                                                                *
22 C.    *    ==>Called by : <USER>, <GXINT>, GDHEAD, GDRAW, GDSPEC,GDXYZ *
23 C.    *       Author : P.Zanarini ; S.Giani  *********                 *
24 C.    *                                                                *
25 C.    ******************************************************************
26 C.
27 #include "geant321/gcdraw.inc"
28 C.
29 C.    ------------------------------------------------------------------
30 C.
31       KCOL=MOD(IABS(ICOL),16)
32       IF (ICOL.EQ.0) THEN
33          CALL MVBITS(LINATP,16,4,LINATT,16)
34          CALL MVBITS(LINATP,16,4,ITXATT,3)
35       ELSE IF (ICOL.GT.0) THEN
36          CALL MVBITS(KCOL,0,4,LINATT,16)
37          CALL MVBITS(KCOL,0,4,ITXATT,3)
38       ELSE
39          CALL MVBITS(KCOL,0,4,LINATT,16)
40          CALL MVBITS(KCOL,0,4,LINATP,16)
41          CALL MVBITS(KCOL,0,4,ITXATT,3)
42       ENDIF
43       END