*$ CREATE CMCSCM.ADD
*COPY CMCSCM
*
*=== Cmcscm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1993-2005      by             Carlo Rubbia         *
*     All Rights Reserved.                                             *
*                                                                      *
*     This module is required for interfacing the EA-MC geometry to    *
*     FLUKA                                                            *
*                                                                      *
*----------------------------------------------------------------------*
*
C------ COMMON /NEWGEOM/ ----------------------------------------------*
      PARAMETER (MAXNOGELE=2000)	! max no geometrical elements
      PARAMETER (MAXNOGPAR=300)	! max no of parameters & pointers
      PARAMETER (MAXNGTYPE=20)	! max no of element types

      COMMON/NEWGEOM/HTITLE,NOGELE,IGEOTYPE(MAXNOGELE),
     + GEONAME(MAXNOGELE),MATVAL(MAXNOGELE),		! generalities
     + NGPARAM(MAXNOGELE),PARGEO(MAXNOGELE,MAXNOGPAR),	! parameters
     + NGPOINT(MAXNOGELE),IIPOINT(MAXNOGELE,MAXNOGPAR),	! pointers
     + IIMASTER,GEOTYPE(MAXNGTYPE),NONUMPAR(MAXNGTYPE)	! type & miscell
      CHARACTER*20,GEONAME
      CHARACTER*120 HTITLE
      CHARACTER*4 GEOTYPE
      DOUBLE PRECISION PARGEO
C
C	HTITLE			title(name) of geometry
C	NOGELE			number of elements
C	IGEOTYPE(IGELE)		type of element, address to  GEOTYPE,NONUMPAR
C	GEONAME(IGELE)		name of element (A20)
C	MATVAL(IGELE)		material no (only for simple geometries)
C	NGPARAM(IGELE)		no of associated parameters
C	PARGEO(IGELE,IPAR)	associated parameters (floating DP)	
C	NGPOINT(IGELE)		no of associated pointers
C	IIPOINT(IGELE,IPNT)	associated pointers
C				(integers)=> IGELE of associated elements
C	IIMASTER		IGELE of initiator element in the chain
C	GEOTYPE(k)		key name for operator
C	NONUMPAR(k)		no of elem in numeric list
C
C-----------------END COMMON /NEWGEOM/ --------------------------------*
C
      SAVE / NEWGEOM /