Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / erdecks / erbcer.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/03/06 15:37:34 mclareni
6* Add geane321 source directories
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.49 by S.Giani
11*-- Author :
12 SUBROUTINE ERBCER (E)
13*
14C. ******************************************************************
15C. * *
16C. * After the back-tracking transforms the error matrix *
17C. * back to the original *
18C. * particle direction *
19C. * *
20C. * Arguments *
21C. * E - Error Matrix (Triangular) *
22C. * *
23C. * ==>Called by : ERPEND *
24C. * Author E.Nagy ********* *
25C. * *
26C. ******************************************************************
27*
28 DIMENSION E(15)
29*
30 J = 0
31 DO 10 I = 1, 5
32 DO 5 K = I, 5
33 J = J + 1
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)
38 5 CONTINUE
39 10 CONTINUE
40* END ERBCER
41 END