* $Id$
*
* $Log$
+* Revision 1.1.1.1 1999/05/18 15:55:17 fca
+* AliRoot sources
+*
* Revision 1.1.1.1 1995/10/24 10:20:46 cernlib
* Geant
*
#include "geant321/gcsetf.inc"
C
- DIMENSION PAR(50)
+ DIMENSION PAR(100)
REAL DX1,DY,Z,DZ,A,B
C
C------------------------------------------------------