5 * Revision 1.1.1.1 1995/10/24 10:20:57 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.31 by S.Giani
12 SUBROUTINE GVDLIM(JVO,IN,IAXIS,CLOW,CHIGH,IERR)
14 C. **********************************************************
16 C. * ROUTINE TO FIND THE COORDINATE LIMITS ALONG AXIS *
17 C. * IAXIS FOR THE INTH CONTENT OF THE VOLUME POINTED *
18 C. * TO BY JVO. THE LIMITS ARE RETURNED AS CLOW AND *
19 C. * CHIGH.IF THEY CANNOT BE FOUND THEN IERR IS SET TO 1.*
21 C. * ==>Called by : GGCLOS *
22 C. * Author S.Giani ********* *
24 C. **********************************************************
26 #include "geant321/gcbank.inc"
27 DIMENSION PAR(50),ATT(20)
29 C. -----------------------------------------
37 CALL GFIPAR(JVOT,JIN,IN,NPAR,NATT,PAR,ATT)
39 C X,Y OR Z COORDINATES.
41 IF(IAXIS.GT.3) GO TO 20
43 CALL GVDCAR(IAXIS,ISH,IROT,PAR,CL,CH,IERR)
44 IF(IERR.NE.0) GO TO 999
46 CLOW=CL+Q(JIN+IAXIS+4)
47 CHIGH=CH+Q(JIN+IAXIS+4)
52 IF(IAXIS.GT.5) GO TO 30
56 CALL GVDRAD(IAXIS,ISH,IROT,Q(JIN+5),PAR,CLOW, CHIGH,IERR)
63 C PHI OR THETA COORDINATES.
65 IF(IAXIS.EQ.6) CALL GVDPHI(ISH,IROT,Q(JIN+5), PAR,CLOW,CHIGH,
68 IF(IAXIS.EQ.7) CALL GVDTHE(ISH,IROT,Q(JIN+5), PAR,CLOW,CHIGH,