GEANT321/cgpack/cghsiz.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 CGHSIZ(CG,NT,NVF,NVE,ISHAPE)
  13 ************************************************************************
  14 *                                                                      *
  15 *     Name: CGHSIZ                                                     *
  16 *     Author: E. Chernyaev                       Date:    02.08.88     *
  17 *     Revised by: S.Giani                        Date:    26.04.91     *
  18 *                                                                      *
  19 *     Function: Compute number of visible FACES and EDGE               *
  20 *                                                                      *
  21 *     References: CGFVIS                                               *
  22 *                                                                      *
  23 *     Input:  CG - CG-object                                           *
  24 *             NT - number for transformation to screen coordinates     *
  25 *                                                                      *
  26 *     Output: NVF - number of visible faces                            *
  27 *             NVE - number of visible edges                            *
  28 *                                                                      *
  29 *     Errors: none                                                     *
  30 *                                                                      *
  31 ************************************************************************
  32 #include "geant321/cggpar.inc"
  33 #include "geant321/gcspee.inc"
  34       REAL      CG(*)
  35 *-
  36 **SG
  37       NTFLAG = 1
  38       NTIM   = 0
  39 **SG
  40       NVF    = 0
  41       NVE    = 0
  42       JCG    = LCGHEA
  43       NFACE  = CG(KCGNF)
  44       DO 100 NF=1,NFACE
  45         NEDGE = CG(JCG+KCGNE)
  46         CALL CGFARE(NT,CG(JCG+1),IVIS,ISHAPE)
  47         IF (IVIS .LT. 0)        CG(JCG+KCGNE) =-CG(JCG+KCGNE)
  48         JCG   = JCG + LCGFAC + NEDGE*LCGEDG
  49         IF (IVIS .LT. 0)        GOTO 100
  50         NVF   = NVF + 1
  51         NVE   = NVE + NEDGE
  52   100   CONTINUE
  53 *SG
  54       NTFLAG = 0
  55 *SG
  56   999 RETURN
  57       END