1 SUBROUTINE SXSROT(NMAT,THETA1,PHI1,THETA2,PHI2,THETA3,PHI3)
3 C *** INITIALISATION OF THE ALICE ZEBRA STRUCTURE ***
4 C *** FCA 22-APR-1998 CERN EP ***
6 C CALLED BY : *_GEOM, *_ROTM, *_TMED
7 C ORIGIN : FEDERICO CARMINATI
9 #include "geant321/gcbank.inc"
16 IF(LQ(JROTM-KZ).EQ.0) THEN
23 10 CALL GSROTM(NMAT,THETA1,PHI1,THETA2,PHI2,THETA3,PHI3)