GEANT321/gcinit.F

   1       SUBROUTINE GCINIT
   2       PARAMETER (NWGEANT=3000000)
   3       COMMON / GCBANK / GMEM(NWGEANT)
   4 *
   5 * Initialise geant system with a default dimension of NWGEANT
   6 *
   7       CALL GZEBRA(NWGEANT)
   8       CALL GINIT()
   9       CALL GZINIT()
  10 *
  11       END