5 * Revision 1.1.1.1 1996/03/06 15:37:35 mclareni
6 * Add geane321 source directories
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.49 by S.Giani
14 C. ******************************************************************
16 C. * Calculates Multiple Scattering Matrix in a step *
18 C. * E - Error Matrix (Triangular) *
19 C. * STEP - Step length in cm *
20 C. * RADL - Radiation length in cm *
21 C. * VECT(7) - Momentum in GeV *
22 C. * CLA - Cosine of the deep angle *
24 C. * ==>Called by : ERPROP *
25 C. * Author E.Nagy ********* *
27 C. ******************************************************************
29 #include "geant321/gcmate.inc"
30 #include "geant321/gckine.inc"
31 #include "geant321/gctrak.inc"
33 DOUBLE PRECISION E(15)
35 PBETA = VECT(7)*VECT(7)/GETOT
39 CC CRLOG = 1. + 0.201*LOG(RI)
40 CC IF (CRLOG.LE.0.) CRLOG = 0.
41 D = 1.8496E-4*RI*((CHARGE*CRLOG/PBETA)**2)
45 CLA = SQRT (VECT(4)**2+VECT(5)**2)
48 E(10) = E(10)+S2/CLA**2