5 * Revision 1.1.1.1 1995/10/24 10:20:54 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.30 by S.Giani
12 SUBROUTINE GRMUL(RMAT,IROT,RMATN)
14 C. ******************************************************************
16 C * ROUTINE MULTIPLIES ROTATION MATRIX RMAT BY THE *
17 C * IROT TH MATRIX IN THE GEANT ROTATION MATRIX BANK *
18 C * TO PRODUCE THE MATRIX RMATN SUCH THAT RMATN IS *
19 C * THE RESULT OF FIRST RMAT THEN IROT. *
21 C. * ==>Called by : GTRMUL *
22 C. * Author A.McPherson ********* *
24 C. ******************************************************************
26 #include "geant321/gcbank.inc"
27 DIMENSION RMAT(10),RMATN(10)
29 C. ------------------------------------------------------------------
38 IF(RMAT(10).EQ.0.0) THEN
53 RMATN(KO)=RMATN(KO)+RMAT(KI1)*Q(JR+KI2)