Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / erdecks / erbctr.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 ERBCTR (X)
13*
14C. ******************************************************************
15C. * *
16C. * After the back-tracking transforms *
17C. * the transport matrix back to the original *
18C. * particle direction *
19C. * *
20C. * Arguments *
21C. * X - Transport Matrix *
22C. * *
23C. * ==>Called by : ERPEND *
24C. * Author E.Nagy ********* *
25C. * *
26C. ******************************************************************
27*
28 DOUBLE PRECISION X(5,5)
29*
30 DO 10 I = 1, 5
31 DO 5 K = 1, 5
32 IF (I.EQ.2) X(I,K) = -X(I,K)
33 IF (K.EQ.2) X(I,K) = -X(I,K)
34 IF (I.EQ.4) X(I,K) = -X(I,K)
35 IF (K.EQ.4) X(I,K) = -X(I,K)
36 5 CONTINUE
37 10 CONTINUE
38* END ERBCTR
39 END