[u/mrichter/AliRoot.git] / GEANT321 / cgpack / cgcev.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:19:42  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.31  by  S.Giani
*-- Author :
      SUBROUTINE CGCEV(IFVIS,CG)
************************************************************************
*                                                                      *
*     Name: CGCEV                                                      *
*     Author: E. Chernyaev                       Date:    05.02.89     *
*                                                Revised:              *
*                                                                      *
*     Function: Change edge visibility                                 *
*                                                                      *
*     References: CGTSTR                                               *
*                                                                      *
*     Input:   IFVIS - flag (1 - visible, 0 - unvisible, -1 - inverse) *
*     Output: CG(*)  - CG-object                                       *
*                                                                      *
*     Errors: none                                                     *
*                                                                      *
************************************************************************
#include "geant321/cggpar.inc"
      REAL      CG(*)
*-
      CALL CGTSTR(CG,IREP)
      IF (IREP .LT. 0)          GOTO 999
      NFACE  = CG(KCGNF)
      IF (NFACE .EQ. 0)         GOTO 999
      JCG    = LCGHEA
      DO 200 NF=1,NFACE
        NEDGE  = CG(JCG+KCGNE)
        JCG    = JCG + LCGFAC
        DO 100 NE=1,NEDGE
          IF (IFVIS .GT. 0)     CG(JCG+KCGAE) = 0.
          IF (IFVIS .EQ. 0)     CG(JCG+KCGAE) =-1.
          IF (IFVIS .LT. 0)     CG(JCG+KCGAE) =-(CG(JCG+KCGAE) + 1.)
          JCG    = JCG + LCGEDG
  100     CONTINUE
  200   CONTINUE
*
  999 RETURN
      END
Commit	Line	Data
fe4da5cc	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