From: fca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Thu, 3 Jun 1999 16:59:09 +0000 (+0000)
Subject: Moved sxsrot to geant library to avoid gcbank in shared libraries for the
X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=commitdiff_plain;h=3153f05e6fed1717b337f433bf19d2240709a5a7

Moved sxsrot to geant library to avoid gcbank in shared libraries for the
DEC OSF.
---

diff --git a/TGeant3/galicef.F b/TGeant3/galicef.F
index 6e4eb43b368..461d1f6bccf 100644
--- a/TGeant3/galicef.F
+++ b/TGeant3/galicef.F
@@ -158,37 +158,6 @@ C --- phi ---
 C
       RETURN
       END
-*CMZ :  2.00/01 23/04/98  08.37.08  by  Federico Carminati
-*CMZ :  2.00/00 16/04/98  12.54.34  by  Unknown
-*CMZ :  1.05/00 08/06/94  09.19.45  by  Nick van Eijndhoven (RUU/CERN)
-*-- Author :    Nick van Eijndhoven (RUU/CERN)   08/06/94
-      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
-#undef CERNLIB_GEANT321_GCBANK_INC
-#undef CERNLIB_GEANT321_GCLINK_INC
-#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
 *CMZ :          30/12/98  16.23.44  by  Rene Brun
 *-- Author :    Rene Brun   30/12/98
       subroutine setclip(name,xmin,xmax,ymin,ymax,zmin,zmax)