GEANT321/cgpack/cgcev.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:42  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 CGCEV(IFVIS,CG)
  13 ************************************************************************
  14 *                                                                      *
  15 *     Name: CGCEV                                                      *
  16 *     Author: E. Chernyaev                       Date:    05.02.89     *
  17 *                                                Revised:              *
  18 *                                                                      *
  19 *     Function: Change edge visibility                                 *
  20 *                                                                      *
  21 *     References: CGTSTR                                               *
  22 *                                                                      *
  23 *     Input:   IFVIS - flag (1 - visible, 0 - unvisible, -1 - inverse) *
  24 *     Output: CG(*)  - CG-object                                       *
  25 *                                                                      *
  26 *     Errors: none                                                     *
  27 *                                                                      *
  28 ************************************************************************
  29 #include "geant321/cggpar.inc"
  30       REAL      CG(*)
  31 *-
  32       CALL CGTSTR(CG,IREP)
  33       IF (IREP .LT. 0)          GOTO 999
  34       NFACE  = CG(KCGNF)
  35       IF (NFACE .EQ. 0)         GOTO 999
  36       JCG    = LCGHEA
  37       DO 200 NF=1,NFACE
  38         NEDGE  = CG(JCG+KCGNE)
  39         JCG    = JCG + LCGFAC
  40         DO 100 NE=1,NEDGE
  41           IF (IFVIS .GT. 0)     CG(JCG+KCGAE) = 0.
  42           IF (IFVIS .EQ. 0)     CG(JCG+KCGAE) =-1.
  43           IF (IFVIS .LT. 0)     CG(JCG+KCGAE) =-(CG(JCG+KCGAE) + 1.)
  44           JCG    = JCG + LCGEDG
  45   100     CONTINUE
  46   200   CONTINUE
  47 *
  48   999 RETURN
  49       END