[u/mrichter/AliRoot.git] / GEANT321 / ggeom / sxsrot.F

      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
Commit	Line	Data
fd8d1cf5	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