[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdcgpr.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:21  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
*-- Author :
*
      SUBROUTINE GDCGPR
C.    ******************************************************************
C.    *                                                                *
C.    *    The aim of this subroutine is:                              *
C.    *                                                                *
C.    *    - To control the number of structures used                  *
C.    *    - To test if the maximum size of memory is achieved         *
C.    *                                                                *
C.    *    - To increase the size of the CG-Bank if there              *
C.    *    is not enough space for new CG structures.                  *
C.    *                                                                *
C.    *                                                                *
C.    *    ==>Called by : GDCGCL,GDCGHI,GDCGOB                         *
C.    *                                                                *
C.    *       Author : J. Salt   **********                            *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcbank.inc"
#include "geant321/gcunit.inc"
#include "geant321/gcgobj.inc"
#include "geant321/gchiln.inc"
*
      INCND=2500
*
*  Control on the Maximum Number of CG Structures
*
      IF(IST.GT.IQ(JCOUNT-1))THEN
         WRITE(CHMAIL,10000)
         CALL GMAIL(0,0)
         KCGST=-1
         RETURN
      ENDIF
*
*   Control the Size of the IXCG
*   Bank Extension. Garbage Collection
*
      NSUM=NFILT+NTNEX
      NWFIL=IQ(JCG-1)
      IF(NSUM.GT.NWFIL)THEN
         NRES=NSUM-IQ(JCG-1)
         IF(NRES.GT.INCND)INCND=NRES
**
         IXCG=IXSTOR+1
         CALL MZPUSH(IXCG,JCG,0,INCND,' ')
      ENDIF
      IXCG=IXSTOR+1
      CALL MZGARB(IXCG,0)
*
10000 FORMAT('  Maximum Number of Structures exceeded')
*
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:21 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
	11	*-- Author :
	12	*
	13	SUBROUTINE GDCGPR
	14	C. ******************************************************************
	15	C. * *
	16	C. * The aim of this subroutine is: *
	17	C. * *
	18	C. * - To control the number of structures used *
	19	C. * - To test if the maximum size of memory is achieved *
	20	C. * *
	21	C. * - To increase the size of the CG-Bank if there *
	22	C. * is not enough space for new CG structures. *
	23	C. * *
	24	C. * *
	25	C. * ==>Called by : GDCGCL,GDCGHI,GDCGOB *
	26	C. * *
	27	C. * Author : J. Salt ********** *
	28	C. * *
	29	C. ******************************************************************
	30	C.
	31	#include "geant321/gcbank.inc"
	32	#include "geant321/gcunit.inc"
	33	#include "geant321/gcgobj.inc"
	34	#include "geant321/gchiln.inc"
	35	*
	36	INCND=2500
	37	*
	38	* Control on the Maximum Number of CG Structures
	39	*
	40	IF(IST.GT.IQ(JCOUNT-1))THEN
	41	WRITE(CHMAIL,10000)
	42	CALL GMAIL(0,0)
	43	KCGST=-1
	44	RETURN
	45	ENDIF
	46	*
	47	* Control the Size of the IXCG
	48	* Bank Extension. Garbage Collection
	49	*
	50	NSUM=NFILT+NTNEX
	51	NWFIL=IQ(JCG-1)
	52	IF(NSUM.GT.NWFIL)THEN
	53	NRES=NSUM-IQ(JCG-1)
	54	IF(NRES.GT.INCND)INCND=NRES
	55	**
	56	IXCG=IXSTOR+1
	57	CALL MZPUSH(IXCG,JCG,0,INCND,' ')
	58	ENDIF
	59	IXCG=IXSTOR+1
	60	CALL MZGARB(IXCG,0)
	61	*
	62	10000 FORMAT(' Maximum Number of Structures exceeded')
	63	*
	64	END
65