This commit was generated by cvs2svn to compensate for changes in r2,

[u/mrichter/AliRoot.git] / GEANT321 / ggeom / gfclim.F

diff --git a/GEANT321/ggeom/gfclim.F b/GEANT321/ggeom/gfclim.F
new file mode 100644 (file)
index 0000000..e193fbc
--- /dev/null
+++ b/GEANT321/ggeom/gfclim.F
@@ -0,0 +1,72 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1995/10/24 10:20:48  cernlib
+* Geant
+*
+*
+#include "geant321/pilot.h"
+*CMZ :  3.21/02 29/03/94  15.41.28  by  S.Giani
+*-- Author :
+      SUBROUTINE GFCLIM(JVO,IN,IAXIS,CLOW,CHIGH,IERR)
+C.
+C.    **********************************************************
+C.    *                                                        *
+C.    *    ROUTINE TO FIND THE COORDINATE LIMITS ALONG AXIS    *
+C.    *    IAXIS FOR THE INTH CONTENT OF THE VOLUME POINTED    *
+C.    *    TO BY JVO. THE LIMITS ARE RETURNED AS CLOW AND      *
+C.    *    CHIGH.IF THEY CANNOT BE FOUND THEN IERR IS SET TO 1.*
+C.    *                                                        *
+C.    *    ==>Called by : GGORD                                *
+C.    *         Author  A.McPherson  *********                 *
+C.    *                                                        *
+C.    **********************************************************
+C.
+#include "geant321/gcbank.inc"
+      DIMENSION PAR(50),ATT(20)
+C.
+C.         -----------------------------------------
+C.
+      JIN=LQ(JVO-IN)
+      IROT=Q(JIN+4)
+      IVOT=Q(JIN+2)
+      JVOT=LQ(JVOLUM-IVOT)
+      ISH=Q(JVOT+2)
+C
+      CALL GFIPAR(JVOT,JIN,IN,NPAR,NATT,PAR,ATT)
+C
+C              X,Y OR Z COORDINATES.
+C
+      IF(IAXIS.GT.3) GO TO 20
+C
+      CALL GFLCAR(IAXIS,ISH,IROT,PAR,CL,CH,IERR)
+      IF(IERR.NE.0) GO TO 999
+C
+      CLOW=CL+Q(JIN+IAXIS+4)
+      CHIGH=CH+Q(JIN+IAXIS+4)
+C
+      GO TO 999
+C
+   20 CONTINUE
+      IF(IAXIS.GT.5) GO TO 30
+C
+C          R COORDINATES.
+C
+      CALL GFLRAD(IAXIS,ISH,IROT,Q(JIN+5),PAR,CLOW, CHIGH,IERR)
+ 
+C
+      GO TO 999
+C
+   30 CONTINUE
+C
+C          PHI OR THETA COORDINATES.
+C
+      IF(IAXIS.EQ.6) CALL GFLPHI(ISH,IROT,Q(JIN+5), PAR,CLOW,CHIGH,
+     +IERR)
+C
+      IF(IAXIS.EQ.7) CALL GFLTHE(ISH,IROT,Q(JIN+5), PAR,CLOW,CHIGH,
+     +IERR)
+C
+  999 CONTINUE
+      END