GEANT321/ggeom/grmtd.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:54  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 GRMTD(XMAS,IROT,XNEW)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *    ROUTINE ROTATES A POINT IN XMAS FROM THE MASTER SYSTEM      *
  17 C.    *    TO A NEW SYSTEM USING MATRIX # IROT.                        *
  18 C.    *    RESULT IS RETURNED IN VECTOR XNEW.                          *
  19 C.    *                                                                *
  20 C.    *    ==>Called by : GNEXT, GTNEXT                                *
  21 C.    *         Author  A.McPherson  *********                         *
  22 C.    *                                                                *
  23 C.    ******************************************************************
  24 C.
  25 #include "geant321/gcbank.inc"
  26       DIMENSION XMAS(3),XNEW(3)
  27 C.
  28 C.    ------------------------------------------------------------------
  29 C.
  30       IF (IROT.GT.0) THEN
  31          JR = LQ(JROTM- IROT)
  32          XNEW(1) = XMAS(1)*Q(JR+1) + XMAS(2)*Q(JR+2) + XMAS(3)*Q(JR+3)
  33          XNEW(2) = XMAS(1)*Q(JR+4) + XMAS(2)*Q(JR+5) + XMAS(3)*Q(JR+6)
  34          XNEW(3) = XMAS(1)*Q(JR+7) + XMAS(2)*Q(JR+8) + XMAS(3)*Q(JR+9)
  35 *
  36       ELSE
  37          XNEW(1) = XMAS(1)
  38          XNEW(2) = XMAS(2)
  39          XNEW(3) = XMAS(3)
  40 *
  41       ENDIF
  42       END