100 parameters now allowed for geant shapes

diff --git a/GEANT321/gdraw/gdcgob.F b/GEANT321/gdraw/gdcgob.F
index 003d25ce30b090040aef019bc2a4a3249d13b9ef..87366582aa2427c8da0dd33e68480c09cae7f3eb 100644 (file)
--- a/GEANT321/gdraw/gdcgob.F
+++ b/GEANT321/gdraw/gdcgob.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:03  fca
+* AliRoot sources
+*
 * Revision 1.2  1996/02/27 10:02:05  ravndal
 * Drawing of PCON's optimized for 'HIDE ON'
 *
@@ -76,7 +79,7 @@ C.
 #include "geant321/gconsp.inc"
       SAVE NWPROD
       COMMON /QUEST/IQUEST(100)
-      DIMENSION PAR(50),P(3,8)
+      DIMENSION PAR(100),P(3,8)
 *SG
       DIMENSION RRMIN(3),RRMAX(3)
       DIMENSION SLI1(4),SLI2(4),SPI1(4),SPI2(4)

diff --git a/GEANT321/gdraw/gdprtr.F b/GEANT321/gdraw/gdprtr.F
index 4b49f10cb51a7b6c15e322a9e0dffe9f2110ec10..fb216474f0614182bad2e9314e8650bda1047047 100644 (file)
--- a/GEANT321/gdraw/gdprtr.F
+++ b/GEANT321/gdraw/gdprtr.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:03  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1995/10/24 10:20:23  cernlib
 * Geant
 *
@@ -37,7 +40,7 @@ C.
 #include "geant321/gcdraw.inc"
       DIMENSION X(5),Y(5)
       DIMENSION NAMT0(16),NAM0(4)
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
       DIMENSION NNDM(14),INDM(4,14)
       DIMENSION ATT(10)
       CHARACTER*4 NAME,NAMSEE,ISON

diff --git a/GEANT321/gdraw/gdraws.F b/GEANT321/gdraw/gdraws.F
index 0cb6bc8ff18d6f0ebdf7b0b2e5d838924b368154..d960101f968ead3b6288b40bdc251398b7201e57 100644 (file)
--- a/GEANT321/gdraw/gdraws.F
+++ b/GEANT321/gdraw/gdraws.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:03  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1995/10/24 10:20:24  cernlib
 * Geant
 *
@@ -59,7 +62,7 @@ C.
       DIMENSION CPHIS(NLPC+1),SPHIS(NLPC+1)
 *
       DIMENSION X(3,46), U(46), V(46)
-      DIMENSION PAR(50),P(3,8),PP(3,8)
+      DIMENSION PAR(100),P(3,8),PP(3,8)
 C.
 C.    ------------------------------------------------------------------
 C.

diff --git a/GEANT321/gdraw/gdrwsc.F b/GEANT321/gdraw/gdrwsc.F
index c8be0f88cdd1be7f58993d4cdacdee49cf6931b1..bdfc78fd58f0d8f632b8b6f24de4065ae55aca36 100644 (file)
--- a/GEANT321/gdraw/gdrwsc.F
+++ b/GEANT321/gdraw/gdrwsc.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:03  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1995/10/24 10:20:27  cernlib
 * Geant
 *
@@ -33,7 +36,7 @@ C.
 *            is the number of line elements to form a complete
 *            circle in the surface definitions for a cut tube.
 *
-      DIMENSION PAR(50),P(3,8)
+      DIMENSION PAR(100),P(3,8)
       DIMENSION XMAX1(2,42),XMIN1(2,42),XMAX2(2,42),XMIN2(2,42)
 C.
 C.    ------------------------------------------------------------------

diff --git a/GEANT321/gdraw/gdspec.F b/GEANT321/gdraw/gdspec.F
index d56c67f8d5ebe426bbf9b7958d41bfc862bbaeee..5b9fb1cc8ee70bc23e4bff1127512310848a4bd7 100644 (file)
--- a/GEANT321/gdraw/gdspec.F
+++ b/GEANT321/gdraw/gdspec.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:03  fca
+* AliRoot sources
+*
 * Revision 1.3  1996/10/01 14:12:05  ravndal
 * right units for SPHE specs.
 *
@@ -36,7 +39,7 @@ C.
       CHARACTER*4 IBOX(5),ITRD1(5),ITUBE(5),ITUBS(5)
       CHARACTER*4 ITRD2(6),ICON(5),ICONS(7),ISPH(6),ITRAP(11),IPARA(6),
      +IPGON(7),IPCON(6),IGTRA(12),IHYPE(4),IELTU(3)
-      DIMENSION PAR(50),IPAR(12),IPA(3),ISPAR(3)
+      DIMENSION PAR(100),IPAR(12),IPA(3),ISPAR(3)
       DIMENSION U0(3),V0(3),THE(3),PHI(3),ISHT(2)
       DIMENSION U01(3),V01(3)
       DIMENSION NNDM(100),INDM(5,100),ATT(10)

diff --git a/GEANT321/gdraw/gspe3d.F b/GEANT321/gdraw/gspe3d.F
index 32aacf1c302d742cce6c82db2a696d82e171b0e9..66e177076a238487a65a4566b7ac13d1c6bebf3f 100644 (file)
--- a/GEANT321/gdraw/gspe3d.F
+++ b/GEANT321/gdraw/gspe3d.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:04  fca
+* AliRoot sources
+*
 * Revision 1.1.1.1  1995/10/24 10:20:30  cernlib
 * Geant
 *
@@ -28,7 +31,7 @@ C.
       COMMON/SP3D/ISPFLA
 *
       CHARACTER*4 NAME,NAMSEE,ISON
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
       DIMENSION U0(3),V0(3),THE(3),PHI(3)
       DIMENSION U01(3),V01(3)
       DIMENSION NNDM(100),INDM(5,100),ATT(10)

diff --git a/GEANT321/geocad/gboset.F b/GEANT321/geocad/gboset.F
index 24c4a9691761e91ac4a450be21dfe27079b423ec..e7d7067b31d242fdb1b38edccbea708d1059731e 100644 (file)
--- a/GEANT321/geocad/gboset.F
+++ b/GEANT321/geocad/gboset.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:46  cernlib
 * Geant
 *
@@ -22,7 +25,7 @@ C
  
 C
       REAL      PAR
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
 C
       REAL X,Y,Z,DX,DY,DZ
 C

diff --git a/GEANT321/geocad/gckpar.F b/GEANT321/geocad/gckpar.F
index d2dc29ce9b21dc192cfc8e20e0079dae714d8838..ba88747a2763507d40cdf5263312f70d0a711dde 100644 (file)
--- a/GEANT321/geocad/gckpar.F
+++ b/GEANT321/geocad/gckpar.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:47  cernlib
 * Geant
 *
@@ -13,7 +16,7 @@
 *
 #include "geant321/gconsp.inc"
 *
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
 *
       IF (ISH.EQ.4) THEN
 * ***    trap

diff --git a/GEANT321/geocad/gcoset.F b/GEANT321/geocad/gcoset.F
index 08474b215f1599c10dfe57a9a31b13d72f7c5448..cbf3bd0698fc32adae4b27f40f6602e1e378d222 100644 (file)
--- a/GEANT321/geocad/gcoset.F
+++ b/GEANT321/geocad/gcoset.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:46  cernlib
 * Geant
 *
@@ -21,7 +24,7 @@ C----------------------------------------------------------C
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
       REAL P1X,P1Y,P1Z,P2X,P2Y,P2Z,P3X,P3Y,P3Z,P4X,P4Y,P4Z
 C
 C---------------------------------------------------------

diff --git a/GEANT321/geocad/gctset.F b/GEANT321/geocad/gctset.F
index a1f6176c33a537a1bb9d1117ec391a761c892e69..f2f70e50d259a7d8df08b1fa4616c56f62fbb932 100644 (file)
--- a/GEANT321/geocad/gctset.F
+++ b/GEANT321/geocad/gctset.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:46  cernlib
 * Geant
 *
@@ -24,7 +27,7 @@ C
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
 C
       REAL  Z,DX,DY,DZ,RMIN,RMAX,PHIMIN,PHIMAX
       REAL  LXL,LYL,LZL,LXH,LYH,LZH

diff --git a/GEANT321/geocad/gelset.F b/GEANT321/geocad/gelset.F
index 1ac876bcab878636820f69c0c744a10ee1178d65..d7f1b589852841fc728fef5ad7d4b1d4ce89deb0 100644 (file)
--- a/GEANT321/geocad/gelset.F
+++ b/GEANT321/geocad/gelset.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:46  cernlib
 * Geant
 *
@@ -20,7 +23,7 @@ C-
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
       REAL DX1,DY,Z,DZ,A,B
 C
 C------------------------------------------------------

diff --git a/GEANT321/geocad/getshp.F b/GEANT321/geocad/getshp.F
index 25760cc82388e33499a8286d23b7940eacca6473..19abc979259a443ef0c25c8a1d3c89fe489ff855 100644 (file)
--- a/GEANT321/geocad/getshp.F
+++ b/GEANT321/geocad/getshp.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:46  cernlib
 * Geant
 *
@@ -50,7 +53,7 @@ C. -------------------------------------------------------
 #include "geant321/gcsetf.inc"
  
  
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
 C
 C----------------------------------------------------------
 C     IF SHAPE THEN LOOP FOR SET OUTPUT

diff --git a/GEANT321/geocad/gpaset.F b/GEANT321/geocad/gpaset.F
index b63b1916ba8ec81b69654ebd5a1ca8be13d58def..dd36a8efadf87120465f237226156b8f872b59c6 100644 (file)
--- a/GEANT321/geocad/gpaset.F
+++ b/GEANT321/geocad/gpaset.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:46  cernlib
 * Geant
 *
@@ -23,7 +26,7 @@ C
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
       REAL P1X,P1Y,P1Z,P2X,P2Y,P2Z,P3X,P3Y,P3Z,P4X,P4Y,P4Z
       REAL P5X,P5Y,P5Z,P6X,P6Y,P6Z,P7X,P7Y,P7Z,P8X,P8Y,P8Z
  

diff --git a/GEANT321/geocad/gpcset.F b/GEANT321/geocad/gpcset.F
index 02bf901d6784cd9853ee53322fd3214a9fc6ad70..40fe258aceb8323a25c206a7b0efa89dc5d69341 100644 (file)
--- a/GEANT321/geocad/gpcset.F
+++ b/GEANT321/geocad/gpcset.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:46  cernlib
 * Geant
 *
@@ -19,7 +22,7 @@ C---------------------------------------------------------
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
       REAL PHIMIN,PHIMAX,PX,PY,PZ,RMIN,RMAX
 C-
 C-   Describes a contour face of a PCON shape calculated from the GEANT

diff --git a/GEANT321/geocad/gpgset.F b/GEANT321/geocad/gpgset.F
index ad774219682d81c3501ea4e2ee35a7bfd8c0e741..452c9798be12d74e81ee1f687c8f592669a62f91 100644 (file)
--- a/GEANT321/geocad/gpgset.F
+++ b/GEANT321/geocad/gpgset.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:46  cernlib
 * Geant
 *
@@ -26,7 +29,7 @@ C
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
       REAL PX,PY,PZ,PHIC,PHI1,RMIN,RMAX
       REAL R1,R2,R3,R4,R5,R6,R7,R8,R9
 C

diff --git a/GEANT321/geocad/greucl.F b/GEANT321/geocad/greucl.F
index 5dc55626d1166f9e343a9c9b9c4b3398c2faf1fd..b790c6619e74e41dbe65f01bd915b1f18526a2c8 100644 (file)
--- a/GEANT321/geocad/greucl.F
+++ b/GEANT321/geocad/greucl.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:47  cernlib
 * Geant
 *
@@ -26,7 +29,7 @@
       CHARACTER    KEY*4, CARD*76
       CHARACTER*20 NATMED, NAMATE
       CHARACTER*4  NAME, MOTHER, SHAPE, KONLY
-      REAL PAR(50)
+      REAL PAR(100)
 *
 #include "geant321/gcnum.inc"
 #include "geant321/gcunit.inc"

diff --git a/GEANT321/geocad/gspset.F b/GEANT321/geocad/gspset.F
index 171d724bd77f836746bd46e5748ff12b73ae4299..aa68c60e1c9536612f67d4b3b53ae1d6259b24f9 100644 (file)
--- a/GEANT321/geocad/gspset.F
+++ b/GEANT321/geocad/gspset.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:47  cernlib
 * Geant
 *
@@ -21,7 +24,7 @@ C----------------------------------------------------------------------
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
 C
       REAL RMIN, RMAX
 C

diff --git a/GEANT321/geocad/gtrase.F b/GEANT321/geocad/gtrase.F
index e2d59a218b97abbfeff28bcfd266716c001ca88f..0ad6c1c1808183a73c8db0d7d1eb8b90a52384c2 100644 (file)
--- a/GEANT321/geocad/gtrase.F
+++ b/GEANT321/geocad/gtrase.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:47  cernlib
 * Geant
 *
@@ -23,7 +26,7 @@ C
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
 C
       REAL P1X,P1Y,P1Z,P2X,P2Y,P2Z,P3X,P3Y,P3Z,P4X,P4Y,P4Z
       REAL P5X,P5Y,P5Z,P6X,P6Y,P6Z,P7X,P7Y,P7Z,P8X,P8Y,P8Z

diff --git a/GEANT321/geocad/gtrdse.F b/GEANT321/geocad/gtrdse.F
index a7fc2b5ed2aa505c37441f5c850edf60497b56cc..77f89418f97f5d198ce30392d8465e3bc3b61fc0 100644 (file)
--- a/GEANT321/geocad/gtrdse.F
+++ b/GEANT321/geocad/gtrdse.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:47  cernlib
 * Geant
 *
@@ -21,7 +24,7 @@ C
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
       REAL P1X,P1Y,P1Z,P2X,P2Y,P2Z,P3X,P3Y,P3Z,P4X,P4Y,P4Z
       REAL P5X,P5Y,P5Z,P6X,P6Y,P6Z,P7X,P7Y,P7Z,P8X,P8Y,P8Z
 C

diff --git a/GEANT321/geocad/gtrset.F b/GEANT321/geocad/gtrset.F
index a810be95d2fee921f7d99b09c56d1192b6920ff7..68376390fe926f18f52a6140525cf440cf863346 100644 (file)
--- a/GEANT321/geocad/gtrset.F
+++ b/GEANT321/geocad/gtrset.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:47  cernlib
 * Geant
 *
@@ -23,7 +26,7 @@ C
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
       REAL P1X,P1Y,P1Z,P2X,P2Y,P2Z,P3X,P3Y,P3Z,P4X,P4Y,P4Z
       REAL P5X,P5Y,P5Z,P6X,P6Y,P6Z,P7X,P7Y,P7Z,P8X,P8Y,P8Z
 C

diff --git a/GEANT321/geocad/gtuset.F b/GEANT321/geocad/gtuset.F
index 8cbf54c50ccfb1f8e7818ad7390047c66bb7bd23..b051cd8c8de428d80f6cb7ea0534b4fc6dff6b57 100644 (file)
--- a/GEANT321/geocad/gtuset.F
+++ b/GEANT321/geocad/gtuset.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:47  cernlib
 * Geant
 *
@@ -25,7 +28,7 @@ C
 #include "geant321/gcsetf.inc"
  
 C
-      DIMENSION PAR(50)
+      DIMENSION PAR(100)
       REAL DX1,DZ,RMIN,RMAX,PHIMIN,PHIMAX,Z2
 C
 C----------------------------------------------------------------------

diff --git a/GEANT321/geocad/gweucl.F b/GEANT321/geocad/gweucl.F
index f46d52683b24e37eee6b6616538a018ba5b3d0af..bb621efff99cf09c30ae6c448df943e0915b4773 100644 (file)
--- a/GEANT321/geocad/gweucl.F
+++ b/GEANT321/geocad/gweucl.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:47  cernlib
 * Geant
 *
@@ -38,7 +41,7 @@
       CHARACTER*20 NATMED, NAMATE
       CHARACTER*4  NAME, MOTHER, SHAPE(16), KONLY
 *
-      DIMENSION PAR(50), ATT(20)
+      DIMENSION PAR(100), ATT(20)
 *
       DATA SHAPE/'BOX ','TRD1','TRD2','TRAP','TUBE','TUBS','CONE',
      +           'CONS','SPHE','PARA','PGON','PCON','ELTU','HYPE',

diff --git a/GEANT321/ggeom/gcent.F b/GEANT321/ggeom/gcent.F
index ce0c6c5ef80146d6f0c643c934832c5ab8f3e55f..10d532574f2f10770603af25e3926fe68456bbeb 100644 (file)
--- a/GEANT321/ggeom/gcent.F
+++ b/GEANT321/ggeom/gcent.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:48  cernlib
 * Geant
 *
@@ -28,7 +31,7 @@ C.
 #include "geant321/gcbank.inc"
 #include "geant321/gcvolu.inc"
 #include "geant321/gcunit.inc"
-      DIMENSION X0(3),PAR(50),ATT(20)
+      DIMENSION X0(3),PAR(100),ATT(20)
 C.
 C.    ------------------------------------------------------------------
 C.

diff --git a/GEANT321/ggeom/gfclim.F b/GEANT321/ggeom/gfclim.F
index e193fbc607e9da2fda30f94c6ba734e1ab2cd974..47123f8f8df9f5ac26761f8a8db8c95e6585a05b 100644 (file)
--- a/GEANT321/ggeom/gfclim.F
+++ b/GEANT321/ggeom/gfclim.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:48  cernlib
 * Geant
 *
@@ -24,7 +27,7 @@ C.    *                                                        *
 C.    **********************************************************
 C.
 #include "geant321/gcbank.inc"
-      DIMENSION PAR(50),ATT(20)
+      DIMENSION PAR(100),ATT(20)
 C.
 C.         -----------------------------------------
 C.

diff --git a/GEANT321/ggeom/gfvolu.F b/GEANT321/ggeom/gfvolu.F
index 16f28146c1818a66bda4ac8d1b549ee1cd7dd41f..a61b27e6378cd29bbe067f2530ae91e66ce5c895 100644 (file)
--- a/GEANT321/ggeom/gfvolu.F
+++ b/GEANT321/ggeom/gfvolu.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:49  cernlib
 * Geant
 *
@@ -25,7 +28,7 @@ C.
 #include "geant321/gcunit.inc"
 #include "geant321/gcnum.inc"
       CHARACTER*4 ISHAP(30),NAME,NAMS
-*     DIMENSION PAR(50),ATT(20)
+*     DIMENSION PAR(100),ATT(20)
       SAVE ISHAP
       DATA ISHAP/'BOX ','TRD1','TRD2','TRAP','TUBE','TUBS','CONE',
      +           'CONS','SPHE','PARA','PGON','PCON','ELTU','HYPE',

diff --git a/GEANT321/ggeom/ggperp.F b/GEANT321/ggeom/ggperp.F
index 8a9b43703c309eef94df7c7256309f9a6cfc3f09..4acdb9542b441cbe5ff3b34f79cee1900800bbf3 100644 (file)
--- a/GEANT321/ggeom/ggperp.F
+++ b/GEANT321/ggeom/ggperp.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:50  cernlib
 * Geant
 *
@@ -38,7 +41,7 @@ C.    ****************************************************************
 #include "geant321/gcshno.inc"
 #include "geant321/gctmed.inc"
 #include "geant321/gcunit.inc"
-      DIMENSION X(3),U(3),XL(3),UL(3),DXL(3),PAR(50),SPAR(50),ATT(20)
+      DIMENSION X(3),U(3),XL(3),UL(3),DXL(3),PAR(100),SPAR(100),ATT(20)
       DIMENSION PERP(10)
 #if !defined(CERNLIB_SINGLE)
       DOUBLE PRECISION PERP,PMIN0

diff --git a/GEANT321/ggeom/gnpgon.F b/GEANT321/ggeom/gnpgon.F
index f707b023e6a0b4132ac12f8f3c10e4c326a38cc2..c45ca9e61174668abd28b54f40d50720c1ff6deb 100644 (file)
--- a/GEANT321/ggeom/gnpgon.F
+++ b/GEANT321/ggeom/gnpgon.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.2  2001/02/24 10:46:32  fca
+* Moving to double precision and introducing an additional security check
+*
 * Revision 1.1.1.1  1999/05/18 15:55:17  fca
 * AliRoot sources
 *
@@ -37,8 +40,8 @@ C.
       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
 #include "geant321/gconsp.inc"
  
-      REAL X(6), PAR(50), SNEXT, SNXT, SAFE
-      DIMENSION TPAR(50)
+      REAL X(6), PAR(100), SNEXT, SNXT, SAFE
+      DIMENSION TPAR(100)
  
 C-----------------------------------------------------------------
  

diff --git a/GEANT321/ggeom/gpvolu.F b/GEANT321/ggeom/gpvolu.F
index 8f7342f76cf94a18bf63274ba12a13970f5df68c..729760b6a0a7fc1aad826e2c41b96f06f16526b6 100644 (file)
--- a/GEANT321/ggeom/gpvolu.F
+++ b/GEANT321/ggeom/gpvolu.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:54  cernlib
 * Geant
 *
@@ -26,7 +29,7 @@ C.
 #include "geant321/gcnum.inc"
       COMMON/FMOTH/INGLOB,IVOMGL
       CHARACTER*4 ISHAP(30),NAME,MOTHER
-      DIMENSION PAR(50),ATT(20)
+      DIMENSION PAR(100),ATT(20)
       SAVE ISHAP
       DATA ISHAP/'BOX ','TRD1','TRD2','TRAP','TUBE','TUBS','CONE',
      +           'CONS','SPHE','PARA','PGON','PCON','ELTU','HYPE',

diff --git a/GEANT321/ggeom/gpvolx.F b/GEANT321/ggeom/gpvolx.F
index 84f629a57941017472332e61b3f90f85ab3309a4..2eff025799a079f3dedb90317980d6571eb088ec 100644 (file)
--- a/GEANT321/ggeom/gpvolx.F
+++ b/GEANT321/ggeom/gpvolx.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:54  cernlib
 * Geant
 *
@@ -27,7 +30,7 @@ C.
       COMMON/FMOTH/INGLOB,IVOMGL
       CHARACTER*32 CHLINE,CHSTRI(50)
       CHARACTER*4 ISHAP(30),NAME,MOTHER
-      DIMENSION PAR(50),ATT(20)
+      DIMENSION PAR(100),ATT(20)
       SAVE ISHAP
       DATA ISHAP/'BOX ','TRD1','TRD2','TRAP','TUBE','TUBS','CONE',
      +           'CONS','SPHE','PARA','PGON','PCON','ELTU','HYPE',

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.

diff --git a/GEANT321/ggeom/gsdvn2.F b/GEANT321/ggeom/gsdvn2.F
index ace8586f34992bf99b7a40aaaa9e4cc860ff7f28..d2cdab8d0f99d330eabafab6a01f5a2f8970bccf 100644 (file)
--- a/GEANT321/ggeom/gsdvn2.F
+++ b/GEANT321/ggeom/gsdvn2.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
 *
@@ -38,7 +41,7 @@ C.
 #include "geant321/gcdraw.inc"
 #include "geant321/gcshno.inc"
       CHARACTER*4 KNAME,MOTHER
-      DIMENSION PAR(50),ATT(20)
+      DIMENSION PAR(100),ATT(20)
       SAVE ATT
       DATA ATT /1.,1.,1.,1.,1.,15*0./
 C.

diff --git a/GEANT321/ggeom/gsdvt.F b/GEANT321/ggeom/gsdvt.F
index 12d3e07bc634ef7fff2f85c13d85281f382f7c69..2ccf97d0c5957cba04a0f12b88dd48e6bfaadcb3 100644 (file)
--- a/GEANT321/ggeom/gsdvt.F
+++ b/GEANT321/ggeom/gsdvt.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
 *
@@ -42,7 +45,7 @@ C.
 #include "geant321/gcdraw.inc"
 #include "geant321/gcshno.inc"
       CHARACTER*4 KNAME,MOTHER
-      DIMENSION PAR(50),ATT(20)
+      DIMENSION PAR(100),ATT(20)
       SAVE ATT
       DATA ATT/1.,1.,1.,1.,1.,15*0./
 C.

diff --git a/GEANT321/ggeom/gsdvt2.F b/GEANT321/ggeom/gsdvt2.F
index dcbde6a6dd6a6156ac28db8cbdf5985f96606a50..416f6e28aa5ff1991671c7c108a3427bf9e95bd0 100644 (file)
--- a/GEANT321/ggeom/gsdvt2.F
+++ b/GEANT321/ggeom/gsdvt2.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:56  cernlib
 * Geant
 *
@@ -42,7 +45,7 @@ C.
 #include "geant321/gcdraw.inc"
 #include "geant321/gcshno.inc"
       CHARACTER*4 KNAME,MOTHER
-      DIMENSION PAR(50),ATT(20)
+      DIMENSION PAR(100),ATT(20)
       SAVE ATT
       DATA ATT /1.,1.,1.,1.,1.,15*0./
 C.

diff --git a/GEANT321/ggeom/gsipar.F b/GEANT321/ggeom/gsipar.F
index e3b0e80cc48d7d29063c3fbbf85f5d120aed71cf..6b8dfcb3b27a2bb609e252e93463888060edd83c 100644 (file)
--- a/GEANT321/ggeom/gsipar.F
+++ b/GEANT321/ggeom/gsipar.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:56  cernlib
 * Geant
 *
@@ -22,11 +25,11 @@ C.    ******************************************************************
 C.
 #include "geant321/gcbank.inc"
 #include "geant321/gcunit.inc"
-      DIMENSION PAR(50),ATT(20)
+      DIMENSION PAR(100),ATT(20)
 C.
 C.              --------------------------------------------
 C.
-      IF(NPAR.LT.0.OR.NPAR.GT.50) GO TO 900
+      IF(NPAR.LT.0.OR.NPAR.GT.100) GO TO 900
       IF(NATT.LE.0.OR.NATT.GT.20) GO TO 900
 C
       IF(JVO.LE.0) GO TO 910

diff --git a/GEANT321/ggeom/gsposp.F b/GEANT321/ggeom/gsposp.F
index 28e45bac43190e3439c59572fc7eb4845e1f0262..e7e2644b9e30b1931f93c1bf3fafea3834ff3a4a 100644 (file)
--- a/GEANT321/ggeom/gsposp.F
+++ b/GEANT321/ggeom/gsposp.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:56  cernlib
 * Geant
 *
@@ -42,7 +45,7 @@ C.
 #include "geant321/gcnum.inc"
 #include "geant321/gconsp.inc"
       CHARACTER*4 NAME,MOTHER,KONLY
-      DIMENSION UPAR(*),PAR(50)
+      DIMENSION UPAR(*),PAR(100)
 C.
 C.    ------------------------------------------------------------------
 C.

diff --git a/GEANT321/ggeom/gsvolu.F b/GEANT321/ggeom/gsvolu.F
index 6ba2525cea79cdd2f6e6f7cadad24dd5ec950f44..200c31c5030d57cca4c3a836b1f01139371e0e06 100644 (file)
--- a/GEANT321/ggeom/gsvolu.F
+++ b/GEANT321/ggeom/gsvolu.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:56  cernlib
 * Geant
 *
@@ -37,7 +40,7 @@ C.
 #include "geant321/gcdraw.inc"
 #include "geant321/gcunit.inc"
       CHARACTER*4 KNAME,JSHAPE
-      DIMENSION UPAR(50),PAR(50),ATT(20)
+      DIMENSION UPAR(100),PAR(100),ATT(20)
       SAVE ATT,NATT
       DATA ATT/1.,1.,1.,1.,1.,15*0./
       DATA NATT/10/

diff --git a/GEANT321/ggeom/gvdcar.F b/GEANT321/ggeom/gvdcar.F
index d44cbcf983ab4bdce8356694a2d7ea5f2e45b095..a0e6a34c6d6f26f66f209a83ee072542000ca8ef 100644 (file)
--- a/GEANT321/ggeom/gvdcar.F
+++ b/GEANT321/ggeom/gvdcar.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:56  cernlib
 * Geant
 *
@@ -28,7 +31,7 @@ C.
 #include "geant321/gcbank.inc"
 #include "geant321/gconsp.inc"
 #include "geant321/gcshno.inc"
-      DIMENSION PARS(50),X(3),XT(3)
+      DIMENSION PARS(100),X(3),XT(3)
 C.
 C.          ---------------------------------------------------
 C.

diff --git a/GEANT321/ggeom/gvdlim.F b/GEANT321/ggeom/gvdlim.F
index 45976ab8d1837f7724a244e3887c40f824f2e4c1..ffe4984f91318bf3c2926543b91fdbf7350b4307 100644 (file)
--- a/GEANT321/ggeom/gvdlim.F
+++ b/GEANT321/ggeom/gvdlim.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:57  cernlib
 * Geant
 *
@@ -24,7 +27,7 @@ C.    *                                                        *
 C.    **********************************************************
 C.
 #include "geant321/gcbank.inc"
-      DIMENSION PAR(50),ATT(20)
+      DIMENSION PAR(100),ATT(20)
 C.
 C.         -----------------------------------------
 C.

diff --git a/GEANT321/ggeom/gvdphi.F b/GEANT321/ggeom/gvdphi.F
index 38c64c0b5fbb708ff4569958484683e5bde3b082..e88f1bf69d8c0f63ca4c6f5883d10b3a78bec995 100644 (file)
--- a/GEANT321/ggeom/gvdphi.F
+++ b/GEANT321/ggeom/gvdphi.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:57  cernlib
 * Geant
 *
@@ -30,7 +33,7 @@ C.
 #include "geant321/gcbank.inc"
 #include "geant321/gconsp.inc"
 #include "geant321/gcshno.inc"
-      DIMENSION DX(3),PARS(50),X(3),XT(3)
+      DIMENSION DX(3),PARS(100),X(3),XT(3)
 C.
 C.          -------------------------------------------
 C.

diff --git a/GEANT321/ggeom/gvdrad.F b/GEANT321/ggeom/gvdrad.F
index eadac5ffe73fdc6794e87a8a73992f4fa9d4402a..8804c9d7af61f27757de5af0a9533efb9bc6011a 100644 (file)
--- a/GEANT321/ggeom/gvdrad.F
+++ b/GEANT321/ggeom/gvdrad.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:56  cernlib
 * Geant
 *
@@ -29,7 +32,7 @@ C.
 #include "geant321/gcbank.inc"
 #include "geant321/gconsp.inc"
 #include "geant321/gcshno.inc"
-      DIMENSION DX(3),PARS(50),X(3),XT(3)
+      DIMENSION DX(3),PARS(100),X(3),XT(3)
 C.
 C.           --------------------------------------------------
 C.

diff --git a/GEANT321/ggeom/gvdthe.F b/GEANT321/ggeom/gvdthe.F
index 10f3db23da248afeda9ead3411b0ba040fab5edc..a7ad40cb73516143bb7a92e640194bc8f68456f8 100644 (file)
--- a/GEANT321/ggeom/gvdthe.F
+++ b/GEANT321/ggeom/gvdthe.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:57  cernlib
 * Geant
 *
@@ -28,7 +31,7 @@ C.
 #include "geant321/gcbank.inc"
 #include "geant321/gconsp.inc"
 #include "geant321/gcshno.inc"
-      DIMENSION DX(3),PARS(50),X(3),XT(3),X1(3),X2(3),XT1(3),XT2(3)
+      DIMENSION DX(3),PARS(100),X(3),XT(3),X1(3),X2(3),XT1(3),XT2(3)
 C.
 C.          ----------------------------------------------
 C.

diff --git a/GEANT321/gxint/gxgeom.F b/GEANT321/gxint/gxgeom.F
index 42e7c9807c9835abf038fb068acdfda23fc2e57c..51d22b2a3291f1af31b5ae0732761e5a34c12ae4 100644 (file)
--- a/GEANT321/gxint/gxgeom.F
+++ b/GEANT321/gxint/gxgeom.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1.1.1  1999/05/18 15:55:21  fca
+* AliRoot sources
+*
 * Revision 1.2  1996/04/30 11:25:57  ravndal
 * Implicit Fortran data type convention overlooked
 *
@@ -36,7 +39,7 @@ C.
       CHARACTER*24 FNAME
       CHARACTER*4 ANAME
       CHARACTER*24 INST,SITE,DEPT,RESP
-      DIMENSION ARRAY(50),UBUF(1)
+      DIMENSION ARRAY(100),UBUF(1)
       DATA UBUF/1./
 C.
 C.    ------------------------------------------------------------------

diff --git a/STEER/AliModule.cxx b/STEER/AliModule.cxx
index d1032410cec32b7794101a6df0e63818194345eb..0aba0a506f3745d78b763220123603aa08605157 100644 (file)
--- a/STEER/AliModule.cxx
+++ b/STEER/AliModule.cxx
@@ -15,6 +15,9 @@
 
 /*
 $Log$
+Revision 1.14  2001/01/26 19:58:48  hristov
+Major upgrade of AliRoot code
+
 Revision 1.13  2000/11/30 07:12:49  alibrary
 Introducing new Rndm and QA classes
 
@@ -393,7 +396,7 @@ void AliModule::ReadEuclid(const char* filnam, char* topvol)
   char key[5], card[77], natmed[21];
   char name[5], mother[5], shape[5], konly[5], volst[7000][5];
   char *filtmp;
-  Float_t par[50];
+  Float_t par[100];
   Float_t teta1, phi1, teta2, phi2, teta3, phi3, orig, step;
   Float_t xo, yo, zo;
   const Int_t kMaxRot=5000;

diff --git a/TGeant3/TGeant3.cxx b/TGeant3/TGeant3.cxx
index 19d78a03f6ed9fa6b01a1b7546bc2c39b7109c61..7aa1b675df0764d1a93fe8d8972f10f677d2c765 100644 (file)
--- a/TGeant3/TGeant3.cxx
+++ b/TGeant3/TGeant3.cxx
@@ -15,10 +15,18 @@
 
 /*
 $Log$
+Revision 1.46  2000/12/21 17:35:05  morsch
+Last updates on the right version (1.44).
+(1.45) does not compile.
+
 Revision 1.45  2000/12/21 16:49:56  morsch
 Adding particles to the PDG database delegated to AliPDG.
 
 $Log$
+Revision 1.46  2000/12/21 17:35:05  morsch
+Last updates on the right version (1.44).
+(1.45) does not compile.
+
 Revision 1.44  2000/12/20 09:46:51  alibrary
 dlsym not supported on HP, reverting to gcomad
 
@@ -3862,7 +3870,7 @@ void TGeant3::WriteEuclid(const char* filnam, const char* topvol,
   Float_t zc, densc, radlc, abslc, c0, tmaxfd;
   Int_t nparc, numb;
   Int_t iomate[100], iotmed[100];
-  Float_t par[50], att[20], ubuf[50];
+  Float_t par[100], att[20], ubuf[50];
   Float_t *qws;
   Int_t   *iws;
   Int_t level, ndiv, iaxe;