GEANT321/ggeom/gtrnsf.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:56  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.30  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GTRNSF(X,DX,RMAT,XNEW)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C     *       ROUTINE TO APPLY THE TRANSFORMATION GIVEN BY             *
  17 C     *       THE POINT DX AND THE ROTATION MATRIX RMAT TO THE         *
  18 C     *       POINT X, PLACING THE RESULT IN THE POINT XNEW.           *
  19 C.    *                                                                *
  20 C.    *    ==>Called by : GDFR3D, GFTRAC, GINVOL,GMEDIA, GNEXT, GSTRAC,*
  21 C.    *                   GTMEDI, GTNEXT                               *
  22 C.    *         Author  A.McPherson  *********                         *
  23 C     *                                                                *
  24 C.    ******************************************************************
  25 C.
  26       DIMENSION X(3),DX(3),RMAT(10),XNEW(3)
  27 C
  28       IF(RMAT(10).EQ.0.)THEN
  29          XNEW(1) = X(1) - DX(1)
  30          XNEW(2) = X(2) - DX(2)
  31          XNEW(3) = X(3) - DX(3)
  32 *
  33       ELSE
  34          XL1 = X(1) - DX(1)
  35          XL2 = X(2) - DX(2)
  36          XL3 = X(3) - DX(3)
  37          XNEW(1) = XL1*RMAT(1) + XL2*RMAT(2) + XL3*RMAT(3)
  38          XNEW(2) = XL1*RMAT(4) + XL2*RMAT(5) + XL3*RMAT(6)
  39          XNEW(3) = XL1*RMAT(7) + XL2*RMAT(8) + XL3*RMAT(9)
  40
  41       ENDIF
  42       END