[u/mrichter/AliRoot.git] / GEANT321 / cgpack / cghins.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 CGHINS(CG,H,ISHAPE)
************************************************************************
*                                                                      *
*     Name: CGHINS                                                     *
*     Author: E. Chernyaev                       Date:    04.08.88     *
*     Revised by: S.Giani                        Date:    24.04.91     *
*                                                                      *
*     Function: Add next CG-object to HIDE-structure                   *
*                                                                      *
*     References: CGHSIZ, CGHMOV                                       *
*                                                                      *
*     Input: CG(*) - CG-object                                         *
*             H(*) - HIDE-structure                                    *
*                                                                      *
*     Output: none                                                     *
*                                                                      *
*     Errors: none                                                     *
*                                                                      *
************************************************************************
#include "geant321/cghpar.inc"
*SG
#include "geant321/gcgobj.inc"
*SG
      REAL CG(*),H(*)
*-          P A R A M E T E R S   C H E C K
      IF (H(KHSIZE)  .LE. 0.)   GOTO 999
      CALL CGTSTR(CG,IREP)
*      IF (IREP .LT. 0) PRINT *, 'CGHINS: CG-structure test failed'
      IF (IREP .LT. 0)          GOTO 999
*
      NHSIZE = H(KHSIZE)
      NT     = H(KHNT)
      NXYZ   = H(KHNXYZ)
      NFACE  = H(KHNFAC)
      NEDGE  = H(KHNEDG)
      CALL CGHSIZ(CG,NT,NVF,NVE,ISHAPE)
      IF (NVF .EQ. 0)           GOTO 999
      NX     = 3*(NXYZ + NVE*2)
      NF     = (NFACE + NEDGE*2 + NVF + NVE*2)/I4SIZE + 1
      NP     = (NVE*2*2)/I4SIZE + 1
      NTOTAL = LHHEAD + NX + NF + NP
*           T E S T   S P A C E
      IF (NTOTAL .LT. NHSIZE)   GOTO 100
*SG
*   Setting new number of words needed
*
      NCLAS1=NTOTAL+1
      KCGST=-8
*SG
      H(KHNXYZ) = NXYZ + NVE*2
      H(KHNFAC) = NFACE + NVF
      H(KHNEDG) = NEDGE + NVE
      GOTO 999
*
  100 JXYZ1   = LHHEAD + NXYZ*3 + 1
      JPOINT = JXYZ1 + NVE*2*3
      JFACE  = 1
*SG
*   Resetting flag for size evaluation of Wire Structure
*
      KCGST=0
*SG
      CALL CGHMOV(CG,H,NVF,NVE,H(JXYZ1),H(JPOINT),H(JFACE))
*
  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 CGHINS(CG,H,ISHAPE)
	13	************************************************************************
	14	* *
	15	* Name: CGHINS *
	16	* Author: E. Chernyaev Date: 04.08.88 *
	17	* Revised by: S.Giani Date: 24.04.91 *
	18	* *
	19	* Function: Add next CG-object to HIDE-structure *
	20	* *
	21	* References: CGHSIZ, CGHMOV *
	22	* *
	23	* Input: CG() - CG-object
	24	* H() - HIDE-structure
	25	* *
	26	* Output: none *
	27	* *
	28	* Errors: none *
	29	* *
	30	************************************************************************
	31	#include "geant321/cghpar.inc"
	32	*SG
	33	#include "geant321/gcgobj.inc"
	34	*SG
	35	REAL CG(),H()
	36	*- P A R A M E T E R S C H E C K
	37	IF (H(KHSIZE) .LE. 0.) GOTO 999
	38	CALL CGTSTR(CG,IREP)
	39	* IF (IREP .LT. 0) PRINT *, 'CGHINS: CG-structure test failed'
	40	IF (IREP .LT. 0) GOTO 999
	41	*
	42	NHSIZE = H(KHSIZE)
	43	NT = H(KHNT)
	44	NXYZ = H(KHNXYZ)
	45	NFACE = H(KHNFAC)
	46	NEDGE = H(KHNEDG)
	47	CALL CGHSIZ(CG,NT,NVF,NVE,ISHAPE)
	48	IF (NVF .EQ. 0) GOTO 999
	49	NX = 3(NXYZ + NVE2)
	50	NF = (NFACE + NEDGE2 + NVF + NVE2)/I4SIZE + 1
	51	NP = (NVE22)/I4SIZE + 1
	52	NTOTAL = LHHEAD + NX + NF + NP
	53	* T E S T S P A C E
	54	IF (NTOTAL .LT. NHSIZE) GOTO 100
	55	*SG
	56	* Setting new number of words needed
	57	*
	58	NCLAS1=NTOTAL+1
	59	KCGST=-8
	60	*SG
	61	H(KHNXYZ) = NXYZ + NVE*2
	62	H(KHNFAC) = NFACE + NVF
	63	H(KHNEDG) = NEDGE + NVE
	64	GOTO 999
65	*
66	100 JXYZ1 = LHHEAD + NXYZ*3 + 1
67	JPOINT = JXYZ1 + NVE23
68	JFACE = 1
69	*SG
70	* Resetting flag for size evaluation of Wire Structure
71	*
72	KCGST=0
73	*SG
74	CALL CGHMOV(CG,H,NVF,NVE,H(JXYZ1),H(JPOINT),H(JFACE))
75	*
76	999 RETURN
77	END