]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
d43b40e2 | 5 | * Revision 1.1.1.1 1999/05/18 15:55:17 fca |
6 | * AliRoot sources | |
7 | * | |
fe4da5cc | 8 | * Revision 1.1.1.1 1995/10/24 10:20:57 cernlib |
9 | * Geant | |
10 | * | |
11 | * | |
12 | #include "geant321/pilot.h" | |
13 | *CMZ : 3.21/02 29/03/94 15.41.31 by S.Giani | |
14 | *-- Author : | |
15 | SUBROUTINE GVDLIM(JVO,IN,IAXIS,CLOW,CHIGH,IERR) | |
16 | C. | |
17 | C. ********************************************************** | |
18 | C. * * | |
19 | C. * ROUTINE TO FIND THE COORDINATE LIMITS ALONG AXIS * | |
20 | C. * IAXIS FOR THE INTH CONTENT OF THE VOLUME POINTED * | |
21 | C. * TO BY JVO. THE LIMITS ARE RETURNED AS CLOW AND * | |
22 | C. * CHIGH.IF THEY CANNOT BE FOUND THEN IERR IS SET TO 1.* | |
23 | C. * * | |
24 | C. * ==>Called by : GGCLOS * | |
25 | C. * Author S.Giani ********* * | |
26 | C. * * | |
27 | C. ********************************************************** | |
28 | C. | |
29 | #include "geant321/gcbank.inc" | |
d43b40e2 | 30 | DIMENSION PAR(100),ATT(20) |
fe4da5cc | 31 | C. |
32 | C. ----------------------------------------- | |
33 | C. | |
34 | JIN=LQ(JVO-IN) | |
35 | IROT=Q(JIN+4) | |
36 | IVOT=Q(JIN+2) | |
37 | JVOT=LQ(JVOLUM-IVOT) | |
38 | ISH=Q(JVOT+2) | |
39 | C | |
40 | CALL GFIPAR(JVOT,JIN,IN,NPAR,NATT,PAR,ATT) | |
41 | C | |
42 | C X,Y OR Z COORDINATES. | |
43 | C | |
44 | IF(IAXIS.GT.3) GO TO 20 | |
45 | C | |
46 | CALL GVDCAR(IAXIS,ISH,IROT,PAR,CL,CH,IERR) | |
47 | IF(IERR.NE.0) GO TO 999 | |
48 | C | |
49 | CLOW=CL+Q(JIN+IAXIS+4) | |
50 | CHIGH=CH+Q(JIN+IAXIS+4) | |
51 | C | |
52 | GO TO 999 | |
53 | C | |
54 | 20 CONTINUE | |
55 | IF(IAXIS.GT.5) GO TO 30 | |
56 | C | |
57 | C R COORDINATES. | |
58 | C | |
59 | CALL GVDRAD(IAXIS,ISH,IROT,Q(JIN+5),PAR,CLOW, CHIGH,IERR) | |
60 | ||
61 | C | |
62 | GO TO 999 | |
63 | C | |
64 | 30 CONTINUE | |
65 | C | |
66 | C PHI OR THETA COORDINATES. | |
67 | C | |
68 | IF(IAXIS.EQ.6) CALL GVDPHI(ISH,IROT,Q(JIN+5), PAR,CLOW,CHIGH, | |
69 | +IERR) | |
70 | C | |
71 | IF(IAXIS.EQ.7) CALL GVDTHE(ISH,IROT,Q(JIN+5), PAR,CLOW,CHIGH, | |
72 | +IERR) | |
73 | C | |
74 | 999 CONTINUE | |
75 | END |