Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / geocad / gposi.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:46  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.32  by  S.Giani
11 *-- Author :
12       SUBROUTINE GPOSI(PARMAT,POSIT,VOLNAM,COLO)
13 C-   Created  12-JUN-1991   Nils Joar Hoimyr, Jouko Vuoskoski
14 C
15 C    Modyfied 10.11.92 Nils Hoimyr. Added colour output to CAD.
16 C----------------------------------------------------------------------
17 C
18 #include "geant321/gcsetf.inc"
19  
20 C
21 C
22       DIMENSION PARMAT(9)
23       DIMENSION POSIT(3)
24       CHARACTER*10 VOLNAM
25       INTEGER COLOUR,COL,COLO
26 C
27 C
28 C    Map GEANT colour to SET colour: (Use SET standard colour table)
29 C                                     Approx LightBlue with blue
30 C
31       IF (ABS(COLO).GE.10) THEN
32          COL= ABS(COLO/10)
33       ELSE
34          COL= ABS(COLO)
35       ENDIF
36       IF (COL.EQ.1) COLOUR=8
37       IF (COL.EQ.2) COLOUR=7
38       IF (COL.EQ.3) COLOUR=4
39       IF (COL.EQ.4) COLOUR=3
40       IF (COL.EQ.5) COLOUR=5
41       IF (COL.EQ.6) COLOUR=2
42       IF (COL.EQ.7) COLOUR=3
43 C----------------------------------------------------------------------
44 C   Positioning of the volume in SET:
45 C
46 C *WRITE SET @302,N1,#301,1,0,0,0,1,0,0,0,1,XPOSIT,YPOSIT,XPOSIT
47 C *WRITE SET @100,N2,:57,'Colour',:9,'Name'#101,!N1(of the shape),!N1
48 C
49 C-------------------------------------------------------------------
50 C
51       WRITE(BLKSTR,10000)N1,(PARMAT(JV),JV=1,9),(POSIT(JV),JV=1,3)
52       CALL GJWRIT
53       N1=N1+1
54       WRITE(BLKSTR,10100)N1,COLOUR,VOLNAM,N1-2,N1-1
55       CALL GJWRIT
56 C
57 10000   FORMAT('@302,',I10,'#301,',G14.7,',',G14.7,','
58      +  ,G14.7,',',G14.7,',',G14.7,',',G14.7,',',G14.7,','
59      +  ,G14.7,',',G14.7,',',G14.7,',',G14.7,',',G14.7)
60 C10010   FORMAT('@302,',I10,'#317,',G14.7,',',G14.7,',',G14.7)
61 10100   FORMAT('@100,',I10,',:57,',I10,',:9,'''
62      +  ,A,'''#101,!',I10,',!',I10)
63 C10020   FORMAT('@100,',I10,',:5,2#101,!',I10,',!',I10)
64 C
65       END