[SCM] geant321: Particle detector description and simulation tool branch, debian, updated. 8b66aaf84b0af200ce2a80932d84c591f0b3d9e1
Lifeng Sun
lifongsun at gmail.com
Tue Mar 29 13:11:37 UTC 2011
The following commit has been merged in the debian branch:
commit cacfa227d98429e24bcfeb2e506a2fdd57a731bf
Author: Lifeng Sun <lifongsun at gmail.com>
Date: Thu Mar 17 14:33:12 2011 +0800
Add typo fixing patches.
diff --git a/debian/patches/00list b/debian/patches/00list
index b3e5d41..181a6aa 100644
--- a/debian/patches/00list
+++ b/debian/patches/00list
@@ -5,6 +5,10 @@
109-fix-broken-xsneut95.dat-link.dpatch
114-install-scripts-properly.dpatch
117-fix-optimizer-bug-in-gphot.dpatch
+121-fix-typo-lenght-length.dpatch
+122-fix-typo-explicitely-explicitly.dpatch
+123-fix-typo-preceeding-preceding.dpatch
+124-fix-typo-ADRESS-ADDRESS.dpatch
203-compile-geant-with-ertrak.dpatch
210-improve-cfortran-header-files.dpatch
213-fix-test-suite-build.dpatch
diff --git a/debian/patches/121-fix-typo-lenght-length.dpatch b/debian/patches/121-fix-typo-lenght-length.dpatch
new file mode 100755
index 0000000..a62a40c
--- /dev/null
+++ b/debian/patches/121-fix-typo-lenght-length.dpatch
@@ -0,0 +1,220 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 121-fix-typo-lenght-length.dpatch by Lifeng Sun <lifongsun at gmail.com>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: fix typo: lenght -> length.
+
+ at DPATCH@
+diff --git a/src/car/geant321.car b/src/car/geant321.car
+index 24d6c9d..a030a62 100644
+--- a/src/car/geant321.car
++++ b/src/car/geant321.car
+@@ -1243,7 +1243,7 @@ C
+ * for every main detector component specified in the SLIST command
+ * in the spherical R direction:
+ * Total number of radiation lengths up to entry in each R
+-* Total number of absorption lenghts
++* Total number of absorption lengths
+ * Detector identifier
+ * When the interactive command TRIGGER is entered, the number of
+ * Geantinos specified as parameter will be tracked. In case the
+@@ -2971,7 +2971,7 @@ C
+ *===> 26/08/92
+ *
+ * Correction in GKRZ and CDF for the command RZ/FILE.
+-* Record lenght fixed at 1024 in GRFILE cannot be
++* Record length fixed at 1024 in GRFILE cannot be
+ * Changed by the user. Thanks to H.Plothow. Introduced
+ * in the 3.15 correction cradle.
+ *
+diff --git a/src/geant321/cdf/g321x.c b/src/geant321/cdf/g321x.c
+index defbb84..c35fede 100644
+--- a/src/geant321/cdf/g321x.c
++++ b/src/geant321/cdf/g321x.c
+@@ -4591,12 +4591,12 @@ static KmParameter _GEANT_CONTROL_SMATE_DENS = { "DENS", 4, "Density",
+ static KmParReal _GEANT_CONTROL_SMATE_RADL_type = { (char*)0, (char*)0,
+ (char*)0, (char*)0, 0 };
+ static KmParameter _GEANT_CONTROL_SMATE_RADL = { "RADL", 4,
+- "Radiation lenght", (char*)0, (char*)0, 12, 0, (char**)0, 0, (char**)0,
++ "Radiation length", (char*)0, (char*)0, 12, 0, (char**)0, 0, (char**)0,
+ (KmParFlag)0, KmTYPE_REAL, &_GEANT_CONTROL_SMATE_RADL_type };
+ static KmParReal _GEANT_CONTROL_SMATE_ABSL_type = { (char*)0, (char*)0,
+ (char*)0, (char*)0, 0 };
+ static KmParameter _GEANT_CONTROL_SMATE_ABSL = { "ABSL", 4,
+- "Absorption lenght", (char*)0, (char*)0, 12, 0, (char**)0, 0, (char**)0,
++ "Absorption length", (char*)0, (char*)0, 12, 0, (char**)0, 0, (char**)0,
+ (KmParFlag)0, KmTYPE_REAL, &_GEANT_CONTROL_SMATE_ABSL_type };
+ static KmParReal _GEANT_CONTROL_SMATE_UBUF_type = { (char*)0, (char*)0,
+ (char*)0, (char*)0, 0 };
+@@ -5191,7 +5191,7 @@ static KmParameter _GEANT_FZ_FZOPEN_LUNTYP = { "LUNTYP", 6,
+ static KmParInt _GEANT_FZ_FZOPEN_LEN_type = { (char*)0, (char*)0, (char*)0,
+ (char*)0, 0 };
+ static KmParameter _GEANT_FZ_FZOPEN_LEN = { "LEN", 3,
+- "Recordlenght of the file", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0,
++ "Recordlength of the file", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0,
+ (KmParFlag)0, KmTYPE_INT, &_GEANT_FZ_FZOPEN_LEN_type };
+ static KmParOption _GEANT_FZ_FZOPEN_CHOPT_type = { (char**)0, (int*)0, (int*)0
+ };
+@@ -10901,12 +10901,12 @@ static KmParameter _GEANT_CONTROL_SMATE_DENS = { "DENS", 4, "Density",
+ static KmParReal _GEANT_CONTROL_SMATE_RADL_type = { (char*)0, (char*)0,
+ (char*)0, (char*)0, 0 };
+ static KmParameter _GEANT_CONTROL_SMATE_RADL = { "RADL", 4,
+- "Radiation lenght", (char*)0, (char*)0, 12, 0, (char**)0, 0, (char**)0,
++ "Radiation length", (char*)0, (char*)0, 12, 0, (char**)0, 0, (char**)0,
+ (KmParFlag)0, KmTYPE_REAL, &_GEANT_CONTROL_SMATE_RADL_type };
+ static KmParReal _GEANT_CONTROL_SMATE_ABSL_type = { (char*)0, (char*)0,
+ (char*)0, (char*)0, 0 };
+ static KmParameter _GEANT_CONTROL_SMATE_ABSL = { "ABSL", 4,
+- "Absorption lenght", (char*)0, (char*)0, 12, 0, (char**)0, 0, (char**)0,
++ "Absorption length", (char*)0, (char*)0, 12, 0, (char**)0, 0, (char**)0,
+ (KmParFlag)0, KmTYPE_REAL, &_GEANT_CONTROL_SMATE_ABSL_type };
+ static KmParReal _GEANT_CONTROL_SMATE_UBUF_type = { (char*)0, (char*)0,
+ (char*)0, (char*)0, 0 };
+@@ -11491,7 +11491,7 @@ static KmParameter _GEANT_FZ_FZOPEN_LUNTYP = { "LUNTYP", 6,
+ static KmParInt _GEANT_FZ_FZOPEN_LEN_type = { (char*)0, (char*)0, (char*)0,
+ (char*)0, 0 };
+ static KmParameter _GEANT_FZ_FZOPEN_LEN = { "LEN", 3,
+- "Recordlenght of the file", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0,
++ "Recordlength of the file", "0", (char*)0, 8, 0, (char**)0, 0, (char**)0,
+ (KmParFlag)0, KmTYPE_INT, &_GEANT_FZ_FZOPEN_LEN_type };
+ static KmParOption _GEANT_FZ_FZOPEN_CHOPT_type = { (char**)0, (int*)0, (int*)0
+ };
+diff --git a/src/geant321/cdf/g321x.cdf b/src/geant321/cdf/g321x.cdf
+index cbaab9b..ae722ff 100644
+--- a/src/geant321/cdf/g321x.cdf
++++ b/src/geant321/cdf/g321x.cdf
+@@ -1988,8 +1988,8 @@ NAMATE 'Material name' C
+ A 'Atomic weight' R
+ Z 'Atomic number' R
+ DENS 'Density' R
+-RADL 'Radiation lenght' R
+-ABSL 'Absorption lenght' R
++RADL 'Radiation length' R
++ABSL 'Absorption length' R
+ UBUF ' ' R
+ NWBUF ' ' I
+ >Guidance
+@@ -2247,7 +2247,7 @@ Equivalent to a call to:
+ LUN 'Fortran unit with which to open the file' I
+ FILE 'Name of the file to be opened' C
+ LUNTYP 'Type of FZ file to be opened by GOPEN' C D='XI'
+-LEN 'Recordlenght of the file' I D=0
++LEN 'Recordlength of the file' I D=0
+ +
+ CHOPT 'Optional parameter to specify the action' C D=' '
+ >Guidance
+diff --git a/src/geant321/doc/history/v_314.F b/src/geant321/doc/history/v_314.F
+index dda16ad..f551aea 100644
+--- a/src/geant321/doc/history/v_314.F
++++ b/src/geant321/doc/history/v_314.F
+@@ -672,7 +672,7 @@ C
+ * for every main detector component specified in the SLIST command
+ * in the spherical R direction:
+ * Total number of radiation lengths up to entry in each R
+-* Total number of absorption lenghts
++* Total number of absorption lengths
+ * Detector identifier
+ * When the interactive command TRIGGER is entered, the number of
+ * Geantinos specified as parameter will be tracked. In case the
+diff --git a/src/geant321/doc/history/v_316.F b/src/geant321/doc/history/v_316.F
+index 65688ba..7093150 100644
+--- a/src/geant321/doc/history/v_316.F
++++ b/src/geant321/doc/history/v_316.F
+@@ -493,7 +493,7 @@
+ *===> 26/08/92
+ *
+ * Correction in GKRZ and CDF for the command RZ/FILE.
+-* Record lenght fixed at 1024 in GRFILE cannot be
++* Record length fixed at 1024 in GRFILE cannot be
+ * Changed by the user. Thanks to H.Plothow. Introduced
+ * in the 3.15 correction cradle.
+ *
+diff --git a/src/geant321/examples/gexam1/uhinit.F b/src/geant321/examples/gexam1/uhinit.F
+index 9a71d70..0e9dbbf 100644
+--- a/src/geant321/examples/gexam1/uhinit.F
++++ b/src/geant321/examples/gexam1/uhinit.F
+@@ -51,11 +51,11 @@ C
+ C
+ C *** Histograms for detailed studies
+ C
+- CALL HBOOK1(21,'TOTAL GAMMA LENGHT IN RL$'
++ CALL HBOOK1(21,'TOTAL GAMMA LENGTH IN RL$'
+ *,100, 0., 10. , 0.)
+- CALL HBOOK1(22,'TOTAL POSIT LENGHT IN RL$'
++ CALL HBOOK1(22,'TOTAL POSIT LENGTH IN RL$'
+ *,100, 0., 5. , 0.)
+- CALL HBOOK1(23,'TOTAL ELECT LENGHT IN RL$'
++ CALL HBOOK1(23,'TOTAL ELECT LENGTH IN RL$'
+ *,100, 0., 5. , 0.)
+
+ CALL HBOOK1(31,'NUMBER OF NEXT CALLS$'
+diff --git a/src/geant321/examples/gexam7/uhinit.F b/src/geant321/examples/gexam7/uhinit.F
+index 31ab25b..ac79524 100644
+--- a/src/geant321/examples/gexam7/uhinit.F
++++ b/src/geant321/examples/gexam7/uhinit.F
+@@ -76,13 +76,13 @@ C
+ C
+ C *** Histograms for detailed studies
+ C
+- CALL HBOOK1(21,'TOTAL GAMMA LENGHT IN RL$'
++ CALL HBOOK1(21,'TOTAL GAMMA LENGTH IN RL$'
+ *,100, 0., 10. , 0.)
+- CALL HBOOK1(22,'TOTAL POSIT LENGHT IN RL$'
++ CALL HBOOK1(22,'TOTAL POSIT LENGTH IN RL$'
+ *,100, 0., 5. , 0.)
+- CALL HBOOK1(23,'TOTAL ELECT LENGHT IN RL$'
++ CALL HBOOK1(23,'TOTAL ELECT LENGTH IN RL$'
+ *,100, 0., 5. , 0.)
+- CALL HBOOK1(24,'TOTAL LENGHT IN RL FOR OTHER PARTICLES$'
++ CALL HBOOK1(24,'TOTAL LENGTH IN RL FOR OTHER PARTICLES$'
+ *,100, 0., 20. , 0.)
+ C
+ CALL HBOOK1(31,'NUMBER OF NEXT CALLS$'
+diff --git a/src/geant321/gdraw/gdcghi.F b/src/geant321/gdraw/gdcghi.F
+index 5d4c1d0..f516031 100644
+--- a/src/geant321/gdraw/gdcghi.F
++++ b/src/geant321/gdraw/gdcghi.F
+@@ -54,7 +54,7 @@ C.
+ *
+ LLEP=ABS(LEP)
+ IVFUN=1
+- LENGHT=4000
++ LENGTH=4000
+ ICPOIN=JCGOBJ+1
+ IZPOIN=JCGOBJ+20000
+ IF(ISHAPE.EQ.11.OR.ISHAPE.EQ.12)ICGP=ICGP+1
+@@ -63,7 +63,7 @@ C.
+ IST=2
+ ELSE IF(IMOD.EQ.4)THEN
+ IST=3
+- CALL CGSLIC(Q(ICPOIN),ABCD,LENGHT,Q(IZPOIN))
++ CALL CGSLIC(Q(ICPOIN),ABCD,LENGTH,Q(IZPOIN))
+ **SG
+ ELSE IF(IMOD.EQ.5)THEN
+ IST=3
+diff --git a/src/geant321/ggeom/ggeom.doc b/src/geant321/ggeom/ggeom.doc
+index b569a63..a146d8c 100644
+--- a/src/geant321/ggeom/ggeom.doc
++++ b/src/geant321/ggeom/ggeom.doc
+@@ -342,7 +342,7 @@
+ * hyperboloids, as would be formed by a system of cylindrical *
+ * wires which were then rotated tangentially about their *
+ * centres. The 4 parameters are the inner and outer radii, *
+-* the half lenght in z, and the "stereo angle" theta in *
++* the half length in z, and the "stereo angle" theta in *
+ * degrees, such that the hyperbolic surfaces are given by *
+ * r**2 = (z*tan(theta))**2 + (r at z=0)**2 *
+ * 'CTUB' is a cut tube with 11 parameters. The first 5 parameters *
+diff --git a/src/geant321/ggeom/ggppar.F b/src/geant321/ggeom/ggppar.F
+index 456b88b..89dfcdd 100644
+--- a/src/geant321/ggeom/ggppar.F
++++ b/src/geant321/ggeom/ggppar.F
+@@ -270,7 +270,7 @@ C. ------------------------------------------------------------------
+ DX2P = DX2 + SHFX2
+ DX2N = DX2 - SHFX2
+ *
+-* DXP is the lenght of the box that fits in the positive side
++* DXP is the length of the box that fits in the positive side
+ * DXN is the one in the negative side
+ DXP = MIN(DX1P,DX2P)
+ DXN = MIN(DX1N,DX2N)
diff --git a/debian/patches/122-fix-typo-explicitely-explicitly.dpatch b/debian/patches/122-fix-typo-explicitely-explicitly.dpatch
new file mode 100755
index 0000000..e843c84
--- /dev/null
+++ b/debian/patches/122-fix-typo-explicitely-explicitly.dpatch
@@ -0,0 +1,86 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 122-fix-typo-explicitely-explicitly.dpatch by Lifeng Sun <lifongsun at gmail.com>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: fix typo: explicitely -> explicitly.
+
+ at DPATCH@
+diff --git a/src/geant321/cdf/g321x.c b/src/geant321/cdf/g321x.c
+index c35fede..e4280cd 100644
+--- a/src/geant321/cdf/g321x.c
++++ b/src/geant321/cdf/g321x.c
+@@ -1975,7 +1975,7 @@ static char *_GEANT_CVOL_guidance[] = { "Clipping commands.",
+ "TUBE, CONE, SPHE are available). If '*' is given as the name of the",
+ "volume to be clipped, all volumes are clipped by the given shape.",
+ "A volume can be clipped at most twice (even by",
+- "different shapes); if a volume is explicitely clipped",
++ "different shapes); if a volume is explicitly clipped",
+ "twice, the '*' will not act on it anymore. Giving '.' as the name",
+ "of the volume to be clipped will reset the clipping." };
+ static KmMenu _GEANT_CVOL = { &_GEANT_DRAWING, (KmMenu*)0, "/GEANT/CVOL",
+@@ -8315,7 +8315,7 @@ static char *_GEANT_CVOL_guidance[] = { "Clipping commands.",
+ "TUBE, CONE, SPHE are available). If '*' is given as the name of the",
+ "volume to be clipped, all volumes are clipped by the given shape.",
+ "A volume can be clipped at most twice (even by",
+- "different shapes); if a volume is explicitely clipped",
++ "different shapes); if a volume is explicitly clipped",
+ "twice, the '*' will not act on it anymore. Giving '.' as the name",
+ "of the volume to be clipped will reset the clipping." };
+ static KmMenu _GEANT_CVOL = { &_GEANT_DRAWING, (KmMenu*)0, "/GEANT/CVOL",
+diff --git a/src/geant321/cdf/g321x.cdf b/src/geant321/cdf/g321x.cdf
+index ae722ff..c50c497 100644
+--- a/src/geant321/cdf/g321x.cdf
++++ b/src/geant321/cdf/g321x.cdf
+@@ -27,7 +27,7 @@ to clip each different volume by means of a different shape (BOX ,
+ TUBE, CONE, SPHE are available). If '*' is given as the name of the
+ volume to be clipped, all volumes are clipped by the given shape.
+ A volume can be clipped at most twice (even by
+-different shapes); if a volume is explicitely clipped
++different shapes); if a volume is explicitly clipped
+ twice, the '*' will not act on it anymore. Giving '.' as the name
+ of the volume to be clipped will reset the clipping.
+
+diff --git a/src/geant321/doc/gedoc b/src/geant321/doc/gedoc
+index a3245e2..c53c24c 100644
+--- a/src/geant321/doc/gedoc
++++ b/src/geant321/doc/gedoc
+@@ -403,7 +403,7 @@ The covariance of x_$impr
+
+ sigma_$impr = (sigma_d:$-1+sigma_i:$-1):$-1
+
+-shows explicitely the improvement of the trajectory parameters.
++shows explicitly the improvement of the trajectory parameters.
+
+ This procedure can be easily generalized to join more than 2
+ measurements on the particle trajectory. If e.g. between the two
+diff --git a/src/geant321/gphys/gphysi.F b/src/geant321/gphys/gphysi.F
+index dabd45e..0dbd77a 100644
+--- a/src/geant321/gphys/gphysi.F
++++ b/src/geant321/gphys/gphysi.F
+@@ -114,7 +114,7 @@ C
+ CALL GMAIL(0,0)
+ IF(NRNDM(1).EQ.0.AND.NRNDM(2).EQ.0) THEN
+ *
+-* The random number sequence has not been explicitely
++* The random number sequence has not been explicitly
+ * initialised via a data card. See whether we can initialise
+ * it with the words 19/20 of the JRUNG data structure.
+ IF(IQ(JRUNG+19).NE.0.OR.IQ(JRUNG+20).NE.0) THEN
+@@ -173,7 +173,7 @@ C
+ ENDIF
+ *
+ * If Cerenkov generation is on, activate Light absorbtion unless
+-* explicitely switched off by the user
++* explicitly switched off by the user
+ *
+ KLABS=Q(JTMED+31)
+ IF(ITCKOV.NE.0) THEN
+@@ -351,7 +351,7 @@ C
+ ENDIF
+ *
+ * If Cerenkov generation is on, activate Light absorbtion unless
+-* explicitely switched off by the user
++* explicitly switched off by the user
+ *
+ KLABS=Q(JTP+31)
+ IF(ITCKOV.NE.0) THEN
diff --git a/debian/patches/123-fix-typo-preceeding-preceding.dpatch b/debian/patches/123-fix-typo-preceeding-preceding.dpatch
new file mode 100755
index 0000000..4a9fd81
--- /dev/null
+++ b/debian/patches/123-fix-typo-preceeding-preceding.dpatch
@@ -0,0 +1,58 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 123-fix-typo-preceeding-preceding.dpatch by Lifeng Sun <lifongsun at gmail.com>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: fix typo: preceeding -> preceding.
+
+ at DPATCH@
+diff --git a/src/geant321/cdf/g321x.c b/src/geant321/cdf/g321x.c
+index e4280cd..17b2690 100644
+--- a/src/geant321/cdf/g321x.c
++++ b/src/geant321/cdf/g321x.c
+@@ -1378,7 +1378,7 @@ static char *_GEANT_DRAWING_DTREE_guidance[] = {
+ volumes,", "via a call to GDTREE(name,levmax,isel):",
+ "if the third parameter is not given (default), the command will",
+ "produce the drawing of the tree displaying, for each volume, the",
+- "number of the following levels (red arrows) and of the preceeding",
++ "number of the following levels (red arrows) and of the preceding",
+ "levels (green arrows); then the control is automatically given to the",
+ "mouse: clicking on the left button when the cursor is inside a volume's",
+ "pave will perform a DSPEC for that volume; doing the same when the cursor",
+@@ -7726,7 +7726,7 @@ static char *_GEANT_DRAWING_DTREE_guidance[] = {
+ volumes,", "via a call to GDTREE(name,levmax,isel):",
+ "if the third parameter is not given (default), the command will",
+ "produce the drawing of the tree displaying, for each volume, the",
+- "number of the following levels (red arrows) and of the preceeding",
++ "number of the following levels (red arrows) and of the preceding",
+ "levels (green arrows); then the control is automatically given to the",
+ "mouse: clicking on the left button when the cursor is inside a volume's",
+ "pave will perform a DSPEC for that volume; doing the same when the cursor",
+diff --git a/src/geant321/cdf/g321x.cdf b/src/geant321/cdf/g321x.cdf
+index c50c497..a14f107 100644
+--- a/src/geant321/cdf/g321x.cdf
++++ b/src/geant321/cdf/g321x.cdf
+@@ -454,7 +454,7 @@ displaying the name, the multiplicity and other information about the volumes,
+ via a call to GDTREE(name,levmax,isel):
+ if the third parameter is not given (default), the command will
+ produce the drawing of the tree displaying, for each volume, the
+-number of the following levels (red arrows) and of the preceeding
++number of the following levels (red arrows) and of the preceding
+ levels (green arrows); then the control is automatically given to the
+ mouse: clicking on the left button when the cursor is inside a volume's
+ pave will perform a DSPEC for that volume; doing the same when the cursor
+diff --git a/src/geant321/doc/gedoc b/src/geant321/doc/gedoc
+index c53c24c..1e6febd 100644
+--- a/src/geant321/doc/gedoc
++++ b/src/geant321/doc/gedoc
+@@ -374,7 +374,7 @@ the best. The next task is to improve the trajectory parameters.
+
+ One chooses a plane near to the interaction point and extrapolates
+ onto this plane all candidate trajectories as described in the
+-preceeding section. For the i-th trajectory one obtains an
++preceding section. For the i-th trajectory one obtains an
+ avarage value x_i and a covariance: sigma_i. (In this discussion
+ the indices will represent the trajectory numbers.) Next one
+ extrapolates back the trajectory from the downstream detector
+--
+1.7.4.1
+
diff --git a/debian/patches/124-fix-typo-ADRESS-ADDRESS.dpatch b/debian/patches/124-fix-typo-ADRESS-ADDRESS.dpatch
new file mode 100755
index 0000000..bde6196
--- /dev/null
+++ b/debian/patches/124-fix-typo-ADRESS-ADDRESS.dpatch
@@ -0,0 +1,35 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 124-fix-typo-ADRESS-ADDRESS.dpatch by Lifeng Sun <lifongsun at gmail.com>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: fix typo: ADRESS -> ADDRESS.
+
+ at DPATCH@
+diff --git a/src/geant321/examples/gexam7/bootwk.inc b/src/geant321/examples/gexam7/bootwk.inc
+index 5c497b2..6f339d0 100644
+--- a/src/geant321/examples/gexam7/bootwk.inc
++++ b/src/geant321/examples/gexam7/bootwk.inc
+@@ -12,6 +12,6 @@
+ *
+ COMMON/BOOTWK/JBOOT,EINCID
+ C----------------------------------------------------------------------
+-C BOOTSTRAP COMMON : JBOOT = BOOTSTRAP BANK ADRESS
++C BOOTSTRAP COMMON : JBOOT = BOOTSTRAP BANK ADDRESS
+ C EINCID = TOTAL ENERGY OF PRIMARY PARTICLE
+ C----------------------------------------------------------------------
+diff --git a/src/geant321/gheisha/settrk.F b/src/geant321/gheisha/settrk.F
+index f3efe90..cd5c3dd 100644
+--- a/src/geant321/gheisha/settrk.F
++++ b/src/geant321/gheisha/settrk.F
+@@ -23,7 +23,7 @@ C
+ C --- CHECK PV ARRAY BOUNDARY ---
+ IF(NTR .LE. MXGKPV) GOTO 10
+ PRINT 1000,NTR
+- 1000 FORMAT(' *SETTRK* NTR = ',I3,' WOULD ADRESS OUTSIDE PV ARRAY'/
++ 1000 FORMAT(' *SETTRK* NTR = ',I3,' WOULD ADDRESS OUTSIDE PV ARRAY'/
+ $ ' ===> TRACK WILL NOT BE PUT ON STACK AND WILL BE LOST')
+ GO TO 9999
+ C
+--
+1.7.4.1
+
--
geant321: Particle detector description and simulation tool
More information about the debian-science-commits
mailing list