5 * Revision 1.1.1.1 1995/10/24 10:20:28 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.27 by S.Giani
13 SUBROUTINE GDSHIF(IVOLNA,ICPOIN)
15 * This subroutine allows to shift volumes in a more visible
16 * place just for drawing, without alterating the data structure,
17 * but perfectly simulating it.
19 #include "geant321/gcbank.inc"
20 #include "geant321/gcunit.inc"
21 #include "geant321/gcvolu.inc"
22 #include "geant321/gcgobj.inc"
24 #include "geant321/gcmutr.inc"
25 #include "geant321/gcdraw.inc"
26 #include "geant321/gchiln.inc"
27 #include "geant321/gcspee.inc"
29 COMMON /QUEST/IQUEST(100)
37 IF(IVOLNA.EQ.IVECVO(IJ))GOTO 554
38 IF(IVECVO(IJ).EQ.0)THEN
46 IF(ISUBLI.EQ.1.AND.NIET.EQ.1)THEN
48 CALL CGSHIF(PORGX,PORGY,PORGZ,
50 IF(IVOLNA.EQ.IOLDVO)GOTO 554
53 IF(ISUBLI.EQ.1.AND.NIET.EQ.2.AND.IVOOLD.NE.0)THEN
55 IF(IVOLNA.EQ.IOLDVO)THEN
56 CALL CGSHIF(PORGX,PORGY,PORGZ,
61 IF((NLEVEL-I).GT.0)THEN
62 IF(POX(NLEVEL-I).NE.0.OR.POY(NLEVEL-I).NE.0.OR.
63 + POZ(NLEVEL-I).NE.0)THEN
80 CALL CGSHIF(PORGX,PORGY,PORGZ,
84 IF(NIET.EQ.0.AND.IVOLNA.EQ.IOLDVO)GOTO 554
87 DO 553 KHHH=MULTRA,1,-1
88 CALL UCTOH(GNVNV(KHHH),IVN,4,4)
91 CALL CGSHIF(GXXXX(KHHH),GYYYY(KHHH),GZZZZ(KHHH),
93 IF(IVOLNA.NE.IOLDVO)THEN
94 POX(NLEVEL)=PORGX+GXXXX(KHHH)
95 POY(NLEVEL)=PORGY+GYYYY(KHHH)
96 POZ(NLEVEL)=PORGZ+GZZZZ(KHHH)
97 PORGX=PORGX+GXXXX(KHHH)
98 PORGY=PORGY+GYYYY(KHHH)
99 PORGZ=PORGZ+GZZZZ(KHHH)