/Users/fujiik/rpm/BUILD/cernlib-2006/2006/tmp diff -uNr src.ORIG/geant321/examples/erexam1/main.F src/geant321/examples/erexam1/main.F --- src.ORIG/geant321/examples/erexam1/main.F 1996-03-07 00:36:25 +++ src/geant321/examples/erexam1/main.F 2024-12-16 08:09:33 @@ -16,7 +16,11 @@ #include "geant321/gctime.inc" #include "geant321/gcunit.inc" +#if 0 PARAMETER (IGSPAC=100000 ,IHSPAC=10000) +#else + PARAMETER (IGSPAC=100000 ,IHSPAC=33000000) +#endif COMMON/GCBANK/Q(IGSPAC) COMMON/PAWC /H(IHSPAC) * diff -uNr src.ORIG/geant321/examples/erexam2/main.F src/geant321/examples/erexam2/main.F --- src.ORIG/geant321/examples/erexam2/main.F 1996-03-07 00:36:26 +++ src/geant321/examples/erexam2/main.F 2024-12-16 08:10:56 @@ -17,7 +17,11 @@ * V.Innocente, PPE Division, CERN * * +#if 0 PARAMETER (NG=100000,NH=100000) +#else + PARAMETER (NG=100000,NH=33000000) +#endif COMMON/PAWC /H(NH) COMMON/GCBANK/Q(NG) * diff -uNr src.ORIG/geant321/examples/gexam1/main.F src/geant321/examples/gexam1/main.F --- src.ORIG/geant321/examples/gexam1/main.F 1995-10-24 19:22:09 +++ src/geant321/examples/gexam1/main.F 2024-12-16 08:17:47 @@ -21,7 +21,11 @@ C. C. Authors R.Brun, M.Maire ********* C. +#if 0 COMMON/PAWC/H(10000) +#else + COMMON/PAWC/H(33000000) +#endif COMMON/GCBANK/Q(50000) * CALL TIMEST(1E5) diff -uNr src.ORIG/geant321/examples/gexam2/main.F src/geant321/examples/gexam2/main.F --- src.ORIG/geant321/examples/gexam2/main.F 1995-10-24 19:22:11 +++ src/geant321/examples/gexam2/main.F 2024-12-16 08:20:51 @@ -19,7 +19,11 @@ * * ************************************************************************ * +#if 0 COMMON/PAWC/H(10000) +#else + COMMON/PAWC/H(33000000) +#endif COMMON/GCBANK/Q(80000) * * ------------------------------------------------------------------ diff -uNr src.ORIG/geant321/examples/gexam3/main.F src/geant321/examples/gexam3/main.F --- src.ORIG/geant321/examples/gexam3/main.F 1995-10-24 19:22:12 +++ src/geant321/examples/gexam3/main.F 2024-12-16 08:53:43 @@ -29,13 +29,23 @@ C. SWIT(6)=1 ==> TURN OFF TRACKING OF SECONDARIES C. C. - COMMON/PAWC/H(10000) - COMMON /GCBANK/ Q(150000) +#if 0 + PARAMETER (IGSPAC=150000 ,IHSPAC=10000) +#else + PARAMETER (IGSPAC=250000 ,IHSPAC=32000000) +#endif + COMMON/GCBANK/Q(IGSPAC) + COMMON/PAWC /H(IHSPAC) * CALL TIMEST(1E5) * +#if 0 CALL GZEBRA(150000) CALL HLIMIT(-10000) +#else + CALL GZEBRA( IGSPAC) + CALL HLIMIT(-IHSPAC) +#endif * CALL HPLINT(0) * diff -uNr src.ORIG/geant321/examples/gexam4/main.F src/geant321/examples/gexam4/main.F --- src.ORIG/geant321/examples/gexam4/main.F 1995-10-24 19:22:14 +++ src/geant321/examples/gexam4/main.F 2024-12-16 08:59:15 @@ -24,7 +24,11 @@ ************************************************************************ * #if defined(CERNLIB_NTUPLE) - PARAMETER (NMEMOR=100000) +#if 0 + PARAMETER (NMEMOR=10000) +#else + PARAMETER (NMEMOR=33000000) +#endif #endif #if !defined(CERNLIB_NTUPLE) PARAMETER (NMEMOR=10000) diff -uNr src.ORIG/geant321/examples/gexam5/main.F src/geant321/examples/gexam5/main.F --- src.ORIG/geant321/examples/gexam5/main.F 1995-10-24 19:22:17 +++ src/geant321/examples/gexam5/main.F 2024-12-16 08:14:24 @@ -24,7 +24,11 @@ * * ************************************************************************ * +#if 0 COMMON/PAWC/H(10000) +#else + COMMON/PAWC/H(33000000) +#endif COMMON/GCBANK/Q(80000) * * ------------------------------------------------------------------ diff -uNr src.ORIG/geant321/examples/gexam6/main.F src/geant321/examples/gexam6/main.F --- src.ORIG/geant321/examples/gexam6/main.F 1995-10-24 19:22:19 +++ src/geant321/examples/gexam6/main.F 2024-12-16 08:15:12 @@ -16,7 +16,11 @@ C. * C * Authors : Pal Ribaric (Budapest), Michel Maire (Annecy) C. +#if 0 PARAMETER (NZEBRA =50000, NHBOOK=10000) +#else + PARAMETER (NZEBRA =50000, NHBOOK=33000000) +#endif COMMON/GCBANK/Q(NZEBRA) COMMON/PAWC/H(NHBOOK) C. diff -uNr src.ORIG/geant321/examples/gexam7/main.F src/geant321/examples/gexam7/main.F --- src.ORIG/geant321/examples/gexam7/main.F 1995-10-24 19:22:20 +++ src/geant321/examples/gexam7/main.F 2024-12-16 08:15:47 @@ -14,7 +14,11 @@ C. * C. * Authors R.Brun, M.Maire, P.Ribaric ********* C. +#if 0 COMMON/PAWC/H(10000) +#else + COMMON/PAWC/H(33000000) +#endif COMMON/GCBANK/Q(50000) C. C. diff -uNr src.ORIG/geant321/examples/gexam8/main.F src/geant321/examples/gexam8/main.F --- src.ORIG/geant321/examples/gexam8/main.F 1995-10-24 19:22:22 +++ src/geant321/examples/gexam8/main.F 2024-12-16 08:16:28 @@ -20,7 +20,11 @@ C. * C. * Authors R.Brun, M.Maire ********* C. +#if 0 COMMON/PAWC/H(10000) +#else + COMMON/PAWC/H(33000000) +#endif COMMON/GCBANK/Q(50000) C. C. diff -uNr src.ORIG/geant321/examples/gexam9/main.F src/geant321/examples/gexam9/main.F --- src.ORIG/geant321/examples/gexam9/main.F 1995-10-24 19:22:23 +++ src/geant321/examples/gexam9/main.F 2024-12-16 08:18:09 @@ -17,7 +17,11 @@ * * Author: H. S. Chen * +#if 0 COMMON/PAWC/H(90000) +#else + COMMON/PAWC/H(33000000) +#endif COMMON/GCBANK/Q(280000) * CALL GZEBRA(280000) diff -uNr src.ORIG/geant321/gxint/gxint.F src/geant321/gxint/gxint.F --- src.ORIG/geant321/gxint/gxint.F 1997-01-07 19:25:42 +++ src/geant321/gxint/gxint.F 2024-12-16 07:50:38 @@ -20,7 +20,7 @@ * graphics version. * #if !defined(CERNLIB_IBM) - PARAMETER (NWGEAN=3000000,NWPAW=1000000) + PARAMETER (NWGEAN=3000000,NWPAW=33000000) #endif #if defined(CERNLIB_IBM) PARAMETER (NWGEAN=1000000,NWPAW=500000)