--- /dev/null
+ SUBROUTINE SXSROT(NMAT,THETA1,PHI1,THETA2,PHI2,THETA3,PHI3)
+C
+C *** INITIALISATION OF THE ALICE ZEBRA STRUCTURE ***
+C *** FCA 22-APR-1998 CERN EP ***
+C
+C CALLED BY : *_GEOM, *_ROTM, *_TMED
+C ORIGIN : FEDERICO CARMINATI
+C
+#include "geant321/gcbank.inc"
+*KEND.
+*
+ NMAT=1
+ IF(JROTM.GT.0) THEN
+ NS=IQ(JROTM-2)
+ DO KZ=1,NS
+ IF(LQ(JROTM-KZ).EQ.0) THEN
+ NMAT=KZ
+ GOTO 10
+ ENDIF
+ ENDDO
+ NMAT=NS+1
+ ENDIF
+ 10 CALL GSROTM(NMAT,THETA1,PHI1,THETA2,PHI2,THETA3,PHI3)
+*
+ 999 END