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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:19:44  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.31  by  S.Giani
*-- Author :
      SUBROUTINE CGHSIZ(CG,NT,NVF,NVE,ISHAPE)
************************************************************************
*                                                                      *
*     Name: CGHSIZ                                                     *
*     Author: E. Chernyaev                       Date:    02.08.88     *
*     Revised by: S.Giani                        Date:    26.04.91     *
*                                                                      *
*     Function: Compute number of visible FACES and EDGE               *
*                                                                      *
*     References: CGFVIS                                               *
*                                                                      *
*     Input:  CG - CG-object                                           *
*             NT - number for transformation to screen coordinates     *
*                                                                      *
*     Output: NVF - number of visible faces                            *
*             NVE - number of visible edges                            *
*                                                                      *
*     Errors: none                                                     *
*                                                                      *
************************************************************************
#include "geant321/cggpar.inc"
#include "geant321/gcspee.inc"
      REAL      CG(*)
*-
**SG
      NTFLAG = 1
      NTIM   = 0
**SG
      NVF    = 0
      NVE    = 0
      JCG    = LCGHEA
      NFACE  = CG(KCGNF)
      DO 100 NF=1,NFACE
        NEDGE = CG(JCG+KCGNE)
        CALL CGFARE(NT,CG(JCG+1),IVIS,ISHAPE)
        IF (IVIS .LT. 0)        CG(JCG+KCGNE) =-CG(JCG+KCGNE)
        JCG   = JCG + LCGFAC + NEDGE*LCGEDG
        IF (IVIS .LT. 0)        GOTO 100
        NVF   = NVF + 1
        NVE   = NVE + NEDGE
  100   CONTINUE
*SG
      NTFLAG = 0
*SG
  999 RETURN
      END
Commit	Line	Data
fe4da5cc	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