100 parameters now allowed for geant shapes

[u/mrichter/AliRoot.git] / GEANT321 / ggeom / gsdvn.F

diff --git a/GEANT321/ggeom/gsdvn.F b/GEANT321/ggeom/gsdvn.F
index 46ca9dba0a81a36d1712c856536cbe801d461b00..0eb14b0d104b407c8fc9768a31f1bc7a3dc5f7d7 100644 (file)
--- a/GEANT321/ggeom/gsdvn.F
+++ b/GEANT321/ggeom/gsdvn.F
@@ -2,6 +2,9 @@
 * $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:55  cernlib
 * Geant
 *
@@ -36,7 +39,7 @@ C.
 #include "geant321/gcdraw.inc"
 #include "geant321/gcshno.inc"
       CHARACTER*4 KNAME,MOTHER
-      DIMENSION PAR(50),PARM(50),ATT(20)
+      DIMENSION PAR(100),PARM(100),ATT(20)
       SAVE ATT
       DATA ATT /1.,1.,1.,1.,1.,15*0./
 C.