GEANT321/ggeom/gprotm.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 GPROTM(NUMB)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Routine to print rotation matrices structure JROTM       *
  17 C.    *       NUMB     Rotation matrix number                          *
  18 C.    *                                                                *
  19 C.    *    ==>Called by : <USER>, GPRINT                               *
  20 C.    *         Author  R.Brun  *********                              *
  21 C.    *                                                                *
  22 C.    ******************************************************************
  23 C.
  24 #include "geant321/gcbank.inc"
  25 #include "geant321/gcunit.inc"
  26 C.
  27 C.    ------------------------------------------------------------------
  28 C.
  29       IF (JROTM.LE.0)  GO TO 99
  30 C
  31       IF (NUMB  .EQ.0)THEN
  32          WRITE (CHMAIL,1000)
  33          CALL GMAIL(0,0)
  34          N1     = 1
  35          N2     = IQ(JROTM-2)
  36       ELSE
  37          N1     = ABS(NUMB)
  38          N2     = ABS(NUMB)
  39       ENDIF
  40 C
  41       IF(NUMB.GE.0) THEN
  42          WRITE (CHMAIL,1001)
  43          CALL GMAIL(0,1)
  44       ENDIF
  45 C
  46       DO 30 I=N1,N2
  47       JR = LQ(JROTM-I)
  48       IF (JR.LE.0)   GO TO 30
  49 C
  50       IFLAG = Q(JR+10)
  51       WRITE (CHMAIL,1002) I,(Q(JR+J),J = 1,9),IFLAG,(Q(JR+J),J = 11,16)
  52       CALL GMAIL(0,0)
  53    30 CONTINUE
  54 C
  55  1000 FORMAT ('0',51('='),1X,'ROTATION MATRICES',2X,50('='))
  56  1001 FORMAT ('0','MATRIX',1X,'<',17('-'),' ROTATION MATRIX',1X,17('-')
  57      +,'>',' FLAG','  THET1','   PHI1','  THET2','   PHI2','  THET3'
  58      +,'   PHI3')
  59  1002 FORMAT (' ',I6,9F6.3,I5,6F7.2)
  60    99 RETURN
  61       END