[u/mrichter/AliRoot.git] / GEANT321 / gcinit.F

      SUBROUTINE GCINIT
      PARAMETER (NWGEANT=3000000)
      COMMON / GCBANK / GMEM(NWGEANT)
*
* Initialise geant system with a default dimension of NWGEANT
*
      CALL GZEBRA(NWGEANT)
      CALL GINIT()
      CALL GZINIT()
*
      END
Commit	Line	Data
	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