Special matrix declaration routine that returns the next free slot in the
authorfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 3 Jun 1999 16:56:42 +0000 (16:56 +0000)
committerfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 3 Jun 1999 16:56:42 +0000 (16:56 +0000)
zebra bank. Still needed by the fortran part of ALICE. To be removed soon.

GEANT321/ggeom/sxsrot.F [new file with mode: 0644]

diff --git a/GEANT321/ggeom/sxsrot.F b/GEANT321/ggeom/sxsrot.F
new file mode 100644 (file)
index 0000000..d7afea5
--- /dev/null
@@ -0,0 +1,25 @@
+      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