C	PARAMETRES DE DIMENSION ENTRES DANS LE CODE 2D
C	*************************************************************
C	PART : NOMBRE TOTAL DE PARTICULES
C
C	NBRCEL : NOMBRE DE CELLULES SUR LESQUELLES SONT 
C		FAITES LES MOYENNES (TEMP)
C
C	FIELD3 : NOMBRE DE POINTS GRILLE EN X
C
C	FIELD2 : NOMBRE DE POINTS GRILLE EN Y
C
C	MUS : PERMET DE NE DESSINER QU'UNE PARTICULE SUR MUS
C
C	LPLXBD :
C
C	PLOH : TAILLE DU TABLEAU POUR TIME HISTORY
C
C
	INTEGER PART, NBRCEL, FIELD2, FIELD3
              INTEGER FIELD1, MUS, LPLXBD,PLOH,PLOP
              INTEGER CELIO,CELEL
*
* Parametres particulier pour obtenir la trajectoire de certaines particules
*
	INTEGER NUMPAE,NUMPAI,NEMDI,NENDE,NUMFIC,NTT
       

*     Attention : pour RANORM, le nombre de particules doit etre pair
CC##YY
	PARAMETER (PART=2097152)
CC	PARAMETER (PART=1048576)
	PARAMETER (FIELD3=4096, FIELD2=128)
	PARAMETER (LPLXBD=2049)

C	PARAMETER (FIELD3=512, FIELD2=128)
C	PARAMETER (LPLXBD=129)

*   Attention, si aucune particules n'est selectionnees alors
*   mettre NUMPAE et/ou NUMPAI a 1
*   NTT on memorise les valeurs interessantes tout les NTT fois
*   NEMDI : nombre total d'echantillon  NEMDI=NEND/NTT
              PARAMETER(NENDE=5200)
*    nombre de fichiers memoriser
                PARAMETER (NUMFIC=29)
CC	PARAMETER (NUMPAE=800, NUMPAI=800)
	PARAMETER (NUMPAE=1, NUMPAI=1)
             PARAMETER (NTT=4, NEMDI=NENDE/NTT)                 
CC##ZZ
*
**** just for diagnostics
*
	PARAMETER (NBRCEL=50)
	PARAMETER (MUS=2)    
	PARAMETER (PLOH=3000)