5 * Revision 1.1 1996/03/06 15:31:21 mclareni
6 * Add geane321 history, CMZ and doc files
9 *CMZ : 3.21/02 29/03/94 15.41.49 by S.Giani
13 * 07-04-93 : new error trasformation routines,
14 * TRSDPT, TRSCPT, TRPTSD, TRPTSC added
15 * to go from 1/p .... to 1/p_t and viceversa
16 * in both sd and sc systems
17 * 07-04-93 : ERTRGO and ERTRCH: precision checks added
18 * 16-05-91 : EUFILV modified: NAMV --> CNAMV character*4
20 * 02-02-91 : EREXAM2 improved:
21 * Transport matrix test added;
22 * Random generation of momentum and charge in GUKINE
24 * 01-02-91 : effect of energy loss added in TRPRFN
25 * (and little bug introduced on 14-12-90 corrected)
27 * 24-01-91 : bug corrected in ERMCSC (and log term removed)
28 add fit examples in EREXAM2
29 * 20-12-90 : CMZ install kumac added
30 * 19-12-90 : add 2 running examples : P = EREXAM1 and EREXAM2.
31 * Mod in ERPROP : EF(1) for low energy
32 * 18-12-90 : bug in ERLAND : emax must be in kev.
33 * ERTRCH : dedx2*(charge**4)
34 * ERMCSC corrected for the log term
35 * 14-12-90 : TRPRFN modified to improve timing
37 * 5-12-90 : doc updated (interface to Geant)
38 * 3-12-90 : new logic for volume and plane crossing allowing any
39 * crossing order . The order of the predicted point in
40 * ERXOUT( ,ILPRED) etc... may be different of the order
41 * in the input list ERPLO( ,INLIST) etc..The relation
42 * is given by the array IEPRED (ILPRED) = INLIST
43 * 29-11-90 : ERTRGO and ERTRCH rewritten : compute energy loss
44 * from the stopping range (bank JRANG) ===> Geane is
45 * compatible only with geant3.14
46 * MXNSTP = maximum number of steps allowed (1000).
47 * zeroed ERXOUT,ERPOUT,ERROUT.
48 * 27-11-90 : normalize the normal to the plane (routine EUFILP)
49 * 21-11-90 : change IF=DOUBLE to IF=-SINGLE (standart in Geant3)
50 * 19-11-90 : changes in ERTRGO,ERTRNT,ERTRCH for use of GTMEDI
51 * and GTNEXT ===> Geane in no more compatible with
53 * 2-11-90 : Integer NEXT MXPRED
54 * 4- 9-89 : corrections in ERTRCH and ERTRNT for the case
57 * V 3.13/01 (29-6-89) strictly identical to 3.12
58 * V 3.12/04 released on the first september 1988
60 * version compatible GEANT311 AND GEANT312 :
61 * the routine GNEXT must be in the GEANT library