GEANT321/ggeom/sxsrot.F

   1       SUBROUTINE SXSROT(NMAT,THETA1,PHI1,THETA2,PHI2,THETA3,PHI3)
   2 C
   3 C *** INITIALISATION OF THE ALICE ZEBRA STRUCTURE ***
   4 C *** FCA 22-APR-1998 CERN EP ***
   5 C
   6 C CALLED BY : *_GEOM, *_ROTM, *_TMED
   7 C ORIGIN    : FEDERICO CARMINATI
   8 C
   9 #include "geant321/gcbank.inc"
  10 *KEND.
  11 *
  12       NMAT=1
  13       IF(JROTM.GT.0) THEN
  14          NS=IQ(JROTM-2)
  15          DO KZ=1,NS
  16             IF(LQ(JROTM-KZ).EQ.0) THEN
  17                NMAT=KZ
  18                GOTO 10
  19             ENDIF
  20          ENDDO
  21          NMAT=NS+1
  22       ENDIF
  23  10   CALL GSROTM(NMAT,THETA1,PHI1,THETA2,PHI2,THETA3,PHI3)
  24 *
  25  999  END