GEANT321/cgpack/cgmnmx.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:44  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.31  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE CGMNMX(CG,RMIN,RMAX)
  13 ************************************************************************
  14 *                                                                      *
  15 *     Name: CGMNMX                                                     *
  16 *     Author: E. Chernyaev                       Date:    19.08.88     *
  17 *                                                Revised:              *
  18 *                                                                      *
  19 *     Function: Compute scope of CG-object                             *
  20 *                                                                      *
  21 *     References: CGTSTR                                               *
  22 *                                                                      *
  23 *     Input:  CG(*) - CG-object                                        *
  24 *                                                                      *
  25 *     Output: RMIN(3) - min coordinates                                 *
  26 *             RMAX(3) - max coordinates                                 *
  27 *                                                                      *
  28 *     Errors: none                                                     *
  29 *                                                                      *
  30 ************************************************************************
  31 #include "geant321/cggpar.inc"
  32       REAL      CG(*),RMIN(3),RMAX(3)
  33 *-
  34       DO 100 I=1,3
  35         RMIN(I) =+999999.
  36         RMAX(I) =-999999.
  37   100   CONTINUE
  38       CALL CGTSTR(CG,IREP)
  39       IF (IREP .LT. 0)          GOTO 999
  40 *
  41       NFACE  = CG(KCGNF)
  42       IF (NFACE .EQ. 0)         GOTO 999
  43       JCG    = LCGHEA
  44       DO 300 NF=1,NFACE
  45         NEDGE  = CG(JCG+KCGNE)
  46         JCG    = JCG + LCGFAC
  47         DO 200 NE=1,NEDGE
  48           IF (CG(JCG+KCGX1) .LT. RMIN(1))       RMIN(1) = CG(JCG+KCGX1)
  49           IF (CG(JCG+KCGY1) .LT. RMIN(2))       RMIN(2) = CG(JCG+KCGY1)
  50           IF (CG(JCG+KCGZ1) .LT. RMIN(3))       RMIN(3) = CG(JCG+KCGZ1)
  51           IF (CG(JCG+KCGX2) .LT. RMIN(1))       RMIN(1) = CG(JCG+KCGX2)
  52           IF (CG(JCG+KCGY2) .LT. RMIN(2))       RMIN(2) = CG(JCG+KCGY2)
  53           IF (CG(JCG+KCGZ2) .LT. RMIN(3))       RMIN(3) = CG(JCG+KCGZ2)
  54 *
  55           IF (CG(JCG+KCGX1) .GT. RMAX(1))       RMAX(1) = CG(JCG+KCGX1)
  56           IF (CG(JCG+KCGY1) .GT. RMAX(2))       RMAX(2) = CG(JCG+KCGY1)
  57           IF (CG(JCG+KCGZ1) .GT. RMAX(3))       RMAX(3) = CG(JCG+KCGZ1)
  58           IF (CG(JCG+KCGX2) .GT. RMAX(1))       RMAX(1) = CG(JCG+KCGX2)
  59           IF (CG(JCG+KCGY2) .GT. RMAX(2))       RMAX(2) = CG(JCG+KCGY2)
  60           IF (CG(JCG+KCGZ2) .GT. RMAX(3))       RMAX(3) = CG(JCG+KCGZ2)
  61           JCG    = JCG + LCGEDG
  62   200     CONTINUE
  63   300   CONTINUE
  64 *
  65   999 RETURN
  66       END