GEANT321/gdraw/gdcgpr.F

   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