Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / cgpack / cgshif.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:19:44  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.32  by  S.Giani
11 *-- Author :
12       SUBROUTINE CGSHIF(DX,DY,DZ,CG)
13 ************************************************************************
14 *                                                                      *
15 *     Name: CGSHIF                                                     *
16 *     Author: E. Chernyaev                       Date:    24.08.88     *
17 *                                                Revised:              *
18 *                                                                      *
19 *     Function: Shift of  CG-object                                    *
20 *                                                                      *
21 *     References: CGAFFI                                               *
22 *                                                                      *
23 *     Input:     DX - X-shift                                          *
24 *                DY - Y-shift                                          *
25 *                DZ - Z-shift                                          *
26 *     Output: CG(*) - CG-object                                        *
27 *                                                                      *
28 *     Errors: none                                                     *
29 *                                                                      *
30 ************************************************************************
31       REAL      CG(*),T(4,3)
32 *-
33       T(1,1) = 1.
34       T(2,1) = 0.
35       T(3,1) = 0.
36       T(4,1) = DX
37 *
38       T(1,2) = 0.
39       T(2,2) = 1.
40       T(3,2) = 0.
41       T(4,2) = DY
42 *
43       T(1,3) = 0.
44       T(2,3) = 0.
45       T(3,3) = 1.
46       T(4,3) = DZ
47 *
48       CALL CGAFFI(T,CG)
49       RETURN
50       END