5 * Revision 1.1.1.1 1996/03/06 15:37:34 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. * After the back-tracking transforms the error matrix *
17 C. * back to the original *
18 C. * particle direction *
21 C. * E - Error Matrix (Triangular) *
23 C. * ==>Called by : ERPEND *
24 C. * Author E.Nagy ********* *
26 C. ******************************************************************
34 IF (I.EQ.2) E(J) = -E(J)
35 IF (K.EQ.2) E(J) = -E(J)
36 IF (I.EQ.4) E(J) = -E(J)
37 IF (K.EQ.4) E(J) = -E(J)