Cleaning unused files
authorfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 5 Oct 1999 10:44:42 +0000 (10:44 +0000)
committerfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 5 Oct 1999 10:44:42 +0000 (10:44 +0000)
ITS/AliITSf.F [deleted file]
ITS/AliITSv0.cxx [deleted file]
ITS/AliITSv0.h [deleted file]
ITS/AliITSv4.cxx [deleted file]
ITS/AliITSv4.h [deleted file]

diff --git a/ITS/AliITSf.F b/ITS/AliITSf.F
deleted file mode 100644 (file)
index 66f4b4b..0000000
+++ /dev/null
@@ -1,4492 +0,0 @@
-*CMZ :          22/02/99  17.57.04  by  Federico Carminati
-*CMZ :  2.03/01 10/09/98  11.48.45  by  Roberto Barbera
-*CMZ :  2.00/05 25/05/98  14.39.00  by  Federico Carminati
-*CMZ :  2.00/04 22/05/98  09.37.53  by  Roberto Barbera (Catania)
-*CMZ :  2.00/02 24/04/98  13.35.44  by  Federico Carminati
-*CMZ :  2.00/01 22/04/98  19.18.39  by  Federico Carminati
-*CMZ :  1.05/06 24/10/95  14.00.47  by  Nick van Eijndhoven (RUU/CERN)
-*CMZ :  1.05/00 10/12/92  16.45.55  by  Nick van Eijndhoven (RUU/CERN)
-*-- Author :    Nick van Eijndhoven (CERN)   24/09/90
-      SUBROUTINE ITS_GEO4(IVERS,IDTMED)
-C
-C *** DEFINITION OF THE GEOMETRY OF THE ITS ***
-C *** RB APR-1990 CATANIA ***
-C
-C CALLED BY : SXGEOM
-C ORIGIN    : ROBERTO BARBERA
-C
-#undef CERNLIB_GEANT321_GCONSP_INC
-#include "geant321/gconsp.inc"
-*KEND.
-      DIMENSION IDTMED(*)
-C
-      DIMENSION IDROTM(5250)
-C
-      CHARACTER*4 NATRA(8),NATRA1(16),NATRA2(6),NATRA3(6),NATRA4(16)
-C
-      REAL*8 BIGA,BIGB,BIGA1,BIGB1
-      REAL*8 COEFFA,COEFFB,COEFFC
-      REAL*8 XCC1,YCC1,XCC2,YCC2
-C
-      DIMENSION DITS(3),DBUS(3),DCHI(3)
-      DIMENSION DSUP(3),DTUB(3),DWAT(3)
-      DIMENSION DCEI(3),DFRA(10)
-      DIMENSION DAL1(3),DAL2(3),DKAP(3)
-      DIMENSION DPCB(3),DCOP(3),DCER(3),DSIL(3)
-      DIMENSION DPLA(3),DEPX(3)
-      DIMENSION DGH(15)
-      DIMENSION XX(13),YY(13),XBEG(12),YBEG(12),XEND(12),YEND(12)      
-      DIMENSION DARC(5),XARC(12),YARC(12),RARC(12)
-      DIMENSION DTRA(3),DTRA1(3),DTRA2(3),DTRA3(3),DTRA4(3)
-      DIMENSION XTRA(8),YTRA(8),ZTRA(8)
-      DIMENSION XTRA1(6),YTRA1(6),ZTRA1(6)
-      DIMENSION DCONE(5),DTUBE(3),DPGON(10)
-      DIMENSION DBOX1(3),DBOX2(3),DSRV(3),DELA(3)
-C
-      DATA NATRA/'TR01','TR02','TR03','TR04','TR05','TR06','TR07',
-     $           'TR08'/
-      DATA NATRA1/'TR11','TR12','TR13','TR14','TR15','TR16','TR17',
-     $            'TR18','TR19','TR20','TR21','TR22','TR23','TR24',
-     $            'TR25','TR26'/
-      DATA NATRA2/'TR31','TR32','TR33','TR34','TR35','TR36'/
-      DATA NATRA3/'TR41','TR42','TR43','TR44','TR45','TR46'/
-      DATA NATRA4/'TR51','TR52','TR53','TR54','TR55','TR56','TR57',
-     $            'TR58','TR59','TR60','TR61','TR62','TR63','TR64',
-     $            'TR65','TR66'/
-C
-       DATA XX/0.,0.,-4.824,-4.833,-22.167,-22.585,-28.070,-27.626,
-     $  -38.139,-19.749,-13.449,-14.726,0./
-        DATA YY/0.,34.028,34.064,32.594,29.984,30.914,29.180,27.777,
-     $  22.522,-7.918,-4.769,-2.216,0./
-       DATA XBEG/0.,-0.497,-4.827,-5.425,-22.395,-23.009,-27.919,
-     $  -28.161,-37.859,-19.337,-13.673,-13.773/
-        DATA YBEG/0.430,34.032,33.564,32.505,30.493,30.781,28.702,
-     $  27.509,22.058,-7.711,-4.322,-2.073/
-        DATA XEND/0.,-4.323,-4.830,-21.643,-22.395,-27.593,-27.807,
-     $  -37.655,-19.988,-13.897,-14.294,-0.425/
-        DATA YEND/33.531,34.060,33.192,30.064,30.493,29.330,28.347,
-     $  22.764,-7.523,-4.992,-3.077,-0.064/
-       DATA XARC/-19.560,-14.120,-13.669,-0.500,-0.500,-4.327,-5.529,
-     $  -21.746,-22.858,-27.442,-28.474,-37.431/
-        DATA YARC/-7.264,-4.545,-2.765,0.431,33.531,33.560,33.197,
-     $  30.756,30.304,28.854,28.136,22.316/
-       DATA RARC/0.5,0.5,0.7,0.5,0.5,0.5,0.7,0.7,0.5,0.5,0.7,0.5/
-C
-       DATA RR,TTETA,PPHI,GTETA/4.08332,63.,-27.,89.4/  ! 89.4 = 90.-0.6
-C
-C --- Define ghost volume containing the whole ITS and fill it with air
-C     or vacuum
-C
-       DGH(1)=0.
-        DGH(2)=360.
-        DGH(3)=4.
-        DGH(4)=-70.
-        DGH(5)=49.999
-        DGH(6)=49.999
-        DGH(7)=-25.
-        DGH(8)=3.
-        DGH(9)=49.999
-        DGH(10)=25.
-        DGH(11)=3.
-        DGH(12)=49.999
-        DGH(13)=70.
-        DGH(14)=49.999
-        DGH(15)=49.999 
-        CALL GSVOLU('ITSV','PCON',IDTMED(276),DGH,15,IOUT)
-C
-C --- Place the ghost volume in its mother volume (ALIC) and make it
-C     invisible
-C
-        CALL GSPOS('ITSV',1,'ALIC',0.,0.,0.,0,'ONLY')  
-       CALL GSATT('ITSV','SEEN',0)
-C      
-C ************************************************************************
-C *                                                                      *
-C *                               P I X E L S                            *
-C *                               ===========                            *
-C *                                                                      *
-C ************************************************************************
-C
-C      GOTO 2345             ! skip ITS layer no. 1 and 2
-C
-C --- Define ghost volume containing the Pixel Detectors and fill it with air
-C     or vacuum
-C
-        XXM=(49.999-3.)/(70.-25.)
-        DGH(1)=0.
-        DGH(2)=360.
-        DGH(3)=4.
-        DGH(4)=-25.-(9.-3.01)/XXM
-        DGH(5)=9.
-        DGH(6)=9.
-        DGH(7)=-25.
-        DGH(8)=3.01
-        DGH(9)=9.
-        DGH(10)=25.
-        DGH(11)=3.01
-        DGH(12)=9.
-        DGH(13)=25.+(9.-3.01)/XXM
-        DGH(14)=9.
-        DGH(15)=9.
-        CALL GSVOLU('IT12','PCON',IDTMED(276),DGH,15,IOUT)
-C
-C --- Place the ghost volume in its mother volume (ITSV) and make it
-C     invisible
-C
-        CALL GSPOS('IT12',1,'ITSV',0.,0.,0.,0,'ONLY')
-        CALL GSATT('IT12','SEEN',0)
-C
-C --- Define a ghost volume containing a single element of layer #1
-C     and fill it with air or vacuum
-C
-        DBOX1(1)=0.005+0.01+0.0075
-       DBOX1(2)=0.79
-       DBOX1(3)=12.67
-       CALL GSVOLU('IPV1','BOX ',IDTMED(204),DBOX1,3,IOUT)
-C
-C --- Divide each element of layer #1 in three ladders along the beam direction
-C
-       CALL GSDVN('IPB1','IPV1',3,3)
-C
-C --- Make the ghost volumes invisible
-C
-        CALL GSATT('IPV1','SEEN',0)
-        CALL GSATT('IPB1','SEEN',0)    
-C
-C --- Define a volume containing the chip of pixels (silicon, layer #1)
-C
-        DCHI(1)=0.005  
-        DCHI(2)=0.79
-        DCHI(3)=DBOX1(3)/3.
-       CALL GSVOLU('ICH1','BOX ',IDTMED(201),DCHI,3,IOUT)
-C
-C --- Define a volume containing the bus of pixels (silicon, layer #1)
-C
-        DBUS(1)=0.01
-        DBUS(2)=0.64
-        DBUS(3)=4.19
-       CALL GSVOLU('IBU1','BOX ',IDTMED(202),DBUS,3,IOUT)
-C
-C --- Define a volume containing the sensitive part of pixels
-C     (silicon, layer #1)
-C      
-        DITS(1)=0.0075
-        DITS(2)=0.64
-        DITS(3)=4.19
-       CALL GSVOLU('ITS1','BOX ',IDTMED(200),DITS,3,IOUT)
-C
-C --- Place the chip into its mother (IPB1)
-C
-        XPOS=DBOX1(1)-DCHI(1)
-       YPOS=0.
-       ZPOS=0.
-       CALL GSPOS('ICH1',1,'IPB1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the sensitive volume into its mother (IPB1)
-C
-        XPOS=DBOX1(1)-2.*DCHI(1)-DITS(1)
-       YPOS=DCHI(2)-DITS(2)
-       ZPOS=-(DCHI(3)-DITS(3))
-       CALL GSPOS('ITS1',1,'IPB1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the bus into its mother (IPB1)
-C
-        XPOS=DBOX1(1)-2.*DCHI(1)-2.*DITS(1)-DBUS(1)
-       YPOS=DCHI(2)-DBUS(2)
-       ZPOS=-(DCHI(3)-DBUS(3))
-       CALL GSPOS('IBU1',1,'IPB1',XPOS,YPOS,ZPOS,0,'ONLY')     
-C
-C --- Define a ghost volume containing a single element of layer #2
-C     and fill it with air or vacuum
-C
-        DBOX2(1)=0.005+0.01+0.0075
-       DBOX2(2)=0.79
-       DBOX2(3)=16.91
-       CALL GSVOLU('IPV2','BOX ',IDTMED(204),DBOX2,3,IOUT)
-C
-C --- Divide each element of layer #2 in four ladders along the beam direction
-C
-       CALL GSDVN('IPB2','IPV2',4,3)
-C
-C --- Make the ghost volumes invisible
-C
-        CALL GSATT('IPV2','SEEN',0)
-        CALL GSATT('IPB2','SEEN',0)    
-C
-C --- Define a volume containing the chip of pixels (silicon, layer #2)
-C
-        DCHI(1)=0.005  
-        DCHI(2)=0.79
-        DCHI(3)=DBOX2(3)/4.
-       CALL GSVOLU('ICH2','BOX ',IDTMED(201),DCHI,3,IOUT)
-C
-C --- Define a volume containing the bus of pixels (silicon, layer #2)
-C
-        DBUS(1)=0.01
-        DBUS(2)=0.64
-        DBUS(3)=4.19
-       CALL GSVOLU('IBU2','BOX ',IDTMED(202),DBUS,3,IOUT)
-C
-C --- Define a volume containing the sensitive part of pixels
-C     (silicon, layer #2)
-C
-        DITS(1)=0.0075
-        DITS(2)=0.64
-        DITS(3)=4.19
-       CALL GSVOLU('ITS2','BOX ',IDTMED(200),DITS,3,IOUT)
-C
-C --- Place the chip into its mother (IPB2)
-C
-        XPOS=DBOX1(1)-2.*DBUS(1)-2.*DITS(1)-DCHI(1)
-       YPOS=0.
-       ZPOS=0.
-       CALL GSPOS('ICH2',1,'IPB2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the sensitive volume into its mother (IPB2)
-C
-        XPOS=DBOX1(1)-2.*DBUS(1)-DITS(1)
-       YPOS=-(DCHI(2)-DITS(2))
-       ZPOS=-(DCHI(3)-DITS(3))
-       CALL GSPOS('ITS2',1,'IPB2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the bus into its mother (IPB2)
-C
-        XPOS=DBOX1(1)-DBUS(1)
-       YPOS=-(DCHI(2)-DBUS(2))
-       ZPOS=-(DCHI(3)-DBUS(3))
-       CALL GSPOS('IBU2',1,'IPB2',XPOS,YPOS,ZPOS,0,'ONLY')             
-C
-C --- Define a generic segment of an element of the mechanical support
-C
-        DSUP(1)=0.
-       DSUP(2)=0.
-       DSUP(3)=0.
-        CALL GSVOLU('SPIX','BOX ',IDTMED(203),DSUP,0,IOUT)
-C
-C --- Define a generic arc of an element of the mechanical support
-C
-        DARC(1)=0.
-       DARC(2)=0.
-       DARC(3)=0.
-       CALL GSVOLU('SARC','TUBS',IDTMED(203),DARC,0,IOUT)
-C
-C --- Define the mechanical supports of layers #1 and #2 and place the
-C     elements of the layers in it
-C
-      JBOX1=0        ! counter over the number of elements of layer #1 (1-20)
-      JBOX2=0        ! counter over the number of elements of layer #2 (1-40)
-C
-      DO I=1,10              ! number of carbon fiber supports (see sketch)
-C
-C --- Place part # 1-2 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(1)-XBEG(1))*(XEND(1)-XBEG(1))+
-     $   (YEND(1)-YBEG(1))*(YEND(1)-YBEG(1)))/20.
-         DSUP(3)=25.
-         XCC=(XX(1)+XX(2))/20.
-         YCC=(YY(1)+YY(2))/20.
-         XCCC=(XBEG(1)+XEND(1))/20.
-         YCCC=(YBEG(1)+YEND(1))/20.
-         IF(XX(1).EQ.XX(2)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(2)-YY(1),XX(2)-XX(1))*RADDEG-90.
-        ENDIF          
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA12=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+1),90.,ATHETA12,90.,
-     $   90.+ATHETA12,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+1,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+1),'ONLY',DSUP,3)
-C
-C --- Place part # 2-3 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(2)-XBEG(2))*(XEND(2)-XBEG(2))+
-     $   (YEND(2)-YBEG(2))*(YEND(2)-YBEG(2)))/20.
-         DSUP(3)=25.
-         XCC=(XX(2)+XX(3))/20.
-         YCC=(YY(2)+YY(3))/20.
-         XCCC=(XBEG(2)+XEND(2))/20.
-         YCCC=(YBEG(2)+YEND(2))/20.
-         IF(XX(2).EQ.XX(3)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(3)-YY(2),XX(3)-XX(2))*RADDEG-90.
-        ENDIF          
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA23=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+2),90.,ATHETA23,90.,
-     $   90.+ATHETA23,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+2,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+2),'ONLY',DSUP,3)
-C
-C --- Place an element of layer #2
-C
-         BIGA=(YY(3)-YY(2))/(XX(3)-XX(2))
-         BIGB=(XX(3)*YY(2)-XX(2)*YY(3))/(XX(3)-XX(2))/10.
-         COEFFA=(BIGA*BIGA+1.)
-         COEFFB=(BIGA*BIGB-BIGA*YCC-XCC)
-         COEFFC=(XCC*XCC+YCC*YCC-2.*YCC*BIGB+BIGB*BIGB-0.04713*0.04713)
-         XCC1=(-COEFFB+SQRT(COEFFB*COEFFB-COEFFA*COEFFC))/COEFFA
-         YCC1=BIGA*XCC1+BIGB
-         BIGA1=-1./BIGA
-         BIGB1=(XCC1/BIGA+YCC1)
-         COEFFA=(BIGA1*BIGA1+1.)
-         COEFFB=(BIGA1*BIGB1-BIGA1*YCC1-XCC1)
-         COEFFC=(XCC1*XCC1+YCC1*YCC1-2.*YCC1*BIGB1+BIGB1*BIGB1-
-     $   (DSUP(1)+DBOX2(1))*(DSUP(1)+DBOX2(1)))
-         XCC2=(-COEFFB+SQRT(COEFFB*COEFFB-COEFFA*COEFFC))/COEFFA
-         YCC2=BIGA1*XCC2+BIGB1
-         XPOS1=XCC2*COS(APHI)-YCC2*SIN(APHI)+XZERO
-         YPOS1=XCC2*SIN(APHI)+YCC2*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-        JBOX2=JBOX2+1
-        CALL GSPOS('IPV2',JBOX2,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+2),'ONLY')      
-C
-C --- Place part # 3-4 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(3)-XBEG(3))*(XEND(3)-XBEG(3))+
-     $   (YEND(3)-YBEG(3))*(YEND(3)-YBEG(3)))/20.
-         DSUP(3)=25.
-         XCC=(XX(2)+XX(3))/20.
-         YCC=(YY(2)+YY(3))/20.
-         XCCC=(XBEG(3)+XEND(3))/20.
-         YCCC=(YBEG(3)+YEND(3))/20.
-         IF(XX(3).EQ.XX(4)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(4)-YY(3),XX(4)-XX(3))*RADDEG-90.
-        ENDIF          
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA34=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+3),90.,ATHETA34,90.,
-     $   90.+ATHETA34,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+3,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+3),'ONLY',DSUP,3)
-C
-C --- Place part # 4-5 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(4)-XBEG(4))*(XEND(4)-XBEG(4))+
-     $   (YEND(4)-YBEG(4))*(YEND(4)-YBEG(4)))/20.
-         DSUP(3)=25.
-         XCC=(XX(4)+XX(5))/20.
-         YCC=(YY(4)+YY(5))/20.
-         XCCC=(XBEG(4)+XEND(4))/20.
-         YCCC=(YBEG(4)+YEND(4))/20.
-         IF(XX(4).EQ.XX(5)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(5)-YY(4),XX(5)-XX(4))*RADDEG-90.
-        ENDIF  
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA45=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+4),90.,ATHETA45,90.,
-     $   90.+ATHETA45,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+4,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+4),'ONLY',DSUP,3)
-C
-C --- Place an element of layer #2
-C
-        BIGA=(YY(5)-YY(4))/(XX(5)-XX(4))
-        BIGB=(XX(5)*YY(4)-XX(4)*YY(5))/(XX(5)-XX(4))/10.
-        COEFFA=(BIGA*BIGA+1.)
-        COEFFB=(BIGA*BIGB-BIGA*YCC-XCC)
-        COEFFC=(XCC*XCC+YCC*YCC-2.*YCC*BIGB+BIGB*BIGB-0.*0.)
-        XCC1=XCCC
-        YCC1=YCCC
-        BIGA1=-1./BIGA
-        BIGB1=(XCC1/BIGA+YCC1)
-        COEFFA=(BIGA1*BIGA1+1.)
-        COEFFB=(BIGA1*BIGB1-BIGA1*YCC1-XCC1)
-        COEFFC=(XCC1*XCC1+YCC1*YCC1-2.*YCC1*BIGB1+BIGB1*BIGB1-
-     $   (DSUP(1)+DBOX2(1))*(DSUP(1)+DBOX2(1)))
-        XCC2=(-COEFFB-SQRT(COEFFB*COEFFB-COEFFA*COEFFC))/COEFFA
-        YCC2=BIGA1*XCC2+BIGB1
-        XPOS1=XCC2*COS(APHI)-YCC2*SIN(APHI)+XZERO
-        YPOS1=XCC2*SIN(APHI)+YCC2*COS(APHI)+YZERO
-        XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-        YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-        ZPOS=0.
-        JBOX2=JBOX2+1
-        CALL GSPOS('IPV2',JBOX2,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+4),'ONLY')      
-C
-C --- Place part # 5-6 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(5)-XBEG(5))*(XEND(5)-XBEG(5))+
-     $   (YEND(5)-YBEG(5))*(YEND(5)-YBEG(5)))/20.
-         DSUP(3)=25.
-         XCC=(XX(5)+XX(6))/20.
-         YCC=(YY(5)+YY(6))/20.
-         XCCC=(XBEG(5)+XEND(5))/20.
-         YCCC=(YBEG(5)+YEND(5))/20.
-         IF(XX(5).EQ.XX(6)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(6)-YY(5),XX(6)-XX(5))*RADDEG-90.
-        ENDIF  
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA56=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+5),90.,ATHETA56,90.,
-     $   90.+ATHETA56,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+5,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+5),'ONLY',DSUP,3)
-C
-C --- Place part # 6-7 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(6)-XBEG(6))*(XEND(6)-XBEG(6))+
-     $   (YEND(6)-YBEG(6))*(YEND(6)-YBEG(6)))/20.
-         DSUP(3)=25.
-         XCC=(XX(6)+XX(7))/20.
-         YCC=(YY(6)+YY(7))/20.
-         XCCC=(XBEG(6)+XEND(6))/20.
-         YCCC=(YBEG(6)+YEND(6))/20.
-         IF(XX(6).EQ.XX(7)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(7)-YY(6),XX(7)-XX(6))*RADDEG-90.
-        ENDIF  
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA67=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+6),90.,ATHETA67,90.,
-     $   90.+ATHETA67,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+6,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+6),'ONLY',DSUP,3)
-C
-C --- Place an element of layer #2
-C
-         BIGA=(YY(7)-YY(6))/(XX(7)-XX(6))
-         BIGB=(XX(7)*YY(6)-XX(6)*YY(7))/(XX(7)-XX(6))/10.
-         COEFFA=(BIGA*BIGA+1.)
-         COEFFB=(BIGA*BIGB-BIGA*YCC-XCC)
-         COEFFC=(XCC*XCC+YCC*YCC-2.*YCC*BIGB+BIGB*BIGB-0.*0.)
-         XCC1=XCCC
-         YCC1=YCCC
-         BIGA1=-1./BIGA
-         BIGB1=(XCC1/BIGA+YCC1)
-         COEFFA=(BIGA1*BIGA1+1.)
-         COEFFB=(BIGA1*BIGB1-BIGA1*YCC1-XCC1)
-         COEFFC=(XCC1*XCC1+YCC1*YCC1-2.*YCC1*BIGB1+BIGB1*BIGB1-
-     $   (DSUP(1)+DBOX2(1))*(DSUP(1)+DBOX2(1)))
-         XCC2=(-COEFFB-DSQRT(COEFFB*COEFFB-COEFFA*COEFFC))/COEFFA
-         YCC2=BIGA1*XCC2+BIGB1
-         XPOS1=XCC2*COS(APHI)-YCC2*SIN(APHI)+XZERO
-         YPOS1=XCC2*SIN(APHI)+YCC2*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-        JBOX2=JBOX2+1
-        CALL GSPOS('IPV2',JBOX2,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+6),'ONLY')      
-C
-C --- Place part # 7-8 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(7)-XBEG(7))*(XEND(7)-XBEG(7))+
-     $        (YEND(7)-YBEG(7))*(YEND(7)-YBEG(7)))/20.
-         DSUP(3)=25.
-         XCC=(XX(7)+XX(8))/20.
-         YCC=(YY(7)+YY(8))/20.
-         XCCC=(XBEG(7)+XEND(7))/20.
-         YCCC=(YBEG(7)+YEND(7))/20.
-         IF(XX(7).EQ.XX(8)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(8)-YY(7),XX(8)-XX(7))*RADDEG-90.
-        ENDIF  
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA78=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+7),90.,ATHETA78,90.,
-     $   90.+ATHETA78,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+7,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+7),'ONLY',DSUP,3)
-C
-C --- Place part # 8-9 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(8)-XBEG(8))*(XEND(8)-XBEG(8))+
-     $        (YEND(8)-YBEG(8))*(YEND(8)-YBEG(8)))/20.
-         DSUP(3)=25.
-         XCC=(XX(8)+XX(9))/20.
-         YCC=(YY(8)+YY(9))/20.
-         XCCC=(XBEG(8)+XEND(8))/20.
-         YCCC=(YBEG(8)+YEND(8))/20.
-         IF(XX(2).EQ.XX(3)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(9)-YY(8),XX(9)-XX(8))*RADDEG-90.
-        ENDIF          
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA89=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+8),90.,ATHETA89,90.,
-     $        90.+ATHETA89,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+8,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+8),'ONLY',DSUP,3)
-C
-C --- Place an element of layer #2
-C
-         BIGA=(YY(9)-YY(8))/(XX(9)-XX(8))
-         BIGB=(XX(9)*YY(8)-XX(8)*YY(9))/(XX(9)-XX(8))/10.
-         COEFFA=(BIGA*BIGA+1.)
-         COEFFB=(BIGA*BIGB-BIGA*YCC-XCC)
-         COEFFC=(XCC*XCC+YCC*YCC-2.*YCC*BIGB+BIGB*BIGB-0.23564*0.23564)
-         XCC1=(-COEFFB-SQRT(COEFFB*COEFFB-COEFFA*COEFFC))/COEFFA
-         YCC1=BIGA*XCC1+BIGB
-         BIGA1=-1./BIGA
-         BIGB1=(XCC1/BIGA+YCC1)
-         COEFFA=(BIGA1*BIGA1+1.)
-         COEFFB=(BIGA1*BIGB1-BIGA1*YCC1-XCC1)
-         COEFFC=(XCC1*XCC1+YCC1*YCC1-2.*YCC1*BIGB1+BIGB1*BIGB1-
-     $   (DSUP(1)+DBOX2(1))*(DSUP(1)+DBOX2(1)))
-         XCC2=(-COEFFB-SQRT(COEFFB*COEFFB-COEFFA*COEFFC))/COEFFA
-         YCC2=BIGA1*XCC2+BIGB1
-         XPOS1=XCC2*COS(APHI)-YCC2*SIN(APHI)+XZERO
-         YPOS1=XCC2*SIN(APHI)+YCC2*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-        JBOX2=JBOX2+1
-        CALL GSPOS('IPV2',JBOX2,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+8),'ONLY')
-C
-C --- Place part # 9-10 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(9)-XBEG(9))*(XEND(9)-XBEG(9))+
-     $   (YEND(9)-YBEG(9))*(YEND(9)-YBEG(9)))/20.
-         DSUP(3)=25.
-         XCC=(XX(9)+XX(10))/20.
-         YCC=(YY(9)+YY(10))/20.
-         XCCC=(XBEG(9)+XEND(9))/20.
-         YCCC=(YBEG(9)+YEND(9))/20.
-         IF(XX(9).EQ.XX(10)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(10)-YY(9),XX(10)-XX(9))*RADDEG-90.
-        ENDIF  
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA910=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+9),90.,ATHETA910,90.,
-     $   90.+ATHETA910,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+9,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+9),'ONLY',DSUP,3)
-C
-C --- Place part # 12-13 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(12)-XBEG(12))*(XEND(12)-XBEG(12))+
-     $   (YEND(12)-YBEG(12))*(YEND(12)-YBEG(12)))/20.
-         DSUP(3)=25.
-         XCC=(XX(12)+XX(13))/20.
-         YCC=(YY(12)+YY(13))/20.
-         XCCC=(XBEG(12)+XEND(12))/20.
-         YCCC=(YBEG(12)+YEND(12))/20.
-         IF(XX(12).EQ.XX(13)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(13)-YY(12),XX(13)-XX(12))*RADDEG-90.
-        ENDIF  
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA1213=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+12),270.,ATHETA1213,90.,
-     $   270.+ATHETA1213,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+12,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+12),'ONLY',DSUP,3)
-C
-C --- Place an element of layer #1
-C
-        BIGA=(YY(13)-YY(12))/(XX(13)-XX(12))
-        BIGB=(XX(13)*YY(12)-XX(12)*YY(13))/(XX(13)-XX(12))/10.
-        COEFFA=(BIGA*BIGA+1.)
-        COEFFB=(BIGA*BIGB-BIGA*YCC-XCC)
-        COEFFC=(XCC*XCC+YCC*YCC-2.*YCC*BIGB+BIGB*BIGB-0.12567*0.12567)
-        XCC1=(-COEFFB+SQRT(COEFFB*COEFFB-COEFFA*COEFFC))/COEFFA
-        YCC1=BIGA*XCC1+BIGB
-        BIGA1=-1./BIGA
-        BIGB1=(XCC1/BIGA+YCC1)
-        COEFFA=(BIGA1*BIGA1+1.)
-        COEFFB=(BIGA1*BIGB1-BIGA1*YCC1-XCC1)
-        COEFFC=(XCC1*XCC1+YCC1*YCC1-2.*YCC1*BIGB1+BIGB1*BIGB1-
-     $   (DSUP(1)+DBOX1(1))*(DSUP(1)+DBOX1(1)))
-        XCC2=(-COEFFB+SQRT(COEFFB*COEFFB-COEFFA*COEFFC))/COEFFA
-        YCC2=BIGA1*XCC2+BIGB1
-        XPOS1=XCC2*COS(APHI)-YCC2*SIN(APHI)+XZERO
-        YPOS1=XCC2*SIN(APHI)+YCC2*COS(APHI)+YZERO
-        XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-        YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-        ZPOS=0.
-        JBOX1=JBOX1+1
-        CALL GSPOS('IPV1',JBOX1,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+12),'ONLY')
-C
-C --- Place part # 11-12 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(11)-XBEG(11))*(XEND(11)-XBEG(11))+
-     $   (YEND(11)-YBEG(11))*(YEND(11)-YBEG(11)))/20.
-         DSUP(3)=25.
-         XCC=(XX(11)+XX(12))/20.
-         YCC=(YY(11)+YY(12))/20.
-         XCCC=(XBEG(11)+XEND(11))/20.
-         YCCC=(YBEG(11)+YEND(11))/20.
-         IF(XX(11).EQ.XX(12)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(12)-YY(11),XX(12)-XX(11))*RADDEG-90.
-        ENDIF  
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA1112=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+11),90.,ATHETA1112,90.,
-     $   90.+ATHETA1112,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+11,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+11),'ONLY',DSUP,3)
-C
-C --- Place part # 10-11 (see sketch)
-C
-        OFFSET1=-27.
-         DSUP(1)=0.01
-         DSUP(2)=SQRT((XEND(10)-XBEG(10))*(XEND(10)-XBEG(10))+
-     $   (YEND(10)-YBEG(10))*(YEND(10)-YBEG(10)))/20.
-         DSUP(3)=25.
-         XCC=(XX(10)+XX(11))/20.
-         YCC=(YY(10)+YY(11))/20.
-         XCCC=(XBEG(10)+XEND(10))/20.
-         YCCC=(YBEG(10)+YEND(10))/20.
-         IF(XX(10).EQ.XX(11)) THEN
-            OFFSET2=0.
-         ELSE
-           OFFSET2=ATG(YY(11)-YY(10),XX(11)-XX(10))*RADDEG-90.
-        ENDIF  
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCCC*COS(APHI)-YCCC*SIN(APHI)+XZERO
-         YPOS1=XCCC*SIN(APHI)+YCCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         ATHETA1011=FLOAT(I-1)*36.+OFFSET1+OFFSET2-GTETA
-         CALL SXSROT(IDROTM(1100+(I-1)*13+10),270.,ATHETA1011,90.,
-     $   270.+ATHETA1011,0.,0.)
-         CALL GSPOSP('SPIX',(I-1)*13+10,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+10),'ONLY',DSUP,3)
-C
-C --- Place an element of layer #1
-C
-         BIGA=(YY(11)-YY(10))/(XX(11)-XX(10))
-         BIGB=(XX(11)*YY(10)-XX(10)*YY(11))/(XX(11)-XX(10))/10.
-         COEFFA=(BIGA*BIGA+1.)
-         COEFFB=(BIGA*BIGB-BIGA*YCC-XCC)
-         COEFFC=(XCC*XCC+YCC*YCC-2.*YCC*BIGB+BIGB*BIGB-0.001*0.001)
-         XCC1=(-COEFFB-SQRT(COEFFB*COEFFB-COEFFA*COEFFC))/COEFFA
-         YCC1=BIGA*XCC1+BIGB
-         BIGA1=-1./BIGA
-         BIGB1=(XCC1/BIGA+YCC1)
-         COEFFA=(BIGA1*BIGA1+1.)
-         COEFFB=(BIGA1*BIGB1-BIGA1*YCC1-XCC1)
-         COEFFC=(XCC1*XCC1+YCC1*YCC1-2.*YCC1*BIGB1+BIGB1*BIGB1-
-     $   (DSUP(1)+DBOX1(1))*(DSUP(1)+DBOX1(1)))
-         XCC2=(-COEFFB+SQRT(COEFFB*COEFFB-COEFFA*COEFFC))/COEFFA
-         YCC2=BIGA1*XCC2+BIGB1
-         XPOS1=XCC2*COS(APHI)-YCC2*SIN(APHI)+XZERO
-         YPOS1=XCC2*SIN(APHI)+YCC2*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-        JBOX1=JBOX1+1
-        CALL GSPOS('IPV1',JBOX1,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+10),'ONLY')
-C
-C --- Place arc # 5 (between part 1-2 and part 2-3) (see sketch)
-C
-        DARC(1)=RARC(5)/10.-0.02
-         DARC(2)=RARC(5)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA12+90.-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA23+90.-FLOAT(I-1)*(360./10.)
-         XCC=XARC(5)/10.
-         YCC=YARC(5)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+5,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+5),'ONLY',DARC,5)
-C
-C --- Place arc # 6 (between part 2-3 and part 3-4) (see sketch)
-C
-        DARC(1)=RARC(6)/10.-0.02
-         DARC(2)=RARC(6)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA23-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA34-FLOAT(I-1)*(360./10.)
-         XCC=XARC(6)/10.
-         YCC=YARC(6)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+6,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+6),'ONLY',DARC,5)
-C
-C --- Place arc # 7 (between part 3-4 and part 4-5) (see sketch)
-C
-        DARC(1)=RARC(7)/10.-0.02
-         DARC(2)=RARC(7)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA45+90.-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA34+90.-FLOAT(I-1)*(360./10.)
-         XCC=XARC(7)/10.
-         YCC=YARC(7)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+7,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+7),'ONLY',DARC,5)
-C
-C --- Place arc # 8 (between part 4-5 and part 5-6) (see sketch)
-C
-        DARC(1)=RARC(8)/10.-0.02
-         DARC(2)=RARC(8)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA56+180.-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA45+180.-FLOAT(I-1)*(360./10.)
-         XCC=XARC(8)/10.
-         YCC=YARC(8)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+8,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+8),'ONLY',DARC,5)
-C
-C --- Place arc # 9 (between part 5-6 and part 6-7) (see sketch)
-C
-        DARC(1)=RARC(9)/10.-0.02
-         DARC(2)=RARC(9)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA56-90.-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA67-90.-FLOAT(I-1)*(360./10.)
-         XCC=XARC(9)/10.
-         YCC=YARC(9)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+9,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+9),'ONLY',DARC,5)
-C
-C --- Place arc # 10 (between part 6-7 and part 7-8) (see sketch)
-C
-        DARC(1)=RARC(10)/10.-0.02
-         DARC(2)=RARC(10)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA67-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA78-FLOAT(I-1)*(360./10.)
-         XCC=XARC(10)/10.
-         YCC=YARC(10)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+10,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+10),'ONLY',DARC,5)
-C
-C --- Place arc # 11 (between part 7-8 and part 8-9) (see sketch)
-C
-        DARC(1)=RARC(11)/10.-0.02
-         DARC(2)=RARC(11)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA89-90.-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA78-90.-FLOAT(I-1)*(360./10.)
-         XCC=XARC(11)/10.
-         YCC=YARC(11)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+11,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+11),'ONLY',DARC,5)      
-C
-C --- Place arc # 12 (between part 8-9 and part 9-10) (see sketch)
-C
-        DARC(1)=RARC(12)/10.-0.02
-         DARC(2)=RARC(12)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA89-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA910-FLOAT(I-1)*(360./10.)
-         XCC=XARC(12)/10.
-         YCC=YARC(12)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+12,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+12),'ONLY',DARC,5)
-C
-C --- Place arc # 1 (between part 9-10 and part 10-11) (see sketch)
-C
-        DARC(1)=RARC(1)/10.-0.02
-         DARC(2)=RARC(1)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA1011+10.-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA910-120.-FLOAT(I-1)*(360./10.)
-         XCC=XARC(1)/10.
-         YCC=YARC(1)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+1,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+1),'ONLY',DARC,5)
-C
-C --- Place arc # 2 (between part 10-11 and part 11-12) (see sketch)
-C
-        DARC(1)=RARC(2)/10.-0.02
-         DARC(2)=RARC(2)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA1011-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA1112+45.-FLOAT(I-1)*(360./10.)
-         XCC=XARC(2)/10.
-         YCC=YARC(2)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+2,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+2),'ONLY',DARC,5)
-C
-C --- Place arc # 3 (between part 11-12 and part 12-13) (see sketch)
-C
-        DARC(1)=RARC(3)/10.-0.02
-         DARC(2)=RARC(3)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA1213+115.-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA1112+115.-FLOAT(I-1)*(360./10.)
-         XCC=XARC(3)/10.
-         YCC=YARC(3)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+3,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+3),'ONLY',DARC,5)
-C
-C --- Place arc # 4 (between part 12-13 and part 1-2) (see sketch)
-C
-        DARC(1)=RARC(4)/10.-0.02
-         DARC(2)=RARC(4)/10.
-         DARC(3)=25.
-         DARC(4)=ATHETA1213-FLOAT(I-1)*(360./10.)
-         DARC(5)=ATHETA12-FLOAT(I-1)*(360./10.)
-         XCC=XARC(4)/10.
-         YCC=YARC(4)/10.
-         APHI=(PPHI+FLOAT(I-1)*36.)*DEGRAD
-        XZERO=RR*COS((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-        YZERO=RR*SIN((TTETA+FLOAT(I-1)*36.)*DEGRAD)
-         XPOS1=XCC*COS(APHI)-YCC*SIN(APHI)+XZERO
-         YPOS1=XCC*SIN(APHI)+YCC*COS(APHI)+YZERO
-         XPOS=XPOS1*COS(GTETA*DEGRAD)+YPOS1*SIN(GTETA*DEGRAD)
-         YPOS=-XPOS1*SIN(GTETA*DEGRAD)+YPOS1*COS(GTETA*DEGRAD)
-         ZPOS=0.
-         CALL GSPOSP('SARC',(I-1)*13+4,'IT12',XPOS,YPOS,ZPOS,IDROTM(
-     $   1100+(I-1)*13+4),'ONLY',DARC,5)
-C              
-      END DO
-2345  CONTINUE
-C      
-C ************************************************************************
-C *                                                                      *
-C *                               D R I F T S                            *
-C *                               ===========                            *
-C *                                                                      *
-C ************************************************************************
-C
-C --- Define a ghost volume containing the Silicon Drift Detectors
-C     (layer #3 and #4) and fill it with air or vacuum
-C
-        XXM=(49.999-3.)/(70.-25.)
-        DGH(1)=0.
-        DGH(2)=360.
-        DGH(3)=4.
-        DGH(4)=-25.-(9.-3.01)/XXM-(9.01-9.)/XXM-(27.-9.01)/XXM
-        DGH(5)=27.
-        DGH(6)=27.
-        DGH(7)=-25.-(9.-3.01)/XXM-(9.01-9.)/XXM
-        DGH(8)=9.01
-        DGH(9)=27.
-        DGH(10)=25.+(9.-3.01)/XXM+(9.01-9.)/XXM
-        DGH(11)=9.01
-        DGH(12)=27.
-        DGH(13)=25.+(9.-3.01)/XXM+(9.01-9.)/XXM+(27.-9.01)/XXM
-        DGH(14)=27.
-        DGH(15)=27.
-        CALL GSVOLU('IT34','PCON',IDTMED(276),DGH,15,IOUT)
-C
-C --- Place the ghost volume in its mother volume (ITSV) and make it
-C     invisible
-C
-        CALL GSPOS('IT34',1,'ITSV',0.,0.,0.,0,'ONLY')
-        CALL GSATT('IT34','SEEN',0)
-C
-C --- Layer #3
-C
-C        GOTO 3456           ! skip ITS layer no. 3
-C
-C --- Define a ghost volume containing a single ladder of layer #3 (with the
-C     smaller lenght of ribs) and fill it with air or vacuum
-C
-      DBOX1(1)=0.5+(0.0172+0.03+0.0252+0.04+0.003)
-      DBOX1(2)=3.85      ! the widest element is the sensitive element
-      DBOX1(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5   ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IDV1','BOX ',IDTMED(229),DBOX1,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('IDV1','SEEN',0)
-C
-C --- Define a volume containing the sensitive part of drifts
-C     (silicon, layer #3)
-C
-      DITS(1)=0.0172     ! see material budget report by G. Feofilov
-      DITS(2)=3.85
-      DITS(3)=4.35
-      CALL GSVOLU('ITS3','BOX ',IDTMED(225),DITS,3,IOUT)
-C
-C --- Define the part of the (smaller) rib between two sensitive parts made of
-C     carbon (layer #3)
-C
-      DSUP(1)=0.5-DITS(1)
-      DSUP(2)=0.01
-      DSUP(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR11','BOX ',IDTMED(228),DSUP,3,IOUT)
-C
-C --- Define the first part of the (smaller) rib between two sensitive parts
-C     made of aluminum (layer #3)
-C
-      DAL1(1)=0.5-DITS(1)
-      DAL1(2)=0.00096/2.
-      DAL1(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR12','BOX ',IDTMED(231),DAL1,3,IOUT)
-C
-C --- Define the part of the (smaller) rib between two sensitive parts made of
-C     kapton (layer #3)
-C
-      DKAP(1)=0.5-DITS(1)
-      DKAP(2)=0.0317/2.
-      DKAP(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR13','BOX ',IDTMED(237),DKAP,3,IOUT)
-C
-C --- Define the second part of the (smaller) rib between two sensitive parts
-C     made of aluminum (layer #3)
-C
-      DAL2(1)=0.5-DITS(1)
-      DAL2(2)=0.0027/2.
-      DAL2(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR14','BOX ',IDTMED(231),DAL2,3,IOUT)
-C
-C --- Define the part of the (smaller) rib between two sensitive parts
-C     made of silicon (the electronics) (layer #3)
-C
-      DCHI(1)=0.5-DITS(1)
-      DCHI(2)=0.0071/2.
-      DCHI(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR15','BOX ',IDTMED(226),DAL2,3,IOUT)
-C
-C --- Define the part of the (smaller) rib between two sensitive parts
-C     made of water (the cooler) (layer #3)
-C
-      DWAT(1)=0.5-DITS(1)
-      DWAT(2)=0.0093/2.
-      DWAT(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5    ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR16','BOX ',IDTMED(232),DWAT,3,IOUT)
-C
-C --- Define the third part of the (smaller) rib between two sensitive parts
-C     made of aluminum (the cooling tubes) (layer #3)
-C
-      DTUB(1)=0.5-DITS(1)
-      DTUB(2)=0.00134/2.
-      DTUB(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR17','BOX ',IDTMED(231),DTUB,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of PCB (layer #3)
-C
-      DPCB(1)=0.03            ! twice the foreseen thickness
-      DPCB(2)=3.5
-      DPCB(3)=7.5
-      CALL GSVOLU('IEL1','BOX ',IDTMED(234),DPCB,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of copper (layer #3)
-C
-      DCOP(1)=0.0252            ! twice the foreseen thickness
-      DCOP(2)=3.5
-      DCOP(3)=7.5
-      CALL GSVOLU('IEL2','BOX ',IDTMED(235),DCOP,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of ceramics (layer #3)
-C
-      DCER(1)=0.04            ! twice the foreseen thickness
-      DCER(2)=3.5
-      DCER(3)=7.5
-      CALL GSVOLU('IEL3','BOX ',IDTMED(236),DCER,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of silicon (layer #3)
-C
-      DSIL(1)=0.003            ! twice the foreseen thickness
-      DSIL(2)=3.5
-      DSIL(3)=7.5
-      CALL GSVOLU('IEL4','BOX ',IDTMED(227),DSIL,3,IOUT)
-C
-C --- Place the sensitive part of the drifts (smaller ribs) into its mother
-C     (IDV1)
-C
-      YPOS=0.
-      DO J=1,5    ! odd elements are up and even elements are down
-        IF(J.EQ.1) THEN
-           XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)
-           ZPOS=0.-DITS(3)+1.-2.*DITS(3)-0.1-DITS(3)
-        ELSE IF(J.EQ.2) THEN
-           XPOS=-DBOX1(1)+DITS(1)      
-           ZPOS=0.-DITS(3)+1.-DITS(3)
-        ELSE IF(J.EQ.3) THEN
-           XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)    
-           ZPOS=0.
-        ELSE IF(J.EQ.4) THEN
-           XPOS=-DBOX1(1)+DITS(1)      
-           ZPOS=0.+DITS(3)-1.+DITS(3)
-        ELSE IF(J.EQ.5) THEN
-           XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)    
-           ZPOS=0.+DITS(3)-1.+2.*DITS(3)+0.1+DITS(3)
-        ENDIF
-        CALL GSPOS('ITS3',J,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')            
-      END DO
-C
-C --- Place the smaller ribs into their mother (IDV1)
-C
-C --- Right ribs (just a matter of convention)
-C
-      XPOS=0.5-DBOX1(1)+DITS(1)
-      ZPOS=0.
-C
-C --- Carbon
-C
-      YPOS=2.81
-      CALL GSPOS('IR11',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #1
-C
-      YPOS=2.81+DSUP(2)+DAL1(2)
-      CALL GSPOS('IR12',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Kapton
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+DKAP(2)
-      CALL GSPOS('IR13',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #2
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+DAL2(2)
-      CALL GSPOS('IR14',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (chip)
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+DCHI(2)
-      CALL GSPOS('IR15',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Water
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $DWAT(2)
-      CALL GSPOS('IR16',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #3
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $2.*DWAT(2)+DTUB(2)
-      CALL GSPOS('IR17',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right ribs (just a matter of convention)
-C
-C --- Carbon
-C
-      YPOS=-2.81
-      CALL GSPOS('IR11',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #1
-C
-      YPOS=-(2.81+DSUP(2)+DAL1(2))
-      CALL GSPOS('IR12',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Kapton
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+DKAP(2))
-      CALL GSPOS('IR13',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #2
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+DAL2(2))
-      CALL GSPOS('IR14',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (chip)
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+DCHI(2))
-      CALL GSPOS('IR15',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Water
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $DWAT(2))
-      CALL GSPOS('IR16',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #3
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $2.*DWAT(2)+DTUB(2))
-      CALL GSPOS('IR17',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the end-ladder stuff into its mother (IDV1)
-C
-C
-C --- Negative-Z end-ladder
-C
-      YPOS=0.
-      ZPOS=-(8.7*5.-2.*1.+2.*0.1)/2.-7.5
-C
-C --- PCB
-C
-      XPOS=DBOX1(1)-DPCB(1)
-      CALL GSPOS('IEL1',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-DCOP(1)
-      CALL GSPOS('IEL2',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Ceramics
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-DCER(1)
-      CALL GSPOS('IEL3',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-DSIL(1)
-      CALL GSPOS('IEL4',1,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Positive-Z end-ladder
-C
-      YPOS=0.
-      ZPOS=(8.7*5.-2.*1.+2.*0.1)/2.+7.5
-C
-C --- PCB
-C
-      XPOS=DBOX1(1)-DPCB(1)
-      CALL GSPOS('IEL1',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-DCOP(1)
-      CALL GSPOS('IEL2',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Ceramics
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-DCER(1)
-      CALL GSPOS('IEL3',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-DSIL(1)
-      CALL GSPOS('IEL4',2,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Define a ghost volume containing a single ladder of layer #3 (with the
-C     larger lenght of ribs) and fill it with air or vacuum
-C
-      DBOX2(1)=0.65+(0.0172+0.03+0.0252+0.04+0.003)
-      DBOX2(2)=3.85     ! the widest element is the sensitive element
-      DBOX2(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5   ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IDV2','BOX ',IDTMED(229),DBOX2,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('IDV2','SEEN',0)
-C
-C --- Define the part of the (larger) rib between two sensitive parts made of
-C     carbon (layer #3)
-C
-      DSUP(1)=0.65-DITS(1)
-      DSUP(2)=0.01
-      DSUP(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR21','BOX ',IDTMED(228),DSUP,3,IOUT)
-C
-C --- Define the first part of the (larger) rib between two sensitive parts
-C     made of aluminum (layer #3)
-C
-      DAL1(1)=0.65-DITS(1)
-      DAL1(2)=0.00096/2.
-      DAL1(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR22','BOX ',IDTMED(231),DAL1,3,IOUT)
-C
-C --- Define the part of the (larger) rib between two sensitive parts made of
-C     kapton (layer #3)
-C
-      DKAP(1)=0.65-DITS(1)
-      DKAP(2)=0.0317/2.
-      DKAP(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR23','BOX ',IDTMED(237),DKAP,3,IOUT)
-C
-C --- Define the second part of the (larger) rib between two sensitive parts
-C     made of aluminum (layer #3)
-C
-      DAL2(1)=0.65-DITS(1)
-      DAL2(2)=0.0027/2.
-      DAL2(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR24','BOX ',IDTMED(231),DAL2,3,IOUT)
-C
-C --- Define the part of the (larger) rib between two sensitive parts
-C     made of silicon (the electronics) (layer #3)
-C
-      DCHI(1)=0.65-DITS(1)
-      DCHI(2)=0.0071/2.
-      DCHI(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR25','BOX ',IDTMED(226),DAL2,3,IOUT)
-C
-C --- Define the part of the (larger) rib between two sensitive parts
-C     made of water (the cooler) (layer #3)
-C
-      DWAT(1)=0.65-DITS(1)
-      DWAT(2)=0.0093/2.
-      DWAT(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR26','BOX ',IDTMED(232),DWAT,3,IOUT)
-C
-C --- Define the third part of the (larger) rib between two sensitive parts
-C     made of aluminum (the cooling tubes) (layer #3)
-C
-      DTUB(1)=0.65-DITS(1)
-      DTUB(2)=0.00134/2.
-      DTUB(3)=(8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR27','BOX ',IDTMED(231),DTUB,3,IOUT)
-C
-C --- Place the sensitive part of the drifts (smaller ribs) into its mother
-C     (IDV2)
-C
-      YPOS=0.
-      DO J=1,5      ! odd element are up and even elements are down
-        IF(J.EQ.1) THEN
-           XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)
-           ZPOS=0.-DITS(3)+1.-2.*DITS(3)-0.1-DITS(3)
-        ELSE IF(J.EQ.2) THEN
-           XPOS=-DBOX2(1)+DITS(1)      
-           ZPOS=0.-DITS(3)+1.-DITS(3)
-        ELSE IF(J.EQ.3) THEN
-           XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)    
-           ZPOS=0.
-        ELSE IF(J.EQ.4) THEN
-           XPOS=-DBOX2(1)+DITS(1)      
-           ZPOS=0.+DITS(3)-1.+DITS(3)
-        ELSE IF(J.EQ.5) THEN
-           XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)    
-           ZPOS=0.+DITS(3)-1.+2.*DITS(3)+0.1+DITS(3)
-        ENDIF
-        CALL GSPOS('ITS3',J,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')            
-      END DO
-C
-C --- Place the larger ribs into their mother (IDV2)
-C
-C
-C --- Right ribs (just a matter of convention)
-C
-      XPOS=0.65-DBOX2(1)+DITS(1)
-      ZPOS=0.
-C
-C --- Carbon
-C
-      YPOS=2.81
-      CALL GSPOS('IR21',1,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #1
-C
-      YPOS=2.81+DSUP(2)+DAL1(2)
-      CALL GSPOS('IR22',1,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Kapton
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+DKAP(2)
-      CALL GSPOS('IR23',1,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #2
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+DAL2(2)
-      CALL GSPOS('IR24',1,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (chip)
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+DCHI(2)
-      CALL GSPOS('IR25',1,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Water
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $DWAT(2)
-      CALL GSPOS('IR26',1,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #3
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $2.*DWAT(2)+DTUB(2)
-      CALL GSPOS('IR27',1,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right ribs (just a matter of convention)
-C
-C --- Carbon
-C
-      YPOS=-2.81
-      CALL GSPOS('IR21',2,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #1
-C
-      YPOS=-(2.81+DSUP(2)+DAL1(2))
-      CALL GSPOS('IR22',2,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Kapton
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+DKAP(2))
-      CALL GSPOS('IR23',2,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #2
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+DAL2(2))
-      CALL GSPOS('IR24',2,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (chip)
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+DCHI(2))
-      CALL GSPOS('IR25',2,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Water
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $DWAT(2))
-      CALL GSPOS('IR26',2,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #3
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $2.*DWAT(2)+DTUB(2))
-      CALL GSPOS('IR27',2,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the end-ladder stuff into its mother (IDV1)
-C
-C
-C --- Negative-Z end-ladder
-C
-      YPOS=0.
-      ZPOS=-(8.7*5.-2.*1.+2.*0.1)/2.-7.5
-C
-C --- PCB
-C
-      XPOS=DBOX2(1)-DPCB(1)
-      CALL GSPOS('IEL1',3,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-DCOP(1)
-      CALL GSPOS('IEL2',3,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Ceramics
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-DCER(1)
-      CALL GSPOS('IEL3',3,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-DSIL(1)
-      CALL GSPOS('IEL4',3,'IDV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Positive-Z end-ladder
-C
-      YOS=0.
-      ZPOS=(8.7*5.-2.*1.+2.*0.1)/2.+7.5
-C
-C --- PCB
-C
-      XPOS=DBOX2(1)-DPCB(1)
-      CALL GSPOS('IEL1',4,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-DCOP(1)
-      CALL GSPOS('IEL2',4,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Ceramics
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-DCER(1)
-      CALL GSPOS('IEL3',4,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-DSIL(1)
-      CALL GSPOS('IEL4',4,'IDV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the ghost volumes containing the drift ladders of layer #3 in their
-C     mother volume (IT34)
-C     Odd elements have large ribs and even elements have small ribs
-C
-      DO I=1,12
-        ATHETA=FLOAT(I-1)*(360./12.)
-        CALL SXSROT(IDROTM(1300+I),90.,ATHETA,90.,90.+ATHETA,0.,0.)
-        IF(MOD(I,2).EQ.0) THEN
-           RZERO=(14.5+13.5)/2.
-          XPOS=RZERO*COS(TWOPI*FLOAT(I-1)/12.)
-          YPOS=RZERO*SIN(TWOPI*FLOAT(I-1)/12.)
-          ZPOS=0.
-          CALL GSPOS('IDV1',I,'IT34',XPOS,YPOS,ZPOS,IDROTM(1300+I),
-     $     'ONLY')
-        ELSE
-           RZERO=(14.5+13.2)/2.        
-          XPOS=RZERO*COS(TWOPI*FLOAT(I-1)/12.)
-          YPOS=RZERO*SIN(TWOPI*FLOAT(I-1)/12.)
-          ZPOS=0.
-          CALL GSPOS('IDV2',I,'IT34',XPOS,YPOS,ZPOS,IDROTM(1300+I),
-     $     'ONLY')                     
-       ENDIF
-      ENDDO
-C
-3456  CONTINUE
-C
-C --- Layer #4
-C
-C        GOTO 4567           ! skip ITS layer no. 4
-C
-C --- Define a ghost volume containing a single ladder of layer #4 (with the
-C     smaller lenght of ribs) and fill it with air or vacuum
-C
-      DBOX1(1)=0.5+(0.0172+0.03+0.0252+0.04+0.003)
-      DBOX1(2)=3.5       ! the widest element is the end-ladder stuff
-      DBOX1(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5          ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IDV3','BOX ',IDTMED(229),DBOX1,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('IDV3','SEEN',0)
-C
-C --- Define a volume containing the sensitive part of drifts
-C     (silicon, layer #4)
-C
-      DITS(1)=0.0172     ! see material budget report by G. Feofilov
-      DITS(2)=3.125
-      DITS(3)=4.35
-      CALL GSVOLU('ITS4','BOX ',IDTMED(225),DITS,3,IOUT)
-C
-C --- Define the part of the (smaller) rib between two sensitive parts made of
-C     carbon (layer #4)
-C
-      DSUP(1)=0.5-DITS(1)
-      DSUP(2)=0.01
-      DSUP(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR31','BOX ',IDTMED(228),DSUP,3,IOUT)
-C
-C --- Define the first part of the (smaller) rib between two sensitive parts
-C     made of aluminum (layer #4)
-C
-      DAL1(1)=0.5-DITS(1)
-      DAL1(2)=0.00096/2.
-      DAL1(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR32','BOX ',IDTMED(231),DAL1,3,IOUT)
-C
-C --- Define the part of the (smaller) rib between two sensitive parts made of
-C     kapton (layer #4)
-C
-      DKAP(1)=0.5-DITS(1)
-      DKAP(2)=0.0317/2.
-      DKAP(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR33','BOX ',IDTMED(237),DKAP,3,IOUT)
-C
-C --- Define the second part of the (smaller) rib between two sensitive parts
-C     made of aluminum (layer #4)
-C
-      DAL2(1)=0.5-DITS(1)
-      DAL2(2)=0.0027/2.
-      DAL2(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR34','BOX ',IDTMED(231),DAL2,3,IOUT)
-C
-C --- Define the part of the (smaller) rib between two sensitive parts
-C     made of silicon (the electronics) (layer #4)
-C
-      DCHI(1)=0.5-DITS(1)
-      DCHI(2)=0.0071/2.
-      DCHI(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR35','BOX ',IDTMED(226),DAL2,3,IOUT)
-C
-C --- Define the part of the (smaller) rib between two sensitive parts
-C     made of water (the cooler) (layer #4)
-C
-      DWAT(1)=0.5-DITS(1)
-      DWAT(2)=0.0093/2.
-      DWAT(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5    ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR36','BOX ',IDTMED(232),DWAT,3,IOUT)
-C
-C --- Define the third part of the (smaller) rib between two sensitive parts
-C     made of aluminum (the cooling tubes) (layer #4)
-C
-      DTUB(1)=0.5-DITS(1)
-      DTUB(2)=0.00134/2.
-      DTUB(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR37','BOX ',IDTMED(231),DTUB,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of PCB (layer #4)
-C
-      DPCB(1)=0.03            ! twice the foreseen thickness
-      DPCB(2)=3.5
-      DPCB(3)=7.5
-      CALL GSVOLU('IEL5','BOX ',IDTMED(234),DPCB,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of copper (layer #4)
-C
-      DCOP(1)=0.0252            ! twice the foreseen thickness
-      DCOP(2)=3.5
-      DCOP(3)=7.5
-      CALL GSVOLU('IEL6','BOX ',IDTMED(235),DCOP,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of ceramics (layer #4)
-C
-      DCER(1)=0.04            ! twice the foreseen thickness
-      DCER(2)=3.5
-      DCER(3)=7.5
-      CALL GSVOLU('IEL7','BOX ',IDTMED(236),DCER,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of silicon (layer #4)
-C
-      DSIL(1)=0.003            ! twice the foreseen thickness
-      DSIL(2)=3.5
-      DSIL(3)=7.5
-      CALL GSVOLU('IEL8','BOX ',IDTMED(227),DSIL,3,IOUT)
-C
-C --- Place the sensitive part of the drifts (smaller ribs) into its mother
-C     (IDV3)
-C
-      YPOS=0.
-      DO J=1,7    ! odd elements are down and even elements are up
-        IF(J.EQ.1) THEN
-           XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)
-           ZPOS=0.-DITS(3)+0.7-2.*DITS(3)-0.-2.*DITS(3)+1.3-DITS(3)
-        ELSE IF(J.EQ.2) THEN
-           XPOS=-DBOX1(1)+DITS(1)      
-           ZPOS=0.-DITS(3)+0.7-2.*DITS(3)-0.-DITS(3)
-        ELSE IF(J.EQ.3) THEN
-           XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)    
-           ZPOS=0.-DITS(3)+0.7-DITS(3)
-        ELSE IF(J.EQ.4) THEN
-           XPOS=-DBOX1(1)+DITS(1)      
-           ZPOS=0.
-        ELSE IF(J.EQ.5) THEN
-           XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)    
-           ZPOS=0.+DITS(3)-0.7+DITS(3)         
-        ELSE IF(J.EQ.6) THEN
-           XPOS=-DBOX1(1)+DITS(1)              
-           ZPOS=0.+DITS(3)-0.7+2.*DITS(3)+0.+DITS(3)
-        ELSE IF(J.EQ.7) THEN
-           XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)    
-           ZPOS=0.+DITS(3)-0.7+2.*DITS(3)+0.+2.*DITS(3)-1.3+DITS(3)
-        ENDIF
-        CALL GSPOS('ITS4',J,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')            
-      END DO
-C
-C --- Place the smaller ribs into their mother (IDV3)
-C
-C --- Right ribs (just a matter of convention)
-C
-      XPOS=0.5-DBOX1(1)+DITS(1)
-      ZPOS=0.
-C
-C --- Carbon
-C
-      YPOS=2.81
-      CALL GSPOS('IR31',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #1
-C
-      YPOS=2.81+DSUP(2)+DAL1(2)
-      CALL GSPOS('IR32',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Kapton
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+DKAP(2)
-      CALL GSPOS('IR33',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #2
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+DAL2(2)
-      CALL GSPOS('IR34',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (chip)
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+DCHI(2)
-      CALL GSPOS('IR35',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Water
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $DWAT(2)
-      CALL GSPOS('IR36',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #3
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $2.*DWAT(2)+DTUB(2)
-      CALL GSPOS('IR37',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right ribs (just a matter of convention)
-C
-C --- Carbon
-C
-      YPOS=-2.81
-      CALL GSPOS('IR31',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #1
-C
-      YPOS=-(2.81+DSUP(2)+DAL1(2))
-      CALL GSPOS('IR32',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Kapton
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+DKAP(2))
-      CALL GSPOS('IR33',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #2
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+DAL2(2))
-      CALL GSPOS('IR34',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (chip)
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+DCHI(2))
-      CALL GSPOS('IR35',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Water
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $DWAT(2))
-      CALL GSPOS('IR36',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #3
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $2.*DWAT(2)+DTUB(2))
-      CALL GSPOS('IR37',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the end-ladder stuff into its mother (IDV1)
-C
-C
-C --- Negative-Z end-ladder
-C
-      YPOS=0.
-      ZPOS=-(8.7*7.-2.*0.7-2.*1.3)/2.-7.5
-C
-C --- PCB
-C
-      XPOS=DBOX1(1)-DPCB(1)
-      CALL GSPOS('IEL5',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-DCOP(1)
-      CALL GSPOS('IEL6',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Ceramics
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-DCER(1)
-      CALL GSPOS('IEL7',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-DSIL(1)
-      CALL GSPOS('IEL8',1,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Positive-Z end-ladder
-C
-      YPOS=0.
-      ZPOS=(8.7*7.-2.*0.7-2.*1.3)/2.+7.5
-C
-C --- PCB
-C
-      XPOS=DBOX1(1)-DPCB(1)
-      CALL GSPOS('IEL5',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-DCOP(1)
-      CALL GSPOS('IEL6',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Ceramics
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-DCER(1)
-      CALL GSPOS('IEL7',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-      XPOS=DBOX1(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-DSIL(1)
-      CALL GSPOS('IEL8',2,'IDV3',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Define a ghost volume containing a single ladder of layer #4 (with the
-C     larger lenght of ribs) and fill it with air or vacuum
-C
-      DBOX2(1)=0.65+(0.0172+0.03+0.0252+0.04+0.003)
-      DBOX2(2)=3.5       ! the widest element is the end-ladder stuff
-      DBOX2(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5          ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IDV4','BOX ',IDTMED(229),DBOX2,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('IDV4','SEEN',0)
-C
-C --- Define the part of the (larger) rib between two sensitive parts made of
-C     carbon (layer #4)
-C
-      DSUP(1)=0.65-DITS(1)
-      DSUP(2)=0.01
-      DSUP(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR41','BOX ',IDTMED(228),DSUP,3,IOUT)
-C
-C --- Define the first part of the (larger) rib between two sensitive parts
-C     made of aluminum (layer #4)
-C
-      DAL1(1)=0.65-DITS(1)
-      DAL1(2)=0.00096/2.
-      DAL1(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR42','BOX ',IDTMED(231),DAL1,3,IOUT)
-C
-C --- Define the part of the (larger) rib between two sensitive parts made of
-C     kapton (layer #4)
-C
-      DKAP(1)=0.65-DITS(1)
-      DKAP(2)=0.0317/2.
-      DKAP(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR43','BOX ',IDTMED(237),DKAP,3,IOUT)
-C
-C --- Define the second part of the (larger) rib between two sensitive parts
-C     made of aluminum (layer #4)
-C
-      DAL2(1)=0.65-DITS(1)
-      DAL2(2)=0.0027/2.
-      DAL2(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR44','BOX ',IDTMED(231),DAL2,3,IOUT)
-C
-C --- Define the part of the (larger) rib between two sensitive parts
-C     made of silicon (the electronics) (layer #4)
-C
-      DCHI(1)=0.65-DITS(1)
-      DCHI(2)=0.0071/2.
-      DCHI(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR45','BOX ',IDTMED(226),DAL2,3,IOUT)
-C
-C --- Define the part of the (larger) rib between two sensitive parts
-C     made of water (the cooler) (layer #4)
-C
-      DWAT(1)=0.65-DITS(1)
-      DWAT(2)=0.0093/2.
-      DWAT(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR46','BOX ',IDTMED(232),DWAT,3,IOUT)
-C
-C --- Define the third part of the (larger) rib between two sensitive parts
-C     made of aluminum (the cooling tubes) (layer #4)
-C
-      DTUB(1)=0.65-DITS(1)
-      DTUB(2)=0.00134/2.
-      DTUB(3)=(8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5     ! 7.5 cm is the lenght of the end-ladder module
-      CALL GSVOLU('IR47','BOX ',IDTMED(231),DTUB,3,IOUT)
-C
-C --- Place the sensitive part of the drifts (smaller ribs) into its mother
-C     (IDV4)
-C
-      YPOS=0.
-      DO J=1,7    ! odd elements are down and even elements are up
-        IF(J.EQ.1) THEN
-           XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)
-           ZPOS=0.-DITS(3)+0.7-2.*DITS(3)-0.-2.*DITS(3)+1.3-DITS(3)
-        ELSE IF(J.EQ.2) THEN
-           XPOS=-DBOX2(1)+DITS(1)      
-           ZPOS=0.-DITS(3)+0.7-2.*DITS(3)-0.-DITS(3)
-        ELSE IF(J.EQ.3) THEN
-           XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)    
-           ZPOS=0.-DITS(3)+0.7-DITS(3)
-        ELSE IF(J.EQ.4) THEN
-           XPOS=-DBOX2(1)+DITS(1)      
-           ZPOS=0.
-        ELSE IF(J.EQ.5) THEN
-           XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)    
-           ZPOS=0.+DITS(3)-0.7+DITS(3)         
-        ELSE IF(J.EQ.6) THEN
-           XPOS=-DBOX2(1)+DITS(1)      
-           ZPOS=0.+DITS(3)-0.7+2.*DITS(3)+0.+DITS(3)
-        ELSE IF(J.EQ.7) THEN
-           XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-2.*DSIL(1)-
-     $      DITS(1)    
-           ZPOS=0.+DITS(3)-0.7+2.*DITS(3)+0.+2.*DITS(3)-1.3+DITS(3)
-        ENDIF
-        CALL GSPOS('ITS4',J,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')            
-      END DO
-C
-C --- Place the larger ribs into their mother (IDV4)
-C
-C
-C --- Right ribs (just a matter of convention)
-C
-      XPOS=0.65-DBOX2(1)+DITS(1)
-      ZPOS=0.
-C
-C --- Carbon
-C
-      YPOS=2.81
-      CALL GSPOS('IR41',1,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #1
-C
-      YPOS=2.81+DSUP(2)+DAL1(2)
-      CALL GSPOS('IR42',1,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Kapton
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+DKAP(2)
-      CALL GSPOS('IR43',1,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #2
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+DAL2(2)
-      CALL GSPOS('IR44',1,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (chip)
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+DCHI(2)
-      CALL GSPOS('IR45',1,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Water
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $DWAT(2)
-      CALL GSPOS('IR46',1,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #3
-C
-      YPOS=2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $2.*DWAT(2)+DTUB(2)
-      CALL GSPOS('IR47',1,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right ribs (just a matter of convention)
-C
-C --- Carbon
-C
-      YPOS=-2.81
-      CALL GSPOS('IR41',2,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #1
-C
-      YPOS=-(2.81+DSUP(2)+DAL1(2))
-      CALL GSPOS('IR42',2,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Kapton
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+DKAP(2))
-      CALL GSPOS('IR43',2,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #2
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+DAL2(2))
-      CALL GSPOS('IR44',2,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (chip)
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+DCHI(2))
-      CALL GSPOS('IR45',2,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Water
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $DWAT(2))
-      CALL GSPOS('IR46',2,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Aluminum #3
-C
-      YPOS=-(2.81+DSUP(2)+2.*DAL1(2)+2.*DKAP(2)+2.*DAL2(2)+2.*DCHI(2)+
-     $2.*DWAT(2)+DTUB(2))
-      CALL GSPOS('IR47',2,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the end-ladder stuff into its mother (IDV1)
-C
-C
-C --- Negative-Z end-ladder
-C
-      YPOS=0.
-      ZPOS=-(8.7*7.-2.*0.7-2.*1.3)/2.-7.5
-C
-C --- PCB
-C
-      XPOS=DBOX2(1)-DPCB(1)
-      CALL GSPOS('IEL5',3,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-DCOP(1)
-      CALL GSPOS('IEL6',3,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Ceramics
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-DCER(1)
-      CALL GSPOS('IEL7',3,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-DSIL(1)
-      CALL GSPOS('IEL8',3,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Positive-Z end-ladder
-C
-      YOS=0.
-      ZPOS=(8.7*7.-2.*0.7-2.*1.3)/2.+7.5
-C
-C --- PCB
-C
-      XPOS=DBOX2(1)-DPCB(1)
-      CALL GSPOS('IEL5',4,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-DCOP(1)
-      CALL GSPOS('IEL6',4,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Ceramics
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-DCER(1)
-      CALL GSPOS('IEL7',4,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-      XPOS=DBOX2(1)-2.*DPCB(1)-2.*DCOP(1)-2.*DCER(1)-DSIL(1)
-      CALL GSPOS('IEL8',4,'IDV4',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the ghost volumes containing the drift ladders of layer #4 in their
-C     mother volume (IT34)
-C     Odd elements have large ribs and even elements have small ribs
-C
-      DO I=1,24
-        ATHETA=FLOAT(I-1)*(360./24.)
-        CALL SXSROT(IDROTM(1400+I),90.,ATHETA,90.,90.+ATHETA,0.,0.)
-        IF(MOD(I,2).EQ.0) THEN
-           RZERO=(24.0+23.0)/2.
-          XPOS=RZERO*COS(TWOPI*FLOAT(I-1)/24.)
-          YPOS=RZERO*SIN(TWOPI*FLOAT(I-1)/24.)
-          ZPOS=0.
-          CALL GSPOS('IDV3',I,'IT34',XPOS,YPOS,ZPOS,IDROTM(1400+I),
-     $     'ONLY')
-        ELSE
-           RZERO=(24.0+22.8)/2.        
-          XPOS=RZERO*COS(TWOPI*FLOAT(I-1)/24.)
-          YPOS=RZERO*SIN(TWOPI*FLOAT(I-1)/24.)
-          ZPOS=0.
-          CALL GSPOS('IDV4',I,'IT34',XPOS,YPOS,ZPOS,IDROTM(1400+I),
-     $     'ONLY')                     
-       ENDIF
-      ENDDO
-C
-4567  CONTINUE
-C      
-C ************************************************************************
-C *                                                                      *
-C *                               S T R I P S                            *
-C *                               ===========                            *
-C *                                                                      *
-C ************************************************************************
-C
-C
-C --- Define SSD with the 35+39 lay-out
-C
-      IF(IVERS.EQ.40 .OR. IVERS.EQ.41 .OR. IVERS.EQ.42) THEN   
-C
-C --- Define ghost volume containing the Strip Detectors and fill it with air
-C     or vacuum
-C
-        XXM=(49.999-3.)/(70.-25.)
-        DGH(1)=0.
-        DGH(2)=360.
-        DGH(3)=4.
-        DGH(4)=-25.-(9.-3.01)/XXM-(9.01-9.)/XXM-(27.-9.01)/XXM-
-     $  (37.-27)/XXM-(49.998-37.)/XXM
-        DGH(5)=49.998
-        DGH(6)=49.998
-        DGH(7)=-25.-(9.-3.01)/XXM-(9.01-9.)/XXM-(27.-9.01)/XXM-
-     $  (37.-27)/XXM
-        DGH(8)=37.
-        DGH(9)=49.998
-        DGH(10)=25.+(9.-3.01)/XXM+(9.01-9.)/XXM+(27.-9.01)/XXM+
-     $  (37.-27)/XXM
-        DGH(11)=37.
-        DGH(12)=49.998
-        DGH(13)=25.+(9.-3.01)/XXM+(9.01-9.)/XXM+(27.-9.01)/XXM+
-     $  (37.-27)/XXM+(49.998-37.)/XXM
-        DGH(14)=49.998
-        DGH(15)=49.998
-        CALL GSVOLU('IT56','PCON',IDTMED(276),DGH,15,IOUT)
-        CALL GSPOS('IT56',1,'ITSV',0.,0.,0.,0,'ONLY')
-        CALL GSATT('IT56','SEEN',0)
-C
-C --- Layer #5
-C
-C        GOTO 5678           ! skip ITS layer no. 5
-C
-C --- Define a ghost volume containing a single ladder of layer #5 and fill
-C     it with air or vacuum
-C
-        DBOX1(1)=(0.0600+2.*0.0150)/2.
-        DBOX1(2)=3.75
-        DBOX1(3)=90.22/2.
-        CALL GSVOLU('ISV1','BOX ',IDTMED(254),DBOX1,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('ISV1','SEEN',0)
-C
-C --- Define a ghost volume containing the electronics and cooling of
-C     a single ladder of layer #5 and fill it with air or vacuum
-C
-        DSRV(1)=(0.47+(SQRT(3.)/2.)*4.2+0.05)/2.
-        DSRV(2)=3.75
-        DSRV(3)=90.22/2.
-        CALL GSVOLU('SSV1','BOX ',IDTMED(254),DSRV,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('SSV1','SEEN',0)
-C
-C --- Define a ghost volume containing the end-ladder stuff of
-C     a single ladder of layer #5 and fill it with air or vacuum
-C
-        DELA(1)=2.
-        DELA(2)=3.5
-        DELA(3)=4.0
-        CALL GSVOLU('ELL5','BOX ',IDTMED(254),DELA,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('ELL5','SEEN',0)
-C
-C --- Define a volume containing the sensitive part of the strips
-C     (silicon, layer #5)
-C
-        DITS(1)=0.0150
-        DITS(2)=3.75
-        DITS(3)=2.1
-        CALL GSVOLU('ITS5','BOX ',IDTMED(250),DITS,3,IOUT)
-C
-C --- Define a volume containing the electronics of the strips
-C     (silicon, layer #5)
-C
-        DCHI(1)=0.02
-        DCHI(2)=3.4
-        DCHI(3)=0.525
-        CALL GSVOLU('SCH5','BOX ',IDTMED(251),DCHI,3,IOUT)
-C
-C --- Define the cooling tubes (aluminum, layer #5)
-C
-        DTUB(1)=0.09
-        DTUB(2)=DTUB(1)+0.01
-        DTUB(3)=90.22/2.
-        CALL GSVOLU('STB5','TUBE',IDTMED(256),DTUB,3,IOUT)
-C
-C --- Define the cooling fluid (water or freon, layer #5)
-C
-        DWAT(1)=0.
-        DWAT(2)=0.09
-        DWAT(3)=90.22/2.
-        CALL GSVOLU('SWT5','TUBE',IDTMED(257),DWAT,3,IOUT)   ! water
-C        CALL GSVOLU('SWT5','TUBE',IDTMED(258),DWAT,3,IOUT)   ! freon
-C
-C --- Define the (triangular) element of the heat bridge (carbon, layer #5)
-C
-        DFRA(1)=120.
-        DFRA(2)=360.
-        DFRA(3)=3.
-        DFRA(4)=2.
-        DFRA(5)=-0.015
-        DFRA(6)=4.2*SQRT(3.)/6.
-        DFRA(7)=DFRA(6)+0.03
-        DFRA(8)=0.015
-        DFRA(9)=DFRA(6)
-        DFRA(10)=DFRA(7)
-        CALL GSVOLU('SFR5','PGON',IDTMED(253),DFRA,10,IOUT)
-C
-C --- Define the element connecting the triangles of the heat bridge
-C     (carbon, layer #5)
-C
-        DCEI(1)=0.
-        DCEI(2)=0.03
-        DCEI(3)=90.22/2.
-        CALL GSVOLU('SCE5','TUBE',IDTMED(253),DCEI,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of plastic (G10FR4)
-C     (layer #5)
-C
-       DPLA(1)=(10./(8.*7.))/2.
-       DPLA(2)=3.5
-       DPLA(3)=4.
-       CALL GSVOLU('EPL5','BOX ',IDTMED(263),DPLA,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of copper (layer #5)
-C
-       DCOP(1)=(2./(8.*7.))/2.
-       DCOP(2)=3.5
-       DCOP(3)=4.
-       CALL GSVOLU('ECU5','BOX ',IDTMED(260),DCOP,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of epoxy (layer #5)
-C
-       DEPX(1)=(30./(8.*7.))/2.
-       DEPX(2)=3.5
-       DEPX(3)=4.
-       CALL GSVOLU('EPX5','BOX ',IDTMED(263),DEPX,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of silicon (bus)
-C     (layer #5)
-C
-       DSIL(1)=(20./(8.*7.))/2.
-       DSIL(2)=3.5
-       DSIL(3)=4.
-       CALL GSVOLU('ESI5','BOX ',IDTMED(252),DSIL,3,IOUT)
-C
-C --- Place the end-ladder stuff into its mother (ELL5)
-C
-        SEP=(4.-2.*(DPLA(1)+DCOP(1)+DEPX(1)+DSIL(1)))/3.
-       YPOS=0.
-       ZPOS=0.
-C
-C --- Plastic
-C
-       XPOS=-DELA(1)+DPLA(1)
-       CALL GSPOS('EPL5',1,'ELL5',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+DCOP(1)
-       CALL GSPOS('ECU5',1,'ELL5',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Epoxy
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+2.*DCOP(1)+SEP+DEPX(1)
-       CALL GSPOS('EPX5',1,'ELL5',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+2.*DCOP(1)+SEP+2.*DEPX(1)+
-     $  SEP+DSIL(1)
-       CALL GSPOS('ESI5',1,'ELL5',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the sensitive part of the strips into its mother (ISV1)
-C
-        YPOS=0.
-        DO J=1,23
-          IF(MOD(J,2).EQ.0) THEN
-           XPOS=DBOX1(1)-DITS(1)
-         ELSE
-           XPOS=-DBOX1(1)+DITS(1)
-          ENDIF
-         ZPOS=(-11.+FLOAT(J-1))*3.91
-         CALL GSPOS('ITS5',J,'ISV1',XPOS,YPOS,ZPOS,0,'ONLY')
-        END DO
-C
-C --- Place the electronics of the strips into its mother (SSV1)
-C
-        YPOS=0.
-        DO J=1,23
-          IF(MOD(J,2).EQ.0) THEN
-           XPOS=-DSRV(1)+0.28
-         ELSE
-           XPOS=-DSRV(1)+0.28-2.*DITS(1)-0.03
-          ENDIF
-         ZPOS=(-11.+FLOAT(J-1))*3.91+0.85
-         CALL GSPOS('SCH5',J,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-        END DO         
-C
-C --- Place the cooling tubes and the cooling fluid into their mother (SSV1)
-C
-      XPOS=-DSRV(1)+0.41
-      ZPOS=0.
-C
-C --- Left tube (just a matter of convention)
-C
-      YPOS=-2.25-0.1
-      CALL GSPOS('STB5',1,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-      CALL GSPOS('SWT5',1,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right tube (just a matter of convention)
-C
-      YPOS=2.25+0.1
-      CALL GSPOS('STB5',2,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-      CALL GSPOS('SWT5',2,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the heat bridge elements into their mother (SSV1)
-C
-      XPOS=-DSRV(1)+0.47+(SQRT(3.)/6.)*4.2
-      YPOS=0.
-      DO J=1,24
-         ZPOS=(-11.+FLOAT(J-1))*3.91-4.2/2.
-        CALL GSPOS('SFR5',J,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-      END DO
-C
-C --- Place the elements connecting the triangles of the heat bridge
-C     into their mother (SSV1)
-C
-      ZPOS=0.
-C
-C --- Left element (just a matter of convention)
-C
-      XPOS=-DSRV(1)+0.47
-      YPOS=-(2.1+0.015)
-      CALL GSPOS('SCE5',1,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right element
-C
-      XPOS=-DSRV(1)+0.47
-      YPOS=2.1+0.015
-      CALL GSPOS('SCE5',2,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Top element
-C
-      XPOS=-DSRV(1)+0.47+(SQRT(3.)/2.)*4.2+0.015
-      YPOS=0.
-      CALL GSPOS('SCE5',3,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the ghost volumes containing the strip ladders (ISV1),
-C     electronics/cooling (SSV1) and end-ladder stuff (ELL5) of layer #5 in
-C     their mother volume (IT56)
-C
-        OFFSET1=ATG(0.9,40.)
-        OFFSET2=5.2
-        RZERO=40.+DBOX1(1)
-       RUNO=40.+2.*DBOX1(1)+DSRV(1)
-        RTWO=40.+2.*DBOX1(1)+DELA(1)   
-       DO I=1,35
-         ATHETA=TWOPI*FLOAT(I-1)*RADDEG/35.+OFFSET2
-         CALL SXSROT(IDROTM(1500+I),90.,ATHETA,90.,90.+ATHETA,0.,0.)
-C
-C --- Strip ladders
-C
-         XPOS=RZERO*COS(TWOPI*FLOAT(I-1)/35.+OFFSET1)
-         YPOS=RZERO*SIN(TWOPI*FLOAT(I-1)/35.+OFFSET1)
-          ZPOS=0.
-         CALL GSPOS('ISV1',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1500+I),
-     $    'ONLY')
-C
-C --- Electronics/cooling
-C
-         XPOS=RUNO*COS(TWOPI*FLOAT(I-1)/35.+OFFSET1)
-         YPOS=RUNO*SIN(TWOPI*FLOAT(I-1)/35.+OFFSET1)
-         ZPOS=0.
-         CALL GSPOS('SSV1',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1500+I),
-     $    'ONLY')
-C
-C --- End-ladders (nagative-Z and positive-Z)
-C
-         XPOS=RTWO*COS(TWOPI*FLOAT(I-1)/35.+OFFSET1)
-         YPOS=RTWO*SIN(TWOPI*FLOAT(I-1)/35.+OFFSET1)
-         ZPOS=-(DBOX1(3)+DELA(3)+6.)
-         CALL GSPOS('ELL5',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1500+I),
-     $    'ONLY')
-         ZPOS=DBOX1(3)+DELA(3)+6.
-         CALL GSPOS('ELL5',I+35,'IT56',XPOS,YPOS,ZPOS,IDROTM(1500+I),
-     $    'ONLY')
-       END DO
-C      
-5678    CONTINUE
-C
-C --- Layer #6
-C
-C        GOTO 5778           ! skip ITS layer no. 6
-C
-C --- Define a ghost volume containing a single ladder of layer #6 and fill
-C     it with air or vacuum
-C
-        DBOX2(1)=(0.0600+2.*0.0150)/2.
-        DBOX2(2)=3.75
-        DBOX2(3)=101.95/2.
-        CALL GSVOLU('ISV2','BOX ',IDTMED(254),DBOX2,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('ISV2','SEEN',0)
-C
-C --- Define a ghost volume containing the electronics and cooling of
-C     a single ladder of layer #6 and fill it with air or vacuum
-C
-        DSRV(1)=(0.47+(SQRT(3.)/2.)*4.2+0.05)/2.
-        DSRV(2)=3.75
-        DSRV(3)=101.95/2.
-        CALL GSVOLU('SSV2','BOX ',IDTMED(254), DSRV,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('SSV2','SEEN',0)
-C
-C --- Define a ghost volume containing the end-ladder stuff of
-C     a single ladder of layer #6 and fill it with air or vacuum
-C
-        DELA(1)=2.
-        DELA(2)=3.5
-        DELA(3)=4.0
-        CALL GSVOLU('ELL6','BOX ',IDTMED(254),DELA,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('ELL6','SEEN',0)
-C
-C --- Define a volume containing the sensitive part of the strips
-C     (silicon, layer #6)
-C
-        DITS(1)=0.0150
-        DITS(2)=3.75
-        DITS(3)=2.1
-        CALL GSVOLU('ITS6','BOX ',IDTMED(250),DITS,3,IOUT)
-C
-C --- Define a volume containing the electronics of the strips
-C     (silicon, layer #6)
-C
-        DCHI(1)=0.02
-        DCHI(2)=3.4
-        DCHI(3)=0.525
-        CALL GSVOLU('SCH6','BOX ',IDTMED(251),DCHI,3,IOUT)
-C
-C --- Define the cooling tubes (aluminum, layer #6)
-C
-        DTUB(1)=0.09
-        DTUB(2)=DTUB(1)+0.01
-        DTUB(3)=101.95/2.
-        CALL GSVOLU('STB6','TUBE',IDTMED(256),DTUB,3,IOUT)
-C
-C --- Define the cooling fluid (water or freon, layer #6)
-C
-        DWAT(1)=0.
-        DWAT(2)=0.09
-        DWAT(3)=101.95/2.
-        CALL GSVOLU('SWT6','TUBE',IDTMED(257),DWAT,3,IOUT)   ! water
-C        CALL GSVOLU('SWT6','TUBE',IDTMED(258),DWAT,3,IOUT)   ! freon
-C
-C --- Define the (triangular) element of the heat bridge (carbon, layer #6)
-C
-        DFRA(1)=120.
-        DFRA(2)=360.
-        DFRA(3)=3.
-        DFRA(4)=2.
-        DFRA(5)=-0.015
-        DFRA(6)=4.2*SQRT(3.)/6.
-        DFRA(7)=DFRA(6)+0.03
-        DFRA(8)=0.015
-        DFRA(9)=DFRA(6)
-        DFRA(10)=DFRA(7)
-        CALL GSVOLU('SFR6','PGON',IDTMED(253),DFRA,10,IOUT)
-C
-C --- Define the element connecting the triangles of the heat bridge
-C     (carbon, layer #6)
-C
-        DCEI(1)=0.
-        DCEI(2)=0.03
-        DCEI(3)=101.95/2.
-        CALL GSVOLU('SCE6','TUBE',IDTMED(253),DCEI,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of plastic (G10FR4)
-C     (layer #6)
-C
-       DPLA(1)=(10./(8.*7.))/2.
-       DPLA(2)=3.5
-       DPLA(3)=4.
-       CALL GSVOLU('EPL6','BOX ',IDTMED(263),DPLA,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of copper (layer #6)
-C
-       DCOP(1)=(2./(8.*7.))/2.
-       DCOP(2)=3.5
-       DCOP(3)=4.
-       CALL GSVOLU('ECU6','BOX ',IDTMED(260),DCOP,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of epoxy (layer #6)
-C
-       DEPX(1)=(30./(8.*7.))/2.
-       DEPX(2)=3.5
-       DEPX(3)=4.
-       CALL GSVOLU('EPX6','BOX ',IDTMED(263),DEPX,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of silicon (bus)
-C     (layer #6)
-C
-       DSIL(1)=(20./(8.*7.))/2.
-       DSIL(2)=3.5
-       DSIL(3)=4.
-       CALL GSVOLU('ESI6','BOX ',IDTMED(252),DSIL,3,IOUT)
-C
-C --- Place the end-ladder stuff into its mother (ELL5)
-C
-        SEP=(4.-2.*(DPLA(1)+DCOP(1)+DEPX(1)+DSIL(1)))/3.
-       YPOS=0.
-       ZPOS=0.
-C
-C --- Plastic
-C
-       XPOS=-DELA(1)+DPLA(1)
-       CALL GSPOS('EPL6',1,'ELL6',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+DCOP(1)
-       CALL GSPOS('ECU6',1,'ELL6',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Epoxy
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+2.*DCOP(1)+SEP+DEPX(1)
-       CALL GSPOS('EPX6',1,'ELL6',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+2.*DCOP(1)+SEP+2.*DEPX(1)+
-     $  SEP+DSIL(1)
-       CALL GSPOS('ESI6',1,'ELL6',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the sensitive part of the strips into its mother (ISV2)
-C
-        YPOS=0.
-        DO J=1,26
-          IF(MOD(J,2).EQ.0) THEN
-           XPOS=DBOX2(1)-DITS(1)
-         ELSE
-           XPOS=-DBOX2(1)+DITS(1)
-          ENDIF
-         ZPOS=(-12.+FLOAT(J-1))*3.91-1.96
-         CALL GSPOS('ITS6',J,'ISV2',XPOS,YPOS,ZPOS,0,'ONLY')
-        END DO
-C
-C --- Place the electronics of the strips into its mother (SSV2)
-C
-        YPOS=0.
-        DO J=1,26
-          IF(MOD(J,2).EQ.0) THEN
-           XPOS=-DSRV(1)+0.28
-         ELSE
-           XPOS=-DSRV(1)+0.28-2.*DITS(1)-0.03
-          ENDIF
-         ZPOS=(-12.+FLOAT(J-1))*3.91-1.96+0.85
-         CALL GSPOS('SCH5',J,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-        END DO         
-C
-C --- Place the cooling tubes and the cooling fluid into their mother (SSV1)
-C
-      XPOS=-DSRV(1)+0.41
-      ZPOS=0.
-C
-C --- Left tube (just a matter of convention)
-C
-      YPOS=-2.25-0.1
-      CALL GSPOS('STB6',1,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-      CALL GSPOS('SWT6',1,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right tube (just a matter of convention)
-C
-      YPOS=2.25+0.1
-      CALL GSPOS('STB6',2,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-      CALL GSPOS('SWT6',2,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the heat bridge elements into their mother (SSV2)
-C
-      XPOS=-DSRV(1)+0.47+(SQRT(3.)/6.)*4.2
-      YPOS=0.
-      DO J=1,27
-         ZPOS=(-12.+FLOAT(J-1))*3.91-1.96-4.2/2.
-        CALL GSPOS('SFR6',J,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-      END DO
-C
-C --- Place the elements connecting the triangles of the heat bridge
-C     into their mother (SSV2)
-C
-      ZPOS=0.
-C
-C --- Left element (just a matter of convention)
-C
-      XPOS=-DSRV(1)+0.47
-      YPOS=-(2.1+0.015)
-      CALL GSPOS('SCE6',1,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right element
-C
-      XPOS=-DSRV(1)+0.47
-      YPOS=2.1+0.015
-      CALL GSPOS('SCE6',2,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Top element
-C
-      XPOS=-DSRV(1)+0.47+(SQRT(3.)/2.)*4.2+0.015
-      YPOS=0.
-      CALL GSPOS('SCE6',3,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the ghost volumes containing the strip ladders (ISV2),
-C     electronics/cooling (SSV2) and end-ladder stuff (ELL6) of layer #6 in
-C     their mother volume (IT56)
-C
-        OFFSET1=ATG(1.0,45.)
-        OFFSET2=5.2
-        RZERO=45.+DBOX2(1)
-       RUNO=45.+2.*DBOX2(1)+DSRV(1)
-        RTWO=45.+2.*DBOX2(1)+DELA(1)   
-       DO I=1,39
-         ATHETA=TWOPI*FLOAT(I-1)*RADDEG/39.+OFFSET2
-         CALL SXSROT(IDROTM(1600+I),90.,ATHETA,90.,90.+ATHETA,0.,0.)
-C
-C --- Strip ladders
-C
-         XPOS=RZERO*COS(TWOPI*FLOAT(I-1)/39.+OFFSET1)
-         YPOS=RZERO*SIN(TWOPI*FLOAT(I-1)/39.+OFFSET1)
-          ZPOS=0.
-         CALL GSPOS('ISV2',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1600+I),
-     $    'ONLY')
-C
-C --- Electronics/cooling
-C
-         XPOS=RUNO*COS(TWOPI*FLOAT(I-1)/39.+OFFSET1)
-         YPOS=RUNO*SIN(TWOPI*FLOAT(I-1)/39.+OFFSET1)
-         ZPOS=0.
-         CALL GSPOS('SSV2',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1600+I),
-     $    'ONLY')
-C
-C --- End-ladders (nagative-Z and positive-Z)
-C
-         XPOS=RTWO*COS(TWOPI*FLOAT(I-1)/39.+OFFSET1)
-         YPOS=RTWO*SIN(TWOPI*FLOAT(I-1)/39.+OFFSET1)
-         ZPOS=-(DBOX2(3)+DELA(3)+6.)
-         CALL GSPOS('ELL6',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1600+I),
-     $    'ONLY')
-         ZPOS=DBOX2(3)+DELA(3)+6.
-         CALL GSPOS('ELL6',I+39,'IT56',XPOS,YPOS,ZPOS,IDROTM(1600+I),
-     $    'ONLY')
-       END DO
-C      
-5778    CONTINUE
-C
-      ENDIF
-C
-C --- Define SSD with the 32+36 lay-out
-C
-      IF(IVERS.EQ.43 .OR. IVERS.EQ.44 .OR. IVERS.EQ.45) THEN   
-C
-C --- Define ghost volume containing the Strip Detectors and fill it with air
-C     or vacuum
-C
-        XXM=(49.999-3.)/(70.-25.)
-        DGH(1)=0.
-        DGH(2)=360.
-        DGH(3)=4.
-        DGH(4)=-25.-(9.-3.01)/XXM-(9.01-9.)/XXM-(27.-9.01)/XXM-
-     $  (36.-27)/XXM-(49.998-36.)/XXM
-        DGH(5)=49.998
-        DGH(6)=49.998
-        DGH(7)=-25.-(9.-3.01)/XXM-(9.01-9.)/XXM-(27.-9.01)/XXM-
-     $  (36.-27)/XXM
-        DGH(8)=36.
-        DGH(9)=49.998
-        DGH(10)=25.+(9.-3.01)/XXM+(9.01-9.)/XXM+(27.-9.01)/XXM+
-     $  (36.-27)/XXM
-        DGH(11)=36.
-        DGH(12)=49.998
-        DGH(13)=25.+(9.-3.01)/XXM+(9.01-9.)/XXM+(27.-9.01)/XXM+
-     $  (36.-27)/XXM+(49.998-36.)/XXM
-        DGH(14)=49.998
-        DGH(15)=49.998
-        CALL GSVOLU('IT56','PCON',IDTMED(276),DGH,15,IOUT)
-        CALL GSPOS('IT56',1,'ITSV',0.,0.,0.,0,'ONLY')
-        CALL GSATT('IT56','SEEN',0)
-C
-C --- Layer #5
-C
-C        GOTO 6678           ! skip ITS layer no. 5
-C
-C --- Define a ghost volume containing a single ladder of layer #5 and fill
-C     it with air or vacuum
-C
-        DBOX1(1)=(0.0600+2.*0.0150)/2.
-        DBOX1(2)=3.75
-        DBOX1(3)=86.31/2.
-        CALL GSVOLU('ISV1','BOX ',IDTMED(254),DBOX1,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('ISV1','SEEN',0)
-C
-C --- Define a ghost volume containing the electronics and cooling of
-C     a single ladder of layer #5 and fill it with air or vacuum
-C
-        DSRV(1)=(0.47+(SQRT(3.)/2.)*4.2+0.05)/2.
-        DSRV(2)=3.75
-        DSRV(3)=86.31/2.
-        CALL GSVOLU('SSV1','BOX ',IDTMED(254),DSRV,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('SSV1','SEEN',0)
-C
-C --- Define a ghost volume containing the end-ladder stuff of
-C     a single ladder of layer #5 and fill it with air or vacuum
-C
-        DELA(1)=2.
-        DELA(2)=3.5
-        DELA(3)=4.0
-        CALL GSVOLU('ELL5','BOX ',IDTMED(254),DELA,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('ELL5','SEEN',0)
-C
-C --- Define a volume containing the sensitive part of the strips
-C     (silicon, layer #5)
-C
-        DITS(1)=0.0150
-        DITS(2)=3.75
-        DITS(3)=2.1
-        CALL GSVOLU('ITS5','BOX ',IDTMED(250),DITS,3,IOUT)
-C
-C --- Define a volume containing the electronics of the strips
-C     (silicon, layer #5)
-C
-        DCHI(1)=0.02
-        DCHI(2)=3.4
-        DCHI(3)=0.525
-        CALL GSVOLU('SCH5','BOX ',IDTMED(251),DCHI,3,IOUT)
-C
-C --- Define the cooling tubes (aluminum, layer #5)
-C
-        DTUB(1)=0.09
-        DTUB(2)=DTUB(1)+0.01
-        DTUB(3)=86.31/2.
-        CALL GSVOLU('STB5','TUBE',IDTMED(256),DTUB,3,IOUT)
-C
-C --- Define the cooling fluid (water or freon, layer #5)
-C
-        DWAT(1)=0.
-        DWAT(2)=0.09
-        DWAT(3)=86.31/2.
-        CALL GSVOLU('SWT5','TUBE',IDTMED(257),DWAT,3,IOUT)   ! water
-C        CALL GSVOLU('SWT5','TUBE',IDTMED(258),DWAT,3,IOUT)   ! freon
-C
-C --- Define the (triangular) element of the heat bridge (carbon, layer #5)
-C
-        DFRA(1)=120.
-        DFRA(2)=360.
-        DFRA(3)=3.
-        DFRA(4)=2.
-        DFRA(5)=-0.015
-        DFRA(6)=4.2*SQRT(3.)/6.
-        DFRA(7)=DFRA(6)+0.03
-        DFRA(8)=0.015
-        DFRA(9)=DFRA(6)
-        DFRA(10)=DFRA(7)
-        CALL GSVOLU('SFR5','PGON',IDTMED(253),DFRA,10,IOUT)
-C
-C --- Define the element connecting the triangles of the heat bridge
-C     (carbon, layer #5)
-C
-        DCEI(1)=0.
-        DCEI(2)=0.03
-        DCEI(3)=86.31/2.
-        CALL GSVOLU('SCE5','TUBE',IDTMED(253),DCEI,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of plastic (G10FR4)
-C     (layer #5)
-C
-       DPLA(1)=(10./(8.*7.))/2.
-       DPLA(2)=3.5
-       DPLA(3)=4.
-       CALL GSVOLU('EPL5','BOX ',IDTMED(263),DPLA,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of copper (layer #5)
-C
-       DCOP(1)=(2./(8.*7.))/2.
-       DCOP(2)=3.5
-       DCOP(3)=4.
-       CALL GSVOLU('ECU5','BOX ',IDTMED(260),DCOP,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of epoxy (layer #5)
-C
-       DEPX(1)=(30./(8.*7.))/2.
-       DEPX(2)=3.5
-       DEPX(3)=4.
-       CALL GSVOLU('EPX5','BOX ',IDTMED(263),DEPX,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of silicon (bus)
-C     (layer #5)
-C
-       DSIL(1)=(20./(8.*7.))/2.
-       DSIL(2)=3.5
-       DSIL(3)=4.
-       CALL GSVOLU('ESI5','BOX ',IDTMED(252),DSIL,3,IOUT)
-C
-C --- Place the end-ladder stuff into its mother (ELL5)
-C
-        SEP=(4.-2.*(DPLA(1)+DCOP(1)+DEPX(1)+DSIL(1)))/3.
-       YPOS=0.
-       ZPOS=0.
-C
-C --- Plastic
-C
-       XPOS=-DELA(1)+DPLA(1)
-       CALL GSPOS('EPL5',1,'ELL5',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+DCOP(1)
-       CALL GSPOS('ECU5',1,'ELL5',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Epoxy
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+2.*DCOP(1)+SEP+DEPX(1)
-       CALL GSPOS('EPX5',1,'ELL5',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+2.*DCOP(1)+SEP+2.*DEPX(1)+
-     $  SEP+DSIL(1)
-       CALL GSPOS('ESI5',1,'ELL5',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the sensitive part of the strips into its mother (ISV1)
-C
-        YPOS=0.
-        DO J=1,22
-          IF(MOD(J,2).EQ.0) THEN
-           XPOS=DBOX1(1)-DITS(1)
-         ELSE
-           XPOS=-DBOX1(1)+DITS(1)
-          ENDIF
-         ZPOS=(-10.+FLOAT(J-1))*3.91-1.96
-         CALL GSPOS('ITS5',J,'ISV1',XPOS,YPOS,ZPOS,0,'ONLY')
-        END DO
-C
-C --- Place the electronics of the strips into its mother (SSV1)
-C
-        YPOS=0.
-        DO J=1,22
-          IF(MOD(J,2).EQ.0) THEN
-           XPOS=-DSRV(1)+0.28
-         ELSE
-           XPOS=-DSRV(1)+0.28-2.*DITS(1)-0.03
-          ENDIF
-         ZPOS=(-10.+FLOAT(J-1))*3.91-1.96+0.85
-         CALL GSPOS('SCH5',J,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-        END DO         
-C
-C --- Place the cooling tubes and the cooling fluid into their mother (SSV1)
-C
-      XPOS=-DSRV(1)+0.41
-      ZPOS=0.
-C
-C --- Left tube (just a matter of convention)
-C
-      YPOS=-2.25-0.1
-      CALL GSPOS('STB5',1,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-      CALL GSPOS('SWT5',1,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right tube (just a matter of convention)
-C
-      YPOS=2.25+0.1
-      CALL GSPOS('STB5',2,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-      CALL GSPOS('SWT5',2,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the heat bridge elements into their mother (SSV1)
-C
-      XPOS=-DSRV(1)+0.47+(SQRT(3.)/6.)*4.2
-      YPOS=0.
-      DO J=1,23
-         ZPOS=(-10.+FLOAT(J-1))*3.91-1.96-4.2/2.
-        CALL GSPOS('SFR5',J,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-      END DO
-C
-C --- Place the elements connecting the triangles of the heat bridge
-C     into their mother (SSV1)
-C
-      ZPOS=0.
-C
-C --- Left element (just a matter of convention)
-C
-      XPOS=-DSRV(1)+0.47
-      YPOS=-(2.1+0.015)
-      CALL GSPOS('SCE5',1,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right element
-C
-      XPOS=-DSRV(1)+0.47
-      YPOS=2.1+0.015
-      CALL GSPOS('SCE5',2,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Top element
-C
-      XPOS=-DSRV(1)+0.47+(SQRT(3.)/2.)*4.2+0.015
-      YPOS=0.
-      CALL GSPOS('SCE5',3,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the ghost volumes containing the strip ladders (ISV1),
-C     electronics/cooling (SSV1) and end-ladder stuff (ELL5) of layer #5 in
-C     their mother volume (IT56)
-C
-        OFFSET1=ATG(0.8,36.6)
-        OFFSET2=5.2
-        RZERO=36.6+DBOX1(1)
-       RUNO=36.6+2.*DBOX1(1)+DSRV(1)
-        RTWO=36.6+2.*DBOX1(1)+DELA(1)  
-       DO I=1,32
-         ATHETA=TWOPI*FLOAT(I-1)*RADDEG/32.+OFFSET2
-         CALL SXSROT(IDROTM(1500+I),90.,ATHETA,90.,90.+ATHETA,0.,0.)
-C
-C --- Strip ladders
-C
-         XPOS=RZERO*COS(TWOPI*FLOAT(I-1)/32.+OFFSET1)
-         YPOS=RZERO*SIN(TWOPI*FLOAT(I-1)/32.+OFFSET1)
-          ZPOS=0.
-         CALL GSPOS('ISV1',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1500+I),
-     $    'ONLY')
-C
-C --- Electronics/cooling
-C
-         XPOS=RUNO*COS(TWOPI*FLOAT(I-1)/32.+OFFSET1)
-         YPOS=RUNO*SIN(TWOPI*FLOAT(I-1)/32.+OFFSET1)
-         ZPOS=0.
-         CALL GSPOS('SSV1',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1500+I),
-     $    'ONLY')
-C
-C --- End-ladders (nagative-Z and positive-Z)
-C
-         XPOS=RTWO*COS(TWOPI*FLOAT(I-1)/32.+OFFSET1)
-         YPOS=RTWO*SIN(TWOPI*FLOAT(I-1)/32.+OFFSET1)
-         ZPOS=-(DBOX1(3)+DELA(3)+6.)
-         CALL GSPOS('ELL5',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1500+I),
-     $    'ONLY')
-         ZPOS=DBOX1(3)+DELA(3)+6.
-         CALL GSPOS('ELL5',I+35,'IT56',XPOS,YPOS,ZPOS,IDROTM(1500+I),
-     $    'ONLY')
-       END DO
-C      
-6678    CONTINUE
-C
-C --- Layer #6
-C
-C        GOTO 6778           ! skip ITS layer no. 6
-C
-C --- Define a ghost volume containing a single ladder of layer #6 and fill
-C     it with air or vacuum
-C
-        DBOX2(1)=(0.0600+2.*0.0150)/2.
-        DBOX2(2)=3.75
-        DBOX2(3)=94.13/2.
-        CALL GSVOLU('ISV2','BOX ',IDTMED(254),DBOX2,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('ISV2','SEEN',0)
-C
-C --- Define a ghost volume containing the electronics and cooling of
-C     a single ladder of layer #6 and fill it with air or vacuum
-C
-        DSRV(1)=(0.47+(SQRT(3.)/2.)*4.2+0.05)/2.
-        DSRV(2)=3.75
-        DSRV(3)=94.13/2.
-        CALL GSVOLU('SSV2','BOX ',IDTMED(254),DSRV,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('SSV2','SEEN',0)
-C
-C --- Define a ghost volume containing the end-ladder stuff of
-C     a single ladder of layer #6 and fill it with air or vacuum
-C
-        DELA(1)=2.
-        DELA(2)=3.5
-        DELA(3)=4.0
-        CALL GSVOLU('ELL6','BOX ',IDTMED(254),DELA,3,IOUT)
-C
-C --- Make the ghost volume invisible
-C
-        CALL GSATT('ELL6','SEEN',0)
-C
-C --- Define a volume containing the sensitive part of the strips
-C     (silicon, layer #6)
-C
-        DITS(1)=0.0150
-        DITS(2)=3.75
-        DITS(3)=2.1
-        CALL GSVOLU('ITS6','BOX ',IDTMED(250),DITS,3,IOUT)
-C
-C --- Define a volume containing the electronics of the strips
-C     (silicon, layer #6)
-C
-        DCHI(1)=0.02
-        DCHI(2)=3.4
-        DCHI(3)=0.525
-        CALL GSVOLU('SCH6','BOX ',IDTMED(251),DCHI,3,IOUT)
-C
-C --- Define the cooling tubes (aluminum, layer #6)
-C
-        DTUB(1)=0.09
-        DTUB(2)=DTUB(1)+0.01
-        DTUB(3)=94.13/2.
-        CALL GSVOLU('STB6','TUBE',IDTMED(256),DTUB,3,IOUT)
-C
-C --- Define the cooling fluid (water or freon, layer #6)
-C
-        DWAT(1)=0.
-        DWAT(2)=0.09
-        DWAT(3)=94.13/2.
-        CALL GSVOLU('SWT6','TUBE',IDTMED(257),DWAT,3,IOUT)   ! water
-C        CALL GSVOLU('SWT6','TUBE',IDTMED(258),DWAT,3,IOUT)   ! freon
-C
-C --- Define the (triangular) element of the heat bridge (carbon, layer #6)
-C
-        DFRA(1)=120.
-        DFRA(2)=360.
-        DFRA(3)=3.
-        DFRA(4)=2.
-        DFRA(5)=-0.015
-        DFRA(6)=4.2*SQRT(3.)/6.
-        DFRA(7)=DFRA(6)+0.03
-        DFRA(8)=0.015
-        DFRA(9)=DFRA(6)
-        DFRA(10)=DFRA(7)
-        CALL GSVOLU('SFR6','PGON',IDTMED(253),DFRA,10,IOUT)
-C
-C --- Define the element connecting the triangles of the heat bridge
-C     (carbon, layer #6)
-C
-        DCEI(1)=0.
-        DCEI(2)=0.03
-        DCEI(3)=94.13/2.
-        CALL GSVOLU('SCE6','TUBE',IDTMED(253),DCEI,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of plastic (G10FR4)
-C     (layer #6)
-C
-       DPLA(1)=(10./(8.*7.))/2.
-       DPLA(2)=3.5
-       DPLA(3)=4.
-       CALL GSVOLU('EPL6','BOX ',IDTMED(263),DPLA,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of copper (layer #6)
-C
-       DCOP(1)=(2./(8.*7.))/2.
-       DCOP(2)=3.5
-       DCOP(3)=4.
-       CALL GSVOLU('ECU6','BOX ',IDTMED(260),DCOP,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of epoxy (layer #6)
-C
-       DEPX(1)=(30./(8.*7.))/2.
-       DEPX(2)=3.5
-       DEPX(3)=4.
-       CALL GSVOLU('EPX6','BOX ',IDTMED(263),DEPX,3,IOUT)
-C
-C --- Define the part of the end-ladder stuff made of silicon (bus)
-C     (layer #6)
-C
-       DSIL(1)=(20./(8.*7.))/2.
-       DSIL(2)=3.5
-       DSIL(3)=4.
-       CALL GSVOLU('ESI6','BOX ',IDTMED(252),DSIL,3,IOUT)
-C
-C --- Place the end-ladder stuff into its mother (ELL5)
-C
-        SEP=(4.-2.*(DPLA(1)+DCOP(1)+DEPX(1)+DSIL(1)))/3.
-       YPOS=0.
-       ZPOS=0.
-C
-C --- Plastic
-C
-       XPOS=-DELA(1)+DPLA(1)
-       CALL GSPOS('EPL6',1,'ELL6',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Copper
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+DCOP(1)
-       CALL GSPOS('ECU6',1,'ELL6',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Epoxy
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+2.*DCOP(1)+SEP+DEPX(1)
-       CALL GSPOS('EPX6',1,'ELL6',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Silicon (bus)
-C
-       XPOS=-DELA(1)+2.*DPLA(1)+SEP+2.*DCOP(1)+SEP+2.*DEPX(1)+
-     $  SEP+DSIL(1)
-       CALL GSPOS('ESI6',1,'ELL6',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the sensitive part of the strips into its mother (ISV2)
-C
-        YPOS=0.
-        DO J=1,24
-          IF(MOD(J,2).EQ.0) THEN
-           XPOS=-DBOX2(1)+DITS(1)
-         ELSE
-           XPOS=DBOX2(1)-DITS(1)
-          ENDIF
-         ZPOS=(-11.+FLOAT(J-1))*3.91-1.96
-         CALL GSPOS('ITS6',J,'ISV2',XPOS,YPOS,ZPOS,0,'ONLY')
-        END DO
-C
-C --- Place the electronics of the strips into its mother (SSV2)
-C
-        YPOS=0.
-        DO J=1,24
-          IF(MOD(J,2).EQ.0) THEN
-           XPOS=-DSRV(1)+0.28-2.*DITS(1)-0.03
-         ELSE
-           XPOS=-DSRV(1)+0.28
-          ENDIF
-         ZPOS=(-11.+FLOAT(J-1))*3.91-1.96+0.85
-         CALL GSPOS('SCH5',J,'SSV1',XPOS,YPOS,ZPOS,0,'ONLY')
-        END DO         
-C
-C --- Place the cooling tubes and the cooling fluid into their mother (SSV2)
-C
-      XPOS=-DSRV(1)+0.41
-      ZPOS=0.
-C
-C --- Left tube (just a matter of convention)
-C
-      YPOS=-2.25-0.1
-      CALL GSPOS('STB6',1,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-      CALL GSPOS('SWT6',1,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right tube (just a matter of convention)
-C
-      YPOS=2.25+0.1
-      CALL GSPOS('STB6',2,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-      CALL GSPOS('SWT6',2,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the heat bridge elements into their mother (SSV2)
-C
-      XPOS=-DSRV(1)+0.47+(SQRT(3.)/6.)*4.2
-      YPOS=0.
-      DO J=1,25
-         ZPOS=(-11.+FLOAT(J-1))*3.91-1.96-4.2/2.
-        CALL GSPOS('SFR6',J,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-      END DO
-C
-C --- Place the elements connecting the triangles of the heat bridge
-C     into their mother (SSV2)
-C
-      ZPOS=0.
-C
-C --- Left element (just a matter of convention)
-C
-      XPOS=-DSRV(1)+0.47
-      YPOS=-(2.1+0.015)
-      CALL GSPOS('SCE6',1,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Right element
-C
-      XPOS=-DSRV(1)+0.47
-      YPOS=2.1+0.015
-      CALL GSPOS('SCE6',2,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Top element
-C
-      XPOS=-DSRV(1)+0.47+(SQRT(3.)/2.)*4.2+0.015
-      YPOS=0.
-      CALL GSPOS('SCE6',3,'SSV2',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-C --- Place the ghost volumes containing the strip ladders (ISV2),
-C     electronics/cooling (SSV2) and end-ladder stuff (ELL6) of layer #6 in
-C     their mother volume (IT56)
-C
-        OFFSET1=ATG(0.9,41.2)
-        OFFSET2=5.2
-        RZERO=41.2+DBOX2(1)
-       RUNO=41.2+2.*DBOX2(1)+DSRV(1)
-        RTWO=41.2+2.*DBOX2(1)+DELA(1)  
-       DO I=1,36
-         ATHETA=TWOPI*FLOAT(I-1)*RADDEG/36.+OFFSET2
-         CALL SXSROT(IDROTM(1600+I),90.,ATHETA,90.,90.+ATHETA,0.,0.)
-C
-C --- Strip ladders
-C
-         XPOS=RZERO*COS(TWOPI*FLOAT(I-1)/36.+OFFSET1)
-         YPOS=RZERO*SIN(TWOPI*FLOAT(I-1)/36.+OFFSET1)
-          ZPOS=0.
-         CALL GSPOS('ISV2',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1600+I),
-     $    'ONLY')
-C
-C --- Electronics/cooling
-C
-         XPOS=RUNO*COS(TWOPI*FLOAT(I-1)/36.+OFFSET1)
-         YPOS=RUNO*SIN(TWOPI*FLOAT(I-1)/36.+OFFSET1)
-         ZPOS=0.
-         CALL GSPOS('SSV2',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1600+I),
-     $    'ONLY')
-C
-C --- End-ladders (nagative-Z and positive-Z)
-C
-         XPOS=RTWO*COS(TWOPI*FLOAT(I-1)/36.+OFFSET1)
-         YPOS=RTWO*SIN(TWOPI*FLOAT(I-1)/36.+OFFSET1)
-         ZPOS=-(DBOX2(3)+DELA(3)+6.)
-         CALL GSPOS('ELL6',I,'IT56',XPOS,YPOS,ZPOS,IDROTM(1600+I),
-     $    'ONLY')
-         ZPOS=DBOX2(3)+DELA(3)+6.
-         CALL GSPOS('ELL6',I+39,'IT56',XPOS,YPOS,ZPOS,IDROTM(1600+I),
-     $    'ONLY')
-       END DO
-C      
-6778    CONTINUE
-C
-      ENDIF
-C      
-C ************************************************************************
-C *                                                                      *
-C *             E N D - C A P S     A N D     F R A M E S                *
-C *             =========================================                *
-C *                                                                      *
-C ************************************************************************
-C
-C --- Define a dummy cylinder for multiple scattering tests
-C
-C      GOTO 7890             ! skip dummy cylinder for multiple scattering tests
-C
-C      DITS(1)=49.
-C      DITS(2)=DITS(1)+0.1
-C      DITS(3)=60.3
-C      CALL GSVOLU('ITST','TUBE',IDTMED(255),DITS,3,IOUT)
-C      CALL GSPOS('ITST',1,'ITSV',0.,0.,0.,0,'ONLY')
-C7890  CONTINUE
-C
-C --- The 0.74% X0 outer wall (C) of the gas vessel at r=50cm ---
-C
-      IF(IVERS.EQ.40 .OR. IVERS.EQ.43) THEN
-C
-C        GOTO 8901                                  ! skip outer wall
-C      
-        DITS(1)=49.9
-        DITS(2)=DITS(1)+0.06926
-        DITS(3)=62.7+2.*DPCB(3)-10.5         ! old value 60.3
-        CALL GSVOLU('ITSG','TUBE',IDTMED(275),DITS,3,I)
-        CALL GSPOS('ITSG',1,'ITSV',0.,0.,0.,0,'ONLY')
-      ELSE
-        GOTO 8901
-      ENDIF
-8901  CONTINUE
-C
-C --- The frame between the end-caps (octagonal lay-out) ---
-C
-C      GOTO 9012                                    ! skip octagonal frame
-C
-      IF(IVERS.EQ.41) THEN
-C
-        RZERO=34.0
-        DTRA(1)=0.92
-        DTRA(2)=1.0
-        DTRA(3)=50.5+2.*DPCB(3)-10.5
-        DTRA1(1)=0.92
-        DTRA1(2)=1.0
-       DTRA1(3)=SQRT(DTRA(3)*DTRA(3)+(55.4*55.4-50.5*50.5))/2.
-        ANGLE=360./8.
-        OFFSET=ANGLE/2.
-        DO I=1,8
-           XTRA(I)=RZERO*COS(FLOAT(I-1)*ANGLE*DEGRAD)
-           YTRA(I)=RZERO*SIN(FLOAT(I-1)*ANGLE*DEGRAD)
-           ZTRA(I)=0.
-           CALL GSVOLU(NATRA(I),'TUBE',IDTMED(275),DTRA,3,IOUT)
-           CALL GSPOS(NATRA(I),1,'ITSV',XTRA(I),YTRA(I),ZTRA(I),0,
-     $     'ONLY')
-        END DO
-C
-        ATHETA=22.5
-        APHI1=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA(1)+XTRA(2))/2.
-        YPOS=(YTRA(1)+YTRA(2))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(1),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5101),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(1),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5101),'ONLY'
-     $       )
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(2),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5102),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(2),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5102),'ONLY'
-     $       )
-C
-        ATHETA=67.5
-        APHI2=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA(2)+XTRA(3))/2.
-        YPOS=(YTRA(2)+YTRA(3))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(3),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5103),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(3),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5103),'ONLY'
-     $       )
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(4),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5104),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(4),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5104),'ONLY'
-     $       )
-C
-        ATHETA=112.5
-        APHI1=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA(3)+XTRA(4))/2.
-        YPOS=(YTRA(3)+YTRA(4))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(5),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5105),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(5),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5105),'ONLY'
-     $       )
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(6),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5106),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(6),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5106),'ONLY'
-     $       )
-C
-        ATHETA=157.5
-        APHI2=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA(4)+XTRA(5))/2.
-        YPOS=(YTRA(4)+YTRA(5))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(7),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5107),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(7),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5107),'ONLY'
-     $       )
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(8),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5108),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(8),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5108),'ONLY'
-     $       )
-C
-        ATHETA=22.5
-        APHI2=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA(5)+XTRA(6))/2.
-        YPOS=(YTRA(5)+YTRA(6))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(9),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5109),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(9),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5109),'ONLY'
-     $       )
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(10),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5110),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(10),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5110)
-     $       ,'ONLY')
-C
-        ATHETA=67.5
-        APHI1=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA(6)+XTRA(7))/2.
-        YPOS=(YTRA(6)+YTRA(7))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(11),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5111),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(11),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5111)
-     $       ,'ONLY')
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(12),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5112),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(12),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5112)
-     $       ,'ONLY')
-C
-        ATHETA=112.5
-        APHI2=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA(7)+XTRA(8))/2.
-        YPOS=(YTRA(7)+YTRA(8))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(13),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5113),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(13),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5113)
-     $       ,'ONLY')
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(14),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5114),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(14),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5114)
-     $       ,'ONLY')
-C
-        ATHETA=157.5
-        APHI1=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA(8)+XTRA(1))/2.
-        YPOS=(YTRA(8)+YTRA(1))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(15),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5115),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(15),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5115)
-     $       ,'ONLY')
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(16),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5116),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(16),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5116)
-     $       ,'ONLY')
-C
-C
-      ELSEIF(IVERS.EQ.44) THEN
-C
-C
-        RZERO=34.0
-        DTRA(1)=0.92
-        DTRA(2)=1.0
-        DTRA(3)=50.5+2.*DPCB(3)-10.5
-        DTRA1(1)=0.92
-        DTRA1(2)=1.0
-       DTRA1(3)=SQRT(DTRA(3)*DTRA(3)+(55.4*55.4-50.5*50.5))/2.
-        ANGLE=360./8.
-        OFFSET=ANGLE/2.
-        DO I=1,8
-           XTRA(I)=RZERO*COS(FLOAT(I-1)*ANGLE*DEGRAD)
-           YTRA(I)=RZERO*SIN(FLOAT(I-1)*ANGLE*DEGRAD)
-           ZTRA(I)=0.
-           CALL GSVOLU(NATRA(I),'TUBE',IDTMED(275),DTRA,3,IOUT)
-           CALL GSPOS(NATRA(I),1,'ITSV',XTRA(I),YTRA(I),ZTRA(I),0,
-     $     'ONLY')
-        END DO
-C
-        ATHETA=22.5
-        APHI1=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA(1)+XTRA(2))/2.
-        YPOS=(YTRA(1)+YTRA(2))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(1),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5101),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(1),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5101),'ONLY'
-     $       )
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(2),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5102),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(2),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5102),'ONLY'
-     $       )
-C
-        ATHETA=67.5
-        APHI2=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA(2)+XTRA(3))/2.
-        YPOS=(YTRA(2)+YTRA(3))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(3),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5103),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(3),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5103),'ONLY'
-     $       )
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(4),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5104),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(4),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5104),'ONLY'
-     $       )
-C
-        ATHETA=112.5
-        APHI1=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA(3)+XTRA(4))/2.
-        YPOS=(YTRA(3)+YTRA(4))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(5),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5105),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(5),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5105),'ONLY'
-     $       )
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(6),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5106),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(6),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5106),'ONLY'
-     $       )
-C
-        ATHETA=157.5
-        APHI2=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA(4)+XTRA(5))/2.
-        YPOS=(YTRA(4)+YTRA(5))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(7),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5107),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(7),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5107),'ONLY'
-     $       )
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(8),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5108),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(8),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5108),'ONLY'
-     $       )
-C
-        ATHETA=22.5
-        APHI2=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA(5)+XTRA(6))/2.
-        YPOS=(YTRA(5)+YTRA(6))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(9),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5109),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(9),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5109),'ONLY'
-     $       )
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(10),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5110),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(10),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5110)
-     $       ,'ONLY')
-C
-        ATHETA=67.5
-        APHI1=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA(6)+XTRA(7))/2.
-        YPOS=(YTRA(6)+YTRA(7))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(11),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5111),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(11),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5111)
-     $       ,'ONLY')
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(12),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5112),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(12),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5112)
-     $       ,'ONLY')
-C
-        ATHETA=112.5
-        APHI2=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA(7)+XTRA(8))/2.
-        YPOS=(YTRA(7)+YTRA(8))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(13),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5113),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(13),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5113)
-     $       ,'ONLY')
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(14),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5114),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(14),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5114)
-     $       ,'ONLY')
-C
-        ATHETA=157.5
-        APHI1=ACOS(DTRA(3)/SQRT(DTRA(3)*DTRA(3)+
-     $  ((50.5/COS(28.*DEGRAD))*(50.5/COS(28.*DEGRAD))-50.5*50.5)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA(8)+XTRA(1))/2.
-        YPOS=(YTRA(8)+YTRA(1))/2.
-        ZPOS=DTRA(3)/2.
-        CALL GSVOLU(NATRA1(15),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5115),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(15),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5115)
-     $       ,'ONLY')
-        ZPOS=-DTRA(3)/2.
-        CALL GSVOLU(NATRA1(16),'TUBE',IDTMED(275),DTRA1,3,IOUT)
-        CALL SXSROT(IDROTM(5116),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA1(16),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5116)
-     $       ,'ONLY')
-      ELSE
-        GOTO 9012
-      ENDIF
-C
-9012  CONTINUE
-C
-C
-C --- The frame between the end-caps (hexagonal lay-out) ---
-C
-C      GOTO 9123                                    ! skip hexagonal frame
-C
-      IF(IVERS.EQ.42) THEN
-C
-        RZERO=33.5
-        DTRA2(1)=0.92
-        DTRA2(2)=1.0
-        DTRA2(3)=50.+2.*DPCB(3)-10.5
-        DTRA3(1)=0.92
-        DTRA3(2)=1.0
-        DTRA3(3)=16.75
-        DTRA4(1)=0.92
-        DTRA4(2)=1.0
-        DTRA4(3)=SQRT(DTRA2(3)*DTRA2(3)+(59.9*59.9-50.*50.))/2.
-        ANGLE=360./6.
-        OFFSET=ANGLE/2.
-        DO I=1,6
-           XTRA1(I)=RZERO*COS((FLOAT(I-1)*ANGLE+OFFSET)*DEGRAD)
-           YTRA1(I)=RZERO*SIN((FLOAT(I-1)*ANGLE+OFFSET)*DEGRAD)
-           ZTRA1(I)=0.
-           CALL GSVOLU(NATRA2(I),'TUBE',IDTMED(275),DTRA2,3,IOUT)
-           CALL GSPOS(NATRA2(I),1,'ITSV',XTRA1(I),YTRA1(I),ZTRA1(I)
-     $          ,0,'ONLY')
-        END DO
-C
-        ATHETA=60.
-        APHI=90.
-        XPOS=(XTRA1(1)+XTRA1(2))/2.
-        YPOS=(YTRA1(1)+YTRA1(2))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(1),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5201),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(1),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5201),'ONLY'
-     $       )
-C
-        ATHETA=120.
-        APHI=90.
-        XPOS=(XTRA1(2)+XTRA1(3))/2.
-        YPOS=(YTRA1(2)+YTRA1(3))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(2),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5202),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(2),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5202),'ONLY'
-     $       )
-C
-        ATHETA=180.
-        APHI=90.
-        XPOS=(XTRA1(3)+XTRA1(4))/2.
-        YPOS=(YTRA1(3)+YTRA1(4))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(3),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5203),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(3),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5203),'ONLY'
-     $       )
-C
-        ATHETA=60.
-        APHI=90.
-        XPOS=(XTRA1(4)+XTRA1(5))/2.
-        YPOS=(YTRA1(4)+YTRA1(5))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(4),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5204),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(4),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5204),'ONLY'
-     $       )
-C
-        ATHETA=120.
-        APHI=90.
-        XPOS=(XTRA1(5)+XTRA1(6))/2.
-        YPOS=(YTRA1(5)+YTRA1(6))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(5),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5205),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(5),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5205),'ONLY'
-     $       )
-C
-        ATHETA=180.
-        APHI=90.
-        XPOS=(XTRA1(6)+XTRA1(1))/2.
-        YPOS=(YTRA1(6)+YTRA1(1))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(6),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5206),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(6),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5206),'ONLY'
-     $       )
-C
-        ATHETA=60.
-        APHI2=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA1(1)+XTRA1(2))/2.
-        YPOS=(YTRA1(1)+YTRA1(2))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(1),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5211),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(1),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5211),'ONLY'
-     $       )
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(2),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5212),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(2),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5212),'ONLY'
-     $       )
-C
-        ATHETA=120.
-        APHI1=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA1(2)+XTRA1(3))/2.
-        YPOS=(YTRA1(2)+YTRA1(3))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(3),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5213),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(3),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5213),'ONLY'
-     $       )
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(4),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5214),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(4),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5214),'ONLY'
-     $       )
-C
-        ATHETA=180.
-        APHI2=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA1(3)+XTRA1(4))/2.
-        YPOS=(YTRA1(3)+YTRA1(4))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(5),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5215),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(5),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5215),'ONLY'
-     $       )
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(6),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5216),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(6),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5216),'ONLY'
-     $       )
-        ATHETA=180.
-        APHI1=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA1(3)+XTRA1(4))/2.
-        YPOS=(YTRA1(3)+YTRA1(4))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(7),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5217),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(7),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5217),'ONLY'
-     $       )
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(8),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5218),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(8),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5218),'ONLY'
-     $       )
-C
-        ATHETA=60.
-        APHI2=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA1(4)+XTRA1(5))/2.
-        YPOS=(YTRA1(4)+YTRA1(5))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(9),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5219),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(9),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5219),'ONLY'
-     $       )
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(10),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5220),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(10),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5220)
-     $       ,'ONLY')
-C
-        ATHETA=120.
-        APHI1=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA1(5)+XTRA1(6))/2.
-        YPOS=(YTRA1(5)+YTRA1(6))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(11),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5221),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(11),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5221)
-     $       ,'ONLY')
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(12),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5222),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(12),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5222)
-     $       ,'ONLY')
-C
-        ATHETA=180.
-        APHI2=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA1(6)+XTRA1(1))/2.
-        YPOS=(YTRA1(6)+YTRA1(1))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(13),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5223),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(13),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5223)
-     $       ,'ONLY')
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(14),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5224),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(14),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5224)
-     $       ,'ONLY')
-        ATHETA=180.
-        APHI1=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA1(6)+XTRA1(1))/2.
-        YPOS=(YTRA1(6)+YTRA1(1))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(15),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5225),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(15),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5225)
-     $       ,'ONLY')
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(16),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5226),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(16),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5226)
-     $       ,'ONLY')
-
-C
-C
-      ELSEIF(IVERS.EQ.45) THEN
-C
-C
-        RZERO=33.5
-        DTRA2(1)=0.92
-        DTRA2(2)=1.0
-        DTRA2(3)=50.+2.*DPCB(3)-10.5
-        DTRA3(1)=0.92
-        DTRA3(2)=1.0
-        DTRA3(3)=16.75
-        DTRA4(1)=0.92
-        DTRA4(2)=1.0
-        DTRA4(3)=SQRT(DTRA2(3)*DTRA2(3)+(59.9*59.9-50.*50.))/2.
-        ANGLE=360./6.
-        OFFSET=ANGLE/2.
-        DO I=1,6
-           XTRA1(I)=RZERO*COS((FLOAT(I-1)*ANGLE+OFFSET)*DEGRAD)
-           YTRA1(I)=RZERO*SIN((FLOAT(I-1)*ANGLE+OFFSET)*DEGRAD)
-           ZTRA1(I)=0.
-           CALL GSVOLU(NATRA2(I),'TUBE',IDTMED(275),DTRA2,3,IOUT)
-           CALL GSPOS(NATRA2(I),1,'ITSV',XTRA1(I),YTRA1(I),ZTRA1(I)
-     $          ,0,'ONLY')
-        END DO
-C
-        ATHETA=60.
-        APHI=90.
-        XPOS=(XTRA1(1)+XTRA1(2))/2.
-        YPOS=(YTRA1(1)+YTRA1(2))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(1),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5201),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(1),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5201),'ONLY'
-     $       )
-C
-        ATHETA=120.
-        APHI=90.
-        XPOS=(XTRA1(2)+XTRA1(3))/2.
-        YPOS=(YTRA1(2)+YTRA1(3))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(2),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5202),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(2),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5202),'ONLY'
-     $       )
-C
-        ATHETA=180.
-        APHI=90.
-        XPOS=(XTRA1(3)+XTRA1(4))/2.
-        YPOS=(YTRA1(3)+YTRA1(4))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(3),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5203),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(3),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5203),'ONLY'
-     $       )
-C
-        ATHETA=60.
-        APHI=90.
-        XPOS=(XTRA1(4)+XTRA1(5))/2.
-        YPOS=(YTRA1(4)+YTRA1(5))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(4),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5204),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(4),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5204),'ONLY'
-     $       )
-C
-        ATHETA=120.
-        APHI=90.
-        XPOS=(XTRA1(5)+XTRA1(6))/2.
-        YPOS=(YTRA1(5)+YTRA1(6))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(5),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5205),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(5),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5205),'ONLY'
-     $       )
-C
-        ATHETA=180.
-        APHI=90.
-        XPOS=(XTRA1(6)+XTRA1(1))/2.
-        YPOS=(YTRA1(6)+YTRA1(1))/2.
-        ZPOS=0.
-        CALL GSVOLU(NATRA3(6),'TUBE',IDTMED(275),DTRA3,3,IOUT)
-        CALL SXSROT(IDROTM(5206),90.,ATHETA,90.+APHI,90.+ATHETA,APHI,90.
-     $       +ATHETA)
-        CALL GSPOS(NATRA3(6),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5206),'ONLY'
-     $       )
-C
-        ATHETA=60.
-        APHI2=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA1(1)+XTRA1(2))/2.
-        YPOS=(YTRA1(1)+YTRA1(2))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(1),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5211),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(1),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5211),'ONLY'
-     $       )
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(2),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5212),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(2),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5212),'ONLY'
-     $       )
-C
-        ATHETA=120.
-        APHI1=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA1(2)+XTRA1(3))/2.
-        YPOS=(YTRA1(2)+YTRA1(3))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(3),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5213),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(3),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5213),'ONLY'
-     $       )
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(4),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5214),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(4),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5214),'ONLY'
-     $       )
-C
-        ATHETA=180.
-        APHI2=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA1(3)+XTRA1(4))/2.
-        YPOS=(YTRA1(3)+YTRA1(4))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(5),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5215),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(5),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5215),'ONLY'
-     $       )
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(6),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5216),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(6),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5216),'ONLY'
-     $       )
-        ATHETA=180.
-        APHI1=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA1(3)+XTRA1(4))/2.
-        YPOS=(YTRA1(3)+YTRA1(4))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(7),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5217),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(7),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5217),'ONLY'
-     $       )
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(8),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5218),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(8),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5218),'ONLY'
-     $       )
-C
-        ATHETA=60.
-        APHI2=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA1(4)+XTRA1(5))/2.
-        YPOS=(YTRA1(4)+YTRA1(5))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(9),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5219),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(9),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5219),'ONLY'
-     $       )
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(10),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5220),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(10),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5220)
-     $       ,'ONLY')
-C
-        ATHETA=120.
-        APHI1=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA1(5)+XTRA1(6))/2.
-        YPOS=(YTRA1(5)+YTRA1(6))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(11),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5221),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(11),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5221)
-     $       ,'ONLY')
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(12),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5222),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(12),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5222)
-     $       ,'ONLY')
-C
-        ATHETA=180.
-        APHI2=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI1=180.-APHI2
-        XPOS=(XTRA1(6)+XTRA1(1))/2.
-        YPOS=(YTRA1(6)+YTRA1(1))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(13),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5223),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(13),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5223)
-     $       ,'ONLY')
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(14),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5224),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(14),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5224)
-     $       ,'ONLY')
-        ATHETA=180.
-        APHI1=ACOS(DTRA2(3)/SQRT(DTRA2(3)*DTRA2(3)+
-     $  ((50./COS(34.*DEGRAD))*(50./COS(34.*DEGRAD))-50.*50.)))*
-     $  RADDEG
-        APHI2=180.-APHI1
-        XPOS=(XTRA1(6)+XTRA1(1))/2.
-        YPOS=(YTRA1(6)+YTRA1(1))/2.
-        ZPOS=DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(15),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5225),90.,ATHETA,90.+APHI1,90.+ATHETA,APHI1
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(15),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5225)
-     $       ,'ONLY')
-        ZPOS=-DTRA2(3)/2.
-        CALL GSVOLU(NATRA4(16),'TUBE',IDTMED(275),DTRA4,3,IOUT)
-        CALL SXSROT(IDROTM(5226),90.,ATHETA,90.+APHI2,90.+ATHETA,APHI2
-     $       ,90.+ATHETA)
-        CALL GSPOS(NATRA4(16),1,'ITSV',XPOS,YPOS,ZPOS,IDROTM(5226)
-     $       ,'ONLY')
-      ELSE
-        GOTO 9123
-      ENDIF
-C
- 9123 CONTINUE
-C
-C --- Define the end-caps
-C
-C      GOTO 9234             ! skip both end-caps
-C
-C --- Define the Z>0 end-cap
-C
-C      GOTO 9345             ! skip the Z>0 end-cap
-C
-      DCONE(1)=(338.-3.)/2./10.
-      DCONE(2)=12.
-      DCONE(3)=12.02
-      DCONE(4)=(338.-3.)*455./(338.-3.-10.)/10.
-      DCONE(5)=(338.-3.)*455./(338.-3.-10.)/10.+0.02/COS(45.*DEGRAD)
-      XPOS=0.
-      YPOS=0.
-      ZPOS=(583.+(338.-3.))/2./10.+2.*DPCB(3)-10.5  ! end-ladder electronics
-      CALL GSVOLU('RCON','CONE',IDTMED(275),DCONE,5,IOUT)
-      CALL GSPOS('RCON',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-      DTUBE(1)=(338.-3.)*455./(338.-3.-10.)/10.+0.02/COS(45.*DEGRAD)
-      DTUBE(2)=49.9   ! In the Simonetti's drawings 52. In the TP 50.
-      DTUBE(3)=0.15
-      XPOS=0.
-      YPOS=0.
-      ZPOS=(583./2.+(338-1.5))/10.+2.*DPCB(3)-10.5  ! end-ladder electronics
-      CALL GSVOLU('RTB1','TUBE',IDTMED(275),DTUBE,3,IOUT)
-      CALL GSPOS('RTB1',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-      DTUBE(1)=10.5
-      DTUBE(2)=12.0
-      DTUBE(3)=26.8/2./10.
-      XPOS=0.
-      YPOS=0.
-      ZPOS=(583./2.-89.+26.8/2.)/10.+2.*DPCB(3)-10.5  ! end-ladder electronics
-      CALL GSVOLU('RTB2','TUBE',IDTMED(275),DTUBE,3,IOUT)
-      CALL GSPOS('RTB2',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-      DPGON(1)=15.
-      DPGON(2)=360.
-      DPGON(3)=12.
-      DPGON(4)=2
-      DPGON(5)=(583./2.-62.2)/10.+2.*DPCB(3)-10.5  ! end-ladder electronics
-      DPGON(6)=12.0
-      DPGON(7)=13.5
-      DPGON(8)=583./2./10.+2.*DPCB(3)-10.5  ! end-ladder electronics
-      DPGON(9)=12.0
-      DPGON(10)=13.5
-      XPOS=0.
-      YPOS=0.
-      ZPOS=0.
-      CALL GSVOLU('RP03','PGON',IDTMED(275),DPGON,10,IOUT)
-      CALL GSPOS('RP03',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-      DPGON(1)=7.5
-      DPGON(2)=360.
-      DPGON(3)=24.
-      DPGON(4)=2
-      DPGON(5)=(583./2.+(338.-273.))/10.+2.*DPCB(3)-10.5  ! end-ladder electronics
-      DPGON(6)=21.
-      DPGON(7)=23.
-      DPGON(8)=(583./2.+(338.-273.+15.))/10.+2.*DPCB(3)-10.5 ! end-ladder electronics
-      DPGON(9)=21.
-      DPGON(10)=23.
-      XPOS=0.
-      YPOS=0.
-      ZPOS=0.
-      CALL GSVOLU('RP04','PGON',IDTMED(275),DPGON,10,IOUT)
-      CALL GSPOS('RP04',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-      IF(IVERS.EQ.40 .OR. IVERS.EQ.41 .OR. IVERS.EQ.42) THEN
-         OFFSET2=5.2
-         DPGON(1)=360./(2.*35.)+OFFSET2
-         DPGON(2)=360.
-         DPGON(3)=35.
-         DPGON(4)=2
-         DPGON(5)=(583./2.+(338.-106.))/10.+2.*DPCB(3)-10.5  ! end-ladder electronics
-         DPGON(6)=37.7
-         DPGON(7)=40.
-         DPGON(8)=(583./2.+(338.-106.+15.))/10.+2.*DPCB(3)-10.5 ! end-ladder electr.
-         DPGON(9)=37.7
-         DPGON(10)=40.
-         XPOS=0.
-         YPOS=0.
-         ZPOS=0.
-         CALL GSVOLU('RP05','PGON',IDTMED(275),DPGON,10,IOUT)
-         CALL GSPOS('RP05',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-         DPGON(1)=360./(2.*39.)+OFFSET2
-         DPGON(2)=360.
-         DPGON(3)=39.
-         DPGON(4)=2
-         DPGON(5)=(583./2.+(338.-56.))/10.+2.*DPCB(3)-10.5  ! end-ladder electronics
-         DPGON(6)=42.7
-         DPGON(7)=45.
-         DPGON(8)=(583./2.+(338.-56.+15.))/10.+2.*DPCB(3)-10.5  ! end-ladder electr.
-         DPGON(9)=42.7
-         DPGON(10)=45.
-         XPOS=0.
-         YPOS=0.
-         ZPOS=0.
-         CALL GSVOLU('RP06','PGON',IDTMED(275),DPGON,10,IOUT)
-         CALL GSPOS('RP06',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-      ENDIF    
-      IF(IVERS.EQ.43 .OR. IVERS.EQ.44 .OR. IVERS.EQ.45) THEN
-         OFFSET2=5.2
-         DPGON(1)=360./(2.*32.)+OFFSET2
-         DPGON(2)=360.
-         DPGON(3)=32.
-         DPGON(4)=2
-         DPGON(5)=(583./2.+(338.-106.))/10.-(40.-36.6)/TAN(45.*DEGRAD)+
-     $   2.*DPCB(3)-10.5  ! end-ladder electronics
-         DPGON(6)=34.3
-         DPGON(7)=36.6
-         DPGON(8)=(583./2.+(338.-106.+15.))/10.-
-     $   (40.-36.6)/TAN(45.*DEGRAD)+2.*DPCB(3)-10.5  ! end-ladder electronics
-         DPGON(9)=34.3
-         DPGON(10)=36.6
-         XPOS=0.
-         YPOS=0.
-         ZPOS=0.
-         CALL GSVOLU('RP05','PGON',IDTMED(275),DPGON,10,IOUT)
-         CALL GSPOS('RP05',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-         DPGON(1)=360./(2.*36.)+OFFSET2
-         DPGON(2)=360.
-         DPGON(3)=36.
-         DPGON(4)=2
-         DPGON(5)=(583./2.+(338.-56.))/10.-(45.-41.2)/TAN(45.*DEGRAD)+
-     $   2.*DPCB(3)-10.5  ! end-ladder electronics
-         DPGON(6)=38.9
-         DPGON(7)=41.2
-         DPGON(8)=(583./2.+(338.-56.+15.))/10.-
-     $   (45.-41.2)/TAN(45.*DEGRAD)+2.*DPCB(3)-10.5  ! end-ladder electronics
-         DPGON(9)=38.9
-         DPGON(10)=41.2
-         XPOS=0.
-         YPOS=0.
-         ZPOS=0.
-         CALL GSVOLU('RP06','PGON',IDTMED(275),DPGON,10,IOUT)
-         CALL GSPOS('RP06',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-      ENDIF    
-C
-C 9345 CONTINUE
-C
-C --- Define the Z<0 end-cap
-C
-C      GOTO 9456             ! skip the Z<0 end-cap
-C
-      DCONE(1)=(338.-3.)/2./10.
-      DCONE(2)=(338.-3.)*455./(338.-3.-10.)/10.
-      DCONE(3)=(338.-3.)*455./(338.-3.-10.)/10.+0.02/COS(45.*DEGRAD)
-      DCONE(4)=12.
-      DCONE(5)=12.02
-      XPOS=0.
-      YPOS=0.
-      ZPOS=-(583.+(338.-3.))/2./10.-2.*DPCB(3)+10.5  ! end-ladder electronics
-      CALL GSVOLU('LCON','CONE',IDTMED(275),DCONE,5,IOUT)
-      CALL GSPOS('LCON',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-      DTUBE(1)=(338.-3.)*455./(338.-3.-10.)/10.+0.02/COS(45.*DEGRAD)
-      DTUBE(2)=49.9    ! In the Simonetti's drawings 52. In the TP 50.
-      DTUBE(3)=0.15
-      XPOS=0.
-      YPOS=0.
-      ZPOS=-(583./2.+(338-1.5))/10.-2.*DPCB(3)+10.5  ! end-ladder electronics
-      CALL GSVOLU('LTB1','TUBE',IDTMED(275),DTUBE,3,IOUT)
-      CALL GSPOS('LTB1',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-      DTUBE(1)=10.5
-      DTUBE(2)=12.0
-      DTUBE(3)=26.8/2./10.
-      XPOS=0.
-      YPOS=0.
-      ZPOS=-(583./2.-89.+26.8/2.)/10.-2.*DPCB(3)+10.5  ! end-ladder electronics
-      CALL GSVOLU('LTB2','TUBE',IDTMED(275),DTUBE,3,IOUT)
-      CALL GSPOS('LTB2',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-      DPGON(1)=15.
-      DPGON(2)=360.
-      DPGON(3)=12.
-      DPGON(4)=2
-      DPGON(5)=-583./2./10.-2.*DPCB(3)+10.5  ! end-ladder electronics
-      DPGON(6)=12.0
-      DPGON(7)=13.5
-      DPGON(8)=-(583./2.-62.2)/10.-2.*DPCB(3)+10.5  ! end-ladder electronics
-      DPGON(9)=12.0
-      DPGON(10)=13.5
-      XPOS=0.
-      YPOS=0.
-      ZPOS=0.
-      CALL GSVOLU('LP03','PGON',IDTMED(275),DPGON,10,IOUT)
-      CALL GSPOS('LP03',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-      DPGON(1)=7.5
-      DPGON(2)=360.
-      DPGON(3)=24.
-      DPGON(4)=2
-      DPGON(5)=-(583./2.+(338.-273.+15.))/10.-2.*DPCB(3)+10.5 ! end-ladder electr.
-      DPGON(6)=21.
-      DPGON(7)=23.
-      DPGON(8)=-(583./2.+(338.-273.))/10.-2.*DPCB(3)+10.5  ! end-ladder electronics
-      DPGON(9)=21.
-      DPGON(10)=23.
-      XPOS=0.
-      YPOS=0.
-      ZPOS=0.
-      CALL GSVOLU('LP04','PGON',IDTMED(275),DPGON,10,IOUT)
-      CALL GSPOS('LP04',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-      IF(IVERS.EQ.40 .OR. IVERS.EQ.41 .OR. IVERS.EQ.42) THEN
-         OFFSET2=5.2
-         DPGON(1)=360./(2.*35.)+OFFSET2
-         DPGON(2)=360.
-         DPGON(3)=35.
-         DPGON(4)=2
-         DPGON(5)=-(583./2.+(338.-106.))/10.-2.*DPCB(3)+10.5  ! end-ladder electr.
-         DPGON(6)=37.7
-         DPGON(7)=40.
-         DPGON(8)=-(583./2.+(338.-106.+15.))/10.-2.*DPCB(3)+10.5 ! end-ladder electr.
-         DPGON(9)=37.7
-         DPGON(10)=40.
-         XPOS=0.
-         YPOS=0.
-         ZPOS=0.
-         CALL GSVOLU('LP05','PGON',IDTMED(275),DPGON,10,IOUT)
-         CALL GSPOS('LP05',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-         DPGON(1)=360./(2.*39.)+OFFSET2
-         DPGON(2)=360.
-         DPGON(3)=39.
-         DPGON(4)=2
-         DPGON(5)=-(583./2.+(338.-56.))/10.-2.*DPCB(3)+10.5  ! end-ladder electronics
-         DPGON(6)=42.7
-         DPGON(7)=45.
-         DPGON(8)=-(583./2.+(338.-56.+15.))/10.-2.*DPCB(3)+10.5  ! end-ladder electr.
-         DPGON(9)=42.7
-         DPGON(10)=45.
-         XPOS=0.
-         YPOS=0.
-         ZPOS=0.
-         CALL GSVOLU('LP06','PGON',IDTMED(275),DPGON,10,IOUT)
-         CALL GSPOS('LP06',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-      ENDIF    
-      IF(IVERS.EQ.43 .OR. IVERS.EQ.44 .OR. IVERS.EQ.45) THEN
-         OFFSET2=5.2
-         DPGON(1)=360./(2.*32.)+OFFSET2
-         DPGON(2)=360.
-         DPGON(3)=32.
-         DPGON(4)=2
-         DPGON(5)=-(583./2.+(338.-106.))/10.+(40.-36.6)/TAN(45.*DEGRAD)-
-     $   2.*DPCB(3)+10.5  ! end-ladder electronics
-         DPGON(6)=34.3
-         DPGON(7)=36.6
-         DPGON(8)=-(583./2.+(338.-106.+15.))/10.+
-     $   (40.-36.6)/TAN(45.*DEGRAD)-2.*DPCB(3)+10.5  ! end-ladder electronics
-         DPGON(9)=34.3
-         DPGON(10)=36.6
-         XPOS=0.
-         YPOS=0.
-         ZPOS=0.
-         CALL GSVOLU('LP05','PGON',IDTMED(275),DPGON,10,IOUT)
-         CALL GSPOS('LP05',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-C
-         DPGON(1)=360./(2.*36.)+OFFSET2
-         DPGON(2)=360.
-         DPGON(3)=36.
-         DPGON(4)=2
-         DPGON(5)=-(583./2.+(338.-56.))/10.+(45.-41.2)/TAN(45.*DEGRAD)-
-     $   2.*DPCB(3)+10.5  ! end-ladder electronics
-         DPGON(6)=38.9
-         DPGON(7)=41.2
-         DPGON(8)=-(583./2.+(338.-56.+15.))/10.+
-     $   (45.-41.2)/TAN(45.*DEGRAD)-2.*DPCB(3)+10.5  ! end-ladder electronics
-         DPGON(9)=38.9
-         DPGON(10)=41.2
-         XPOS=0.
-         YPOS=0.
-         ZPOS=0.
-         CALL GSVOLU('LP06','PGON',IDTMED(275),DPGON,10,IOUT)
-         CALL GSPOS('LP06',1,'ITSV',XPOS,YPOS,ZPOS,0,'ONLY')
-      ENDIF    
-C
-C 9456 CONTINUE
-C
- 9234 CONTINUE
-C
- 9999 CONTINUE
-      RETURN
-      END
diff --git a/ITS/AliITSv0.cxx b/ITS/AliITSv0.cxx
deleted file mode 100644 (file)
index c46a1b7..0000000
+++ /dev/null
@@ -1,571 +0,0 @@
-/**************************************************************************
- * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
- *                                                                        *
- * Author: The ALICE Off-line Project.                                    *
- * Contributors are mentioned in the code where appropriate.              *
- *                                                                        *
- * Permission to use, copy, modify and distribute this software and its   *
- * documentation strictly for non-commercial purposes is hereby granted   *
- * without fee, provided that the above copyright notice appears in all   *
- * copies and that both the copyright notice and this permission notice   *
- * appear in the supporting documentation. The authors make no claims     *
- * about the suitability of this software for any purpose. It is          *
- * provided "as is" without express or implied warranty.                  *
- **************************************************************************/
-
-/*
-$Log$
-Revision 1.7  1999/09/29 09:24:20  fca
-Introduction of the Copyright and cvs Log
-
-*/
-
-///////////////////////////////////////////////////////////////////////////////
-//                                                                           //
-//  Inner Traking System version 0                                           //
-//                                                                           //
-//Begin_Html
-/*
-<img src="picts/AliITSv0Class.gif">
-</pre>
-<br clear=left>
-<font size=+2 color=red>
-<p>The responsible person for this module is
-<a href="mailto:roberto.barbera@ct.infn.it">Roberto Barbera</a>.
-</font>
-<pre>
-*/
-//End_Html
-//                                                                           //
-///////////////////////////////////////////////////////////////////////////////
-
-#include <TMath.h>
-#include <TRandom.h>
-#include <TVector.h>
-#include "AliITSv0.h"
-#include "AliRun.h"
-
-#include "AliMC.h"
-#include "AliConst.h"
-
-ClassImp(AliITSv0)
-//_____________________________________________________________________________
-AliITSv0::AliITSv0()
-{
-  //
-  // Default constructor for ITS
-  //
-}
-//_____________________________________________________________________________
-AliITSv0::AliITSv0(const char *name, const char *title)
-      : AliITS(name, title)
-{
-  //
-  // Standard constructor for ITS
-  //
-}
-//_____________________________________________________________________________
-void AliITSv0::CreateGeometry()
-{
-  //
-  // Create Geometry for ITS version 0
-  //
-  //Begin_Html
-  /*
-    <img src="picts/AliITSv0Tree.gif">
-  */
-  //End_Html
-  //Begin_Html
-  /*
-    <img src="picts/AliITSv0.gif">
-  */
-  //End_Html
-  
-  
-  Float_t rl[6]    = { 3.9,7.6,14.,24.,40.,45. };       //SILICON LAYERS INNER RADIUS
-  Float_t drl[6]   = { .755,.755,.809,.809,.7,.7 };     //THICKNESS OF LAYERS (in % radiation length)
-  Float_t dzl[6]   = { 12.67,16.91,20.85,29.15,45.11,50.975 }; //HALF LENGTH OF LAYERS
-  Float_t drpcb[6] = { 0.,0.,.06,.06,0.,0. };           //PCB THICKNESS
-  Float_t drcu[6]  = { 0.,0.,.0504,.0504,.0357,.0357 }; //COPPER THICKNESS
-  Float_t drsi[6]  = { 0.,0.,.006,.006,.3571,.3571 };   //SILICON THICKNESS
-  Float_t drcer[6] = { 0.,0.,.08,.08,0.,0. };           //CERAMICS THICKNESS
-  Float_t drepx[6] = { 0.,0.,0.,0.,.5357,.5357 };       //EPOXY THICKNESS
-  Float_t drpla[6] = { 0.,0.,0.,0.,.1786,.1786 };       //PLASTIC THICKNESS
-  Float_t dzb[6]   = { 0.,0.,15.,15.,4.,4. };           //LENGTH OF BOXES
-  Float_t dphi[6]  = { 72.,72.,72.,72.,50.6,45. };      //COVERED PHI-RANGE FOR LAYERS 1-6
-  
-  Float_t drca;
-  //Float_t dzfc, dwat;
-  Int_t i, nsec;
-  Float_t rend, drca_tpc, dzco, zend, dits[3], rlim, drsu, zmax;
-  Float_t zpos, dzco1, dzco2;
-  Float_t drcac[6], acone, dphii;
-  Float_t pcits[15], xltpc;
-  Float_t rstep, r0, z0, acable, fp, dz, zi, ri;
-  Int_t idrotm[399];
-  Float_t rzcone;
-  Float_t dgh[15];
-  
-  Int_t *idtmed = fIdtmed->GetArray()-199;
-  
-  //     CONVERT INTO CM (RL(SI)=9.36 CM) 
-  for (i = 0; i < 6; ++i) {
-    drl[i] = drl[i]/100. * 9.36;
-  }
-  
-  //     SUPPORT ENDPLANE THICKNESS 
-  drsu = 2.*0.06 + 1./20;  // 1./20. is 1 cm of honeycomb (1/20 carbon density)
-  
-  //     CABLE THICKNESS (HORIZONTAL CABLES CONNECTING THE LAYERS) 
-  drca = .2;
-  
-  //     WATER THICKNESS 
-
-  //dwat = .1;
-  
-  //     CONE BELOW TPC 
-  
-  drca_tpc = 1.2/4.;
-  
-  //     CABLE THICKNESS (CONICAL CABLES CONNECTING THE LAYERS) 
-  
-  
-  //     ITS CONE ANGLE 
-  
-  acone  = 45.;
-  acone *= kDegrad;
-  
-  //     CONE RADIUS AT 1ST LAYER 
-  
-  rzcone = 30.;
-  
-  //     FIELD CAGE HALF LENGTH 
-  
-  //dzfc  = 64.5;
-  rlim  = 48.;
-  zmax  = 80.;
-  xltpc = 275.;
-  
-  
-  //     PARAMETERS FOR SMALL (1/2) ITS 
-  
-  //      DO I=1,6 
-  //        DZL(I)=DZL(I)/2. 
-  //        DZB(I)=DZB(I)/2. 
-  //     ENDDO 
-  //      DRCA=DRCA/2. 
-  //      ACONE=ACONE/2. 
-  //      DRCA_TPC=DRCA_TPC/2. 
-  //      RZCONE=RZCONE/2. 
-  //      DZFC=DZFC/2. 
-  //      ZMAX=ZMAX/2. 
-  //      XLTPC=XLTPC/2. 
-  acable = 8.5;  
-  
-  //     EQUAL DISTRIBUTION INTO THE 6 LAYERS 
-  rstep = drca_tpc / 6.;
-  for (i = 0; i < 6; ++i) {
-    drcac[i] = (i+1) * rstep;
-  }
-
-  //     NUMBER OF PHI SECTORS 
-  
-  nsec = 5;
-  
-  //     NOW PACK USING THICKNESS 
-  
-  for (i = 0; i < 6; ++i) {
-    
-    //     PACKING FACTOR 
-    fp = rl[5] / rl[i];
-    
-    //      PHI-PACKING NOT SUFFICIENT ? 
-    
-    if (dphi[i]/45 < fp) {
-      drcac[i] = drcac[i]*fp*45/dphi[i];
-    }
-  }
-  
-  
-  // --- Define ghost volume containing the six layers and fill it with air 
-  
-  dgh[0] = 3.5;
-  dgh[1] = 50.;
-  dgh[2] = zmax;
-  gMC->Gsvolu("ITSV", "TUBE", idtmed[275], dgh, 3);
-  
-  // --- Place the ghost volume in its mother volume (ALIC) and make it 
-  //     invisible 
-  
-  gMC->Gspos("ITSV", 1, "ALIC", 0., 0., 0., 0, "ONLY");
-  gMC->Gsatt("ITSV", "SEEN", 0);
-  
-  //     ITS LAYERS (SILICON) 
-  
-  dits[0] = rl[0];
-  dits[1] = rl[0] + drl[0];
-  dits[2] = dzl[0];
-  gMC->Gsvolu("ITS1", "TUBE", idtmed[199], dits, 3);
-  gMC->Gspos("ITS1", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-  
-  dits[0] = rl[1];
-  dits[1] = rl[1] + drl[1];
-  dits[2] = dzl[1];
-  gMC->Gsvolu("ITS2", "TUBE", idtmed[199], dits, 3);
-  gMC->Gspos("ITS2", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-  
-  dits[0] = rl[2];
-  dits[1] = rl[2] + drl[2];
-  dits[2] = dzl[2];
-  gMC->Gsvolu("ITS3", "TUBE", idtmed[224], dits, 3);
-  gMC->Gspos("ITS3", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-  
-  dits[0] = rl[3];
-  dits[1] = rl[3] + drl[3];
-  dits[2] = dzl[3];
-  gMC->Gsvolu("ITS4", "TUBE", idtmed[224], dits, 3);
-  gMC->Gspos("ITS4", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-  
-  dits[0] = rl[4];
-  dits[1] = rl[4] + drl[4];
-  dits[2] = dzl[4];
-  gMC->Gsvolu("ITS5", "TUBE", idtmed[249], dits, 3);
-  gMC->Gspos("ITS5", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-  
-  dits[0] = rl[5];
-  dits[1] = rl[5] + drl[5];
-  dits[2] = dzl[5];
-  gMC->Gsvolu("ITS6", "TUBE", idtmed[249], dits, 3);
-  gMC->Gspos("ITS6", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-  
-  //    ELECTRONICS BOXES   
-  //     PCB (layer #3 and #4) 
-  
-  gMC->Gsvolu("IPCB", "TUBE", idtmed[233], dits, 0);
-  for (i = 2; i < 4; ++i) {
-    dits[0] = rl[i];
-    dits[1] = dits[0] + drpcb[i];
-    dits[2] = dzb[i] / 2.;
-    zpos = dzl[i] + dits[2];
-    gMC->Gsposp("IPCB", i-1, "ITSV", 0., 0., zpos, 0, "ONLY", dits, 3);
-    gMC->Gsposp("IPCB", i+1, "ITSV", 0., 0.,-zpos, 0, "ONLY", dits, 3);
-  }
-  
-  //     COPPER (layer #3 and #4) 
-  
-  gMC->Gsvolu("ICO2", "TUBE", idtmed[234], dits, 0);
-  for (i = 2; i < 4; ++i) {
-    dits[0] = rl[i] + drpcb[i];
-    dits[1] = dits[0] + drcu[i];
-    dits[2] = dzb[i] / 2.;
-    zpos = dzl[i] + dits[2];
-    gMC->Gsposp("ICO2", i-1, "ITSV", 0., 0., zpos, 0, "ONLY", dits, 3);
-    gMC->Gsposp("ICO2", i+1, "ITSV", 0., 0.,-zpos, 0, "ONLY", dits, 3);
-  }
-  
-  //     CERAMICS (layer #3 and #4) 
-  
-  gMC->Gsvolu("ICER", "TUBE", idtmed[235], dits, 0);
-  for (i = 2; i < 4; ++i) {
-    dits[0] = rl[i] + drpcb[i] + drcu[i];
-    dits[1] = dits[0] + drcer[i];
-    dits[2] = dzb[i] / 2.;
-    zpos = dzl[i] + dits[2];
-    gMC->Gsposp("ICER", i-1, "ITSV", 0., 0., zpos, 0, "ONLY", dits, 3);
-    gMC->Gsposp("ICER", i+1, "ITSV", 0., 0.,-zpos, 0, "ONLY", dits, 3);
-  }
-  
-  //     SILICON (layer #3 and #4) 
-  
-  gMC->Gsvolu("ISI2", "TUBE", idtmed[226], dits, 0);
-  for (i = 2; i < 4; ++i) {
-    dits[0] = rl[i] + drpcb[i] + drcu[i] + drcer[i];
-    dits[1] = dits[0] + drsi[i];
-    dits[2] = dzb[i] / 2.;
-    zpos = dzl[i - 1] + dits[2];
-    gMC->Gsposp("ISI2", i-1, "ITSV", 0., 0., zpos, 0, "ONLY", dits, 3);
-    gMC->Gsposp("ISI2", i+1, "ITSV", 0., 0.,-zpos, 0, "ONLY", dits, 3);
-  }
-  
-  //     PLASTIC (G10FR4) (layer #5 and #6) 
-  
-  gMC->Gsvolu("IPLA", "TUBE", idtmed[262], dits, 0);
-  for (i = 4; i < 6; ++i) {
-    dits[0] = rl[i];
-    dits[1] = dits[0] + drpla[i];
-    dits[2] = dzb[i] / 2.;
-    zpos = dzl[i] + dits[2];
-    gMC->Gsposp("IPLA", i-1, "ITSV", 0., 0., zpos, 0, "ONLY", dits, 3);
-    gMC->Gsposp("IPLA", i+1, "ITSV", 0., 0.,-zpos, 0, "ONLY", dits, 3);
-  }
-  
-  //     COPPER (layer #5 and #6) 
-  
-  gMC->Gsvolu("ICO3", "TUBE", idtmed[259], dits, 0);
-  for (i = 4; i < 6; ++i) {
-    dits[0] = rl[i] + drpla[i];
-    dits[1] = dits[0] + drcu[i];
-    dits[2] = dzb[i] / 2.;
-    zpos = dzl[i] + dits[2];
-    gMC->Gsposp("ICO3", i-1, "ITSV", 0., 0., zpos, 0, "ONLY", dits, 3);
-    gMC->Gsposp("ICO3", i+1, "ITSV", 0., 0.,-zpos, 0, "ONLY", dits, 3);
-  }
-  
-  //     EPOXY (layer #5 and #6) 
-  
-  gMC->Gsvolu("IEPX", "TUBE", idtmed[262], dits, 0);
-  for (i = 4; i < 6; ++i) {
-    dits[0] = rl[i] + drpla[i] + drcu[i];
-    dits[1] = dits[0] + drepx[i];
-    dits[2] = dzb[i] / 2.;
-    zpos = dzl[i] + dits[2];
-    gMC->Gsposp("IEPX", i-1, "ITSV", 0., 0., zpos, 0, "ONLY", dits, 3);
-    gMC->Gsposp("IEPX", i+1, "ITSV", 0., 0.,-zpos, 0, "ONLY", dits, 3);
-  }
-  
-  //     SILICON (layer #5 and #6) 
-  
-  gMC->Gsvolu("ISI3", "TUBE", idtmed[251], dits, 0);
-  for (i = 4; i < 6; ++i) {
-    dits[0] = rl[i] + drpla[i] + drcu[i] + drepx[i];
-    dits[1] = dits[0] + drsi[i];
-    dits[2] = dzb[i] / 2.;
-    zpos = dzl[i] + dits[2];
-    gMC->Gsposp("ISI3", i-1, "ITSV", 0., 0., zpos, 0, "ONLY", dits, 3);
-    gMC->Gsposp("ISI3", i+1, "ITSV", 0., 0.,-zpos, 0, "ONLY", dits, 3);
-  }
-  
-  //    SUPPORT 
-  
-  gMC->Gsvolu("ISUP", "TUBE", idtmed[274], dits, 0);
-  for (i = 0; i < 6; ++i) {
-    dits[0] = rl[i];
-    if (i < 5) dits[1] = rl[i+1];
-    else       dits[1] = rlim;
-    dits[2] = drsu / 2.;
-    zpos = dzl[i] + dzb[i] + dits[2];
-    gMC->Gsposp("ISUP", i+1, "ITSV", 0., 0., zpos, 0, "ONLY", dits, 3);
-    gMC->Gsposp("ISUP", i+7, "ITSV", 0., 0.,-zpos, 0, "ONLY", dits, 3);
-  }
-  
-  // CABLES (HORIZONTAL) 
-  
-  gMC->Gsvolu("ICHO", "TUBE", idtmed[278], dits, 0);
-  for (i = 0; i < 6; ++i) {
-    dits[0] = rl[i];
-    dits[1] = dits[0] + drca;
-    dits[2] = (rzcone + TMath::Tan(acone) * (rl[i] - rl[0]) - (dzl[i]+ dzb[i] + drsu)) / 2.;
-    zpos = dzl[i] + dzb[i] + drsu + dits[2];
-    gMC->Gsposp("ICHO", i+1, "ITSV", 0., 0., zpos, 0, "ONLY", dits, 3);
-    gMC->Gsposp("ICHO", i+7, "ITSV", 0., 0.,-zpos, 0, "ONLY", dits, 3);
-  }
-  //    DEFINE A CONICAL GHOST VOLUME FOR THE PHI SEGMENTATION 
-  pcits[0] = 0.;
-  pcits[1] = 360.;
-  pcits[2] = 2.;
-  pcits[3] = rzcone;
-  pcits[4] = 3.5;
-  pcits[5] = rl[0];
-  pcits[6] = pcits[3] + TMath::Tan(acone) * (rlim - rl[0]);
-  pcits[7] = rlim - rl[0] + 3.5;
-  pcits[8] = rlim;
-  gMC->Gsvolu("ICMO", "PCON", idtmed[275], pcits, 9);
-  AliMatrix(idrotm[200], 90., 0., 90., 90., 180., 0.);
-  gMC->Gspos("ICMO", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-  gMC->Gspos("ICMO", 2, "ITSV", 0., 0., 0., idrotm[200], "ONLY");
-  
-  //     DIVIDE INTO NSEC PHI-SECTIONS 
-  
-  gMC->Gsdvn("ICMD", "ICMO", nsec, 2);
-  gMC->Gsatt("ICMO", "SEEN", 0);
-  gMC->Gsatt("ICMD", "SEEN", 0);
-  
-  //     CONICAL CABLES 
-  
-  pcits[2] = 2.;
-  gMC->Gsvolu("ICCO", "PCON", idtmed[278], pcits, 0);
-  for (i = 1; i < 6; ++i) {
-    pcits[0] = -dphi[i] / 2.;
-    pcits[1] = dphi[i];
-    if (i < 5) {
-      dzco = TMath::Tan(acone) * (rl[i] - rl[i-1]);
-    } else {
-      dzco1 = zmax - (rzcone + TMath::Tan(acone) * (rl[5] - rl[0])) -2.;
-      dzco2 = (rlim - rl[5]) * TMath::Tan(acone);
-      if (rl[5] + dzco1 / TMath::Tan(acone) < rlim) {
-       dzco = dzco1;
-      } else {
-       dzco = dzco2;
-      }
-    }
-    pcits[3] = rzcone + TMath::Tan(acone) * (rl[i] - rl[0]);
-    pcits[4] = rl[i] - drcac[i] / TMath::Sin(acone);
-    pcits[5] = rl[i];
-    pcits[6] = pcits[3] + dzco;
-    pcits[7] = rl[i] + dzco / TMath::Tan(acone) - drcac[i] / TMath::Sin(acone);
-    pcits[8] = rl[i] + dzco / TMath::Tan(acone);
-    
-    gMC->Gsposp("ICCO", i, "ICMD", 0., 0., 0., 0, "ONLY", pcits, 9);
-    
-  }
-  zend = pcits[6];
-  rend = pcits[8];
-  
-  //  CONICAL CABLES BELOW TPC 
-  
-  //    DEFINE A CONICAL GHOST VOLUME FOR THE PHI SEGMENTATION 
-  pcits[0] = 0.;
-  pcits[1] = 360.;
-  pcits[2] = 2.;
-  pcits[3] = zend;
-  pcits[5] = rend;
-  pcits[4] = pcits[5] - drca_tpc;
-  pcits[6] = xltpc;
-  pcits[8] = pcits[4] + (pcits[6] - pcits[3]) * TMath::Tan(acable * kDegrad);
-  pcits[7] = pcits[8] - drca_tpc;
-  AliMatrix(idrotm[200], 90., 0., 90., 90., 180., 0.);
-  gMC->Gsvolu("ICCM", "PCON", idtmed[275], pcits, 9);
-  gMC->Gspos("ICCM", 1, "ALIC", 0., 0., 0., 0, "ONLY");
-  gMC->Gspos("ICCM", 2, "ALIC", 0., 0., 0., idrotm[200], "ONLY");
-  gMC->Gsdvn("ITMD", "ICCM", nsec, 2);
-  gMC->Gsatt("ITMD", "SEEN", 0);
-  gMC->Gsatt("ICCM", "SEEN", 0);
-  
-  //     NOW PLACE SEGMENTS WITH DECREASING PHI SEGMENTS INTO THE 
-  //     GHOST-VOLUME 
-  
-  pcits[2] = 2.;
-  gMC->Gsvolu("ITTT", "PCON", idtmed[278], pcits, 0);
-  r0 = rend;
-  z0 = zend;
-  dz = (xltpc - zend) / 9.;
-  for (i = 0; i < 9; ++i) {
-    zi = z0 + i* dz + dz / 2.;
-    ri = r0 + (zi - z0) * TMath::Tan(acable * kDegrad);
-    dphii = dphi[5] * r0 / ri;
-    pcits[0] = -dphii / 2.;
-    pcits[1] = dphii;
-    pcits[3] = zi - dz / 2.;
-    pcits[5] = r0 + (pcits[3] - z0) * TMath::Tan(acable * kDegrad);
-    pcits[4] = pcits[5] - drca_tpc;
-    pcits[6] = zi + dz / 2.;
-    pcits[8] = r0 + (pcits[6] - z0) * TMath::Tan(acable * kDegrad);
-    pcits[7] = pcits[8] - drca_tpc;
-    
-    gMC->Gsposp("ITTT", i+1, "ITMD", 0., 0., 0., 0, "ONLY", pcits, 9);
-  }
-  
-  // --- Outputs the geometry tree in the EUCLID/CAD format 
-  
-  if (fEuclidOut) {
-    gMC->WriteEuclid("ITSgeometry", "ITSV", 1, 5);
-  }
-}
-//_____________________________________________________________________________
-void AliITSv0::DrawModule()
-{
-  //
-  // Draw a shaded view of the FMD version 1
-  //
-  
-  
-  // Set everything unseen
-  gMC->Gsatt("*", "seen", -1);
-  // 
-  // Set ALIC mother visible
-  gMC->Gsatt("ALIC","SEEN",0);
-  //
-  // Set the volumes visible
-  gMC->Gsatt("ITSV","SEEN",0);
-  gMC->Gsatt("ITS1","SEEN",1);
-  gMC->Gsatt("ITS2","SEEN",1);
-  gMC->Gsatt("ITS3","SEEN",1);
-  gMC->Gsatt("ITS4","SEEN",1);
-  gMC->Gsatt("ITS5","SEEN",1);
-  gMC->Gsatt("ITS6","SEEN",1);
-  gMC->Gsatt("ISI2","SEEN",1);
-  gMC->Gsatt("IPLA","SEEN",1);
-  gMC->Gsatt("ICHO","SEEN",1);
-  gMC->Gsatt("ICMO","SEEN",0);
-  gMC->Gsatt("ICMD","SEEN",0);
-  gMC->Gsatt("ICCO","SEEN",1);
-  gMC->Gsatt("ICCM","SEEN",0);
-  gMC->Gsatt("ITMD","SEEN",0);
-  gMC->Gsatt("ITTT","SEEN",1);
-  //
-  gMC->Gdopt("hide", "on");
-  gMC->Gdopt("shad", "on");
-  gMC->Gsatt("*", "fill", 7);
-  gMC->SetClipBox(".");
-  gMC->SetClipBox("*", 0, 300, -300, 300, -300, 300);
-  gMC->DefaultRange();
-  gMC->Gdraw("alic", 40, 30, 0, 11, 10, .05, .05);
-  gMC->Gdhead(1111, "Inner Tracking System Version 0");
-  gMC->Gdman(16, 6, "MAN");
-}
-
-//_____________________________________________________________________________
-void AliITSv0::StepManager()
-{
-  //
-  // Called at every step in the ITS
-  //
-  Int_t         copy, id;
-  Float_t       hits[7];
-  Int_t         vol[3];
-  TLorentzVector position;
-  TLorentzVector momentum;
-  TClonesArray &lhits = *fHits;
-  //
-  if(gMC->TrackCharge() && gMC->Edep()) {
-    //
-    // Only entering charged tracks
-    if((id=gMC->CurrentVolID(copy))==fIdSens1) {  
-      vol[0]=1;
-      id=gMC->CurrentVolOffID(1,copy);      
-      vol[1]=copy;
-      id=gMC->CurrentVolOffID(2,copy);
-      vol[2]=copy;                       
-    } else if(id==fIdSens2) {
-      vol[0]=2;
-      id=gMC->CurrentVolOffID(1,copy);       
-      vol[1]=copy;
-      id=gMC->CurrentVolOffID(2,copy);
-      vol[2]=copy;                    
-    } else if(id==fIdSens3) {
-      vol[0]=3;
-      vol[1]=copy;
-      id=gMC->CurrentVolOffID(1,copy);
-      vol[2]=copy;             
-    } else if(id==fIdSens4) {
-      vol[0]=4;
-      vol[1]=copy;
-      id=gMC->CurrentVolOffID(1,copy);
-      vol[2]=copy;                  
-    } else if(id==fIdSens5) {
-      vol[0]=5;
-      vol[1]=copy;
-      id=gMC->CurrentVolOffID(1,copy);
-      vol[2]=copy;               
-    } else if(id==fIdSens6) {
-      vol[0]=6;
-      vol[1]=copy;
-      id=gMC->CurrentVolOffID(1,copy);
-      vol[2]=copy;                      
-    } else return;
-    gMC->TrackPosition(position);
-    gMC->TrackMomentum(momentum);
-    hits[0]=position[0];
-    hits[1]=position[1];
-    hits[2]=position[2];          
-    hits[3]=momentum[0];
-    hits[4]=momentum[1];
-    hits[5]=momentum[2];          
-    hits[6]=gMC->Edep();
-    new(lhits[fNhits++]) AliITShit(fIshunt,gAlice->CurrentTrack(),vol,hits);
-  }    
-}
diff --git a/ITS/AliITSv0.h b/ITS/AliITSv0.h
deleted file mode 100644 (file)
index a6638a1..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-#ifndef ITSv0_H
-#define ITSv0_H
-/* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
- * See cxx source for full Copyright notice                               */
-
-/* $Id$ */
-
-/////////////////////////////////////////////////////////
-//  Manager and hits classes for set: ITS version 0    //
-/////////////////////////////////////////////////////////
-#include "AliITS.h"
-
-class AliITSv0 : public AliITS {
-public:
-   AliITSv0();
-   AliITSv0(const char *name, const char *title);
-   virtual       ~AliITSv0() {}
-   virtual void   CreateGeometry();
-   virtual Int_t  IsVersion() const {return 0;}
-   virtual void   DrawModule();
-   virtual void   StepManager();
-   
-   ClassDef(AliITSv0,1)  //Hits manager for set:ITS version 0
-};
-#endif
diff --git a/ITS/AliITSv4.cxx b/ITS/AliITSv4.cxx
deleted file mode 100644 (file)
index 3d14c8a..0000000
+++ /dev/null
@@ -1,4590 +0,0 @@
-/**************************************************************************
- * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
- *                                                                        *
- * Author: The ALICE Off-line Project.                                    *
- * Contributors are mentioned in the code where appropriate.              *
- *                                                                        *
- * Permission to use, copy, modify and distribute this software and its   *
- * documentation strictly for non-commercial purposes is hereby granted   *
- * without fee, provided that the above copyright notice appears in all   *
- * copies and that both the copyright notice and this permission notice   *
- * appear in the supporting documentation. The authors make no claims     *
- * about the suitability of this software for any purpose. It is          *
- * provided "as is" without express or implied warranty.                  *
- **************************************************************************/
-
-/*
-$Log$
-Revision 1.6  1999/09/29 09:24:20  fca
-Introduction of the Copyright and cvs Log
-
-*/
-
-///////////////////////////////////////////////////////////////////////////////
-//                                                                           //
-//  Inner Traking System version 4                                           //
-//                                                                           //
-//Begin_Html
-/*
-<img src="picts/AliITSv4Class.gif">
-</pre>
-<br clear=left>
-<font size=+2 color=red>
-<p>The responsible person for this module is
-<a href="mailto:roberto.barbera@ct.infn.it">Roberto Barbera</a>.
-</font>
-<pre>
-*/
-//End_Html
-//                                                                           //
-///////////////////////////////////////////////////////////////////////////////
-#include <TMath.h>
-#include <TRandom.h>
-#include <TVector.h>
-#include "AliITSv4.h"
-#include "AliRun.h"
-#include "AliCallf77.h"
-
-#include "TGeant3.h"
-
-# define its_geo4          its_geo4_
-extern "C" void type_of_call its_geo4(Int_t&, Int_t*);
-  
-ClassImp(AliITSv4)
-//_____________________________________________________________________________
-AliITSv4::AliITSv4()
-{
-  //
-  // Default constructor for the ITS
-  //
-  fMinorVersion=1;
-}
-//_____________________________________________________________________________
-AliITSv4::AliITSv4(const char *name, const char *title)
-  : AliITS(name, title)
-{
-  //
-  // Standard constructor
-  //
-  fMinorVersion=1;
-}
-//_____________________________________________________________________________
-void AliITSv4::CreateGeometry()
-{
-  //
-  // Create geometry for its version 4
-  //
-#ifndef NEW
-  Int_t ivers=4*10+fMinorVersion;
-  its_geo4(ivers, fIdtmed->GetArray()-200;
-#else
-// *** DEFINITION OF THE GEOMETRY OF THE ITS *** 
-// *** RB APR-1990 CATANIA *** 
-// ORIGIN    : ROBERTO BARBERA 
-
-    Float_t xx[13] = { 0.,0.,-4.824,-4.833,-22.167,-22.585,-28.07,-27.626,
-           -38.139,-19.749,-13.449,-14.726,0. };
-    Float_t yy[13] = { 0.,34.028,34.064,
-           32.594,29.984,30.914,29.18,27.777,22.522,-7.918,-4.769,-2.216,0. };
-    Float_t xbeg[12] = { 0.,-.497,-4.827,-5.425,-22.395,-23.009,-27.919,
-           -28.161,-37.859,-19.337,-13.673,-13.773 };
-    Float_t ybeg[12] = { .43,34.032,33.564,
-           32.505,30.493,30.781,28.702,27.509,22.058,-7.711,-4.322,-2.073 };
-    Float_t xend[12] = { 0.,-4.323,-4.83,-21.643,-22.395,-27.593,-27.807,
-           -37.655,-19.988,-13.897,-14.294,-.425 };
-    Float_t yend[12] = { 33.531,34.06,33.192,
-           30.064,30.493,29.33,28.347,22.764,-7.523,-4.992,-3.077,-.064 };
-    Float_t xarc[12] = { -19.56,-14.12,-13.669,-.5,-.5,-4.327,-5.529,-21.746,
-           -22.858,-27.442,-28.474,-37.431 };
-    Float_t yarc[12] = { -7.264,-4.545,-2.765,
-           .431,33.531,33.56,33.197,30.756,30.304,28.854,28.136,22.316 };
-    Float_t rarc[12] = { .5,.5,.7,.5,.5,.5,.7,.7,.5,.5,.7,.5 };
-    Float_t rr    = 4.08332;
-    Float_t tteta = 63.;
-    Float_t pphi  = -27.;
-    Float_t gteta = 89.4;
-
-    static Double_t biga, bigb;
-    Float_t dcei[3], dela[3], dchi[3], dpcb[3], darc[5], dfra[10], dcer[3], dkap[3], dpla[3], xccc, yccc, aphi, dcop[3], dtra[3], dsil[3], 
-           atheta1213, dbus[3], dtub[3], dwat[3], depx[3], dits[3], atheta1112, atheta1011, dsup[3], xtra[8], ytra[8], ztra[8], dsrv[3];
-    static Double_t biga1, bigb1;
-    Float_t runo, xpos, ypos, zpos, rtwo, aphi1, aphi2, dtra1[3], dtra2[3], dtra3[3], dtra4[3], dbox1[3], dbox2[3];
-    Int_t jbox1, jbox2;
-    Float_t xtra1[6], ytra1[6], ztra1[6];
-    Int_t i;
-    Float_t xpos1, ypos1;
-    Int_t j;
-    Float_t angle, dcone[5], dtube[3], dpgon[10];
-    Float_t rzero, xzero, yzero;
-    static Double_t coeffa, coeffb, coeffc;
-    Int_t idrotm[5250];
-    Float_t atheta, offset;
-    Float_t offset1, offset2, dgh[15];
-    extern Double_t atg_(Float_t *, real *);
-    Float_t xcc, ycc, sep, atheta12, atheta23, atheta34, atheta45, atheta56, atheta67, atheta78, atheta89, yos, xxm, dal1[3], dal2[3];
-
-    static Double_t xcc1, ycc1, xcc2, ycc2;
-    Float_t atheta910;
-
-    Int_t *idtmed = fIdtmed->GetArray()-199;
-    
-#define natra_ref(a_0,a_1) &natra[(a_1)*4 + a_0 - 4]
-#define natra1_ref(a_0,a_1) &natra1[(a_1)*4 + a_0 - 4]
-#define natra2_ref(a_0,a_1) &natra2[(a_1)*4 + a_0 - 4]
-#define natra3_ref(a_0,a_1) &natra3[(a_1)*4 + a_0 - 4]
-#define natra4_ref(a_0,a_1) &natra4[(a_1)*4 + a_0 - 4]
-
-
-// --- Define ghost volume containing the whole ITS and fill it with air 
-//     or vacuum 
-
-// 89.4 = 90.-0.6 
-    dgh[0] = 0.;
-    dgh[1] = 360.;
-    dgh[2] = 4.;
-    dgh[3] = -70.;
-    dgh[4] = 49.999;
-    dgh[5] = 49.999;
-    dgh[6] = -25.;
-    dgh[7] = 3.;
-    dgh[8] = 49.999;
-    dgh[9] = 25.;
-    dgh[10] = 3.;
-    dgh[11] = 49.999;
-    dgh[12] = 70.;
-    dgh[13] = 49.999;
-    dgh[14] = 49.999;
-    geant->Gsvolu("ITSV", "PCON", idtmed[275], dgh, 15);
-
-// --- Place the ghost volume in its mother volume (ALIC) and make it 
-//     invisible 
-
-    geant->Gspos("ITSV", 1, "ALIC", 0., 0., 0., 0, "ONLY");
-    geant->Gsatt("ITSV", "SEEN", 0);
-
-//************************************************************************
-//*                                                                      *
-//*                               P I X E L S                            *
-//*                               ===========                            *
-//*                                                                      *
-//************************************************************************
-
-//      GOTO 2345             ! skip ITS layer no. 1 and 2 
-
-//--- Define ghost volume containing the Pixel Detectors and fill it with air
-//     or vacuum 
-
-    xxm = 1.0444222222222224;
-    dgh[0] = 0.;
-    dgh[1] = 360.;
-    dgh[2] = 4.;
-    dgh[3] = -25. - 5.9900000000000002 / xxm;
-    dgh[4] = 9.;
-    dgh[5] = 9.;
-    dgh[6] = -25.;
-    dgh[7] = 3.01;
-    dgh[8] = 9.;
-    dgh[9] = 25.;
-    dgh[10] = 3.01;
-    dgh[11] = 9.;
-    dgh[12] = 5.9900000000000002 / xxm + 25.;
-    dgh[13] = 9.;
-    dgh[14] = 9.;
-    geant->Gsvolu("IT12", "PCON", idtmed[275], dgh, 15);
-
-// --- Place the ghost volume in its mother volume (ITSV) and make it 
-//     invisible 
-
-    geant->Gspos("IT12", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-    geant->Gsatt("IT12", "SEEN", 0);
-
-// --- Define a ghost volume containing a single element of layer #1 
-//     and fill it with air or vacuum 
-
-    dbox1[0] = .022499999999999999;
-    dbox1[1] = .79;
-    dbox1[2] = 12.67;
-    geant->Gsvolu("IPV1", "BOX ", idtmed[203], dbox1, 3);
-           ;
-
-//--- Divide each element of layer #1 in three ladders along the beam direction
-
-    geant->Gsdvn("IPB1", "IPV1", 3, 3);
-
-// --- Make the ghost volumes invisible 
-
-    geant->Gsatt("IPV1", "SEEN", 0);
-    geant->Gsatt("IPB1", "SEEN", 0);
-
-// --- Define a volume containing the chip of pixels (silicon, layer #1) 
-
-    dchi[0] = .005;
-    dchi[1] = .79;
-    dchi[2] = dbox1[2] / 3.;
-    geant->Gsvolu("ICH1", "BOX ", idtmed[200], dchi, 3);
-
-// --- Define a volume containing the bus of pixels (silicon, layer #1) 
-
-    dbus[0] = .01;
-    dbus[1] = .64;
-    dbus[2] = 4.19;
-    geant->Gsvolu("IBU1", "BOX ", idtmed[201], dbus, 3);
-
-// --- Define a volume containing the sensitive part of pixels 
-//     (silicon, layer #1) 
-
-    dits[0] = .0075;
-    dits[1] = .64;
-    dits[2] = 4.19;
-    geant->Gsvolu("ITS1", "BOX ", idtmed[199], dits, 3);
-
-// --- Place the chip into its mother (IPB1) 
-
-    xpos = dbox1[0] - dchi[0];
-    ypos = 0.;
-    zpos = 0.;
-    geant->Gspos("ICH1", 1, "IPB1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the sensitive volume into its mother (IPB1) 
-
-    xpos = dbox1[0] - dchi[0] * 2. - dits[0];
-    ypos = dchi[1] - dits[1];
-    zpos = -(dchi[2] - dits[2]);
-    geant->Gspos("ITS1", 1, "IPB1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the bus into its mother (IPB1) 
-
-    xpos = dbox1[0] - dchi[0] * 2. - dits[0] * 2. - dbus[0];
-    ypos = dchi[1] - dbus[1];
-    zpos = -(dchi[2] - dbus[2]);
-    geant->Gspos("IBU1", 1, "IPB1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Define a ghost volume containing a single element of layer #2 
-//     and fill it with air or vacuum 
-
-    dbox2[0] = .022499999999999999;
-    dbox2[1] = .79;
-    dbox2[2] = 16.91;
-    geant->Gsvolu("IPV2", "BOX ", idtmed[203], dbox2, 3);
-           ;
-
-//--- Divide each element of layer #2 in four ladders along the beam direction
-
-    geant->Gsdvn("IPB2", "IPV2", 4, 3);
-
-// --- Make the ghost volumes invisible 
-
-    geant->Gsatt("IPV2", "SEEN", 0);
-    geant->Gsatt("IPB2", "SEEN", 0);
-
-// --- Define a volume containing the chip of pixels (silicon, layer #2) 
-
-    dchi[0] = .005;
-    dchi[1] = .79;
-    dchi[2] = dbox2[2] / 4.;
-    geant->Gsvolu("ICH2", "BOX ", idtmed[200], dchi, 3);
-
-// --- Define a volume containing the bus of pixels (silicon, layer #2) 
-
-    dbus[0] = .01;
-    dbus[1] = .64;
-    dbus[2] = 4.19;
-    geant->Gsvolu("IBU2", "BOX ", idtmed[201], dbus, 3);
-
-// --- Define a volume containing the sensitive part of pixels 
-//     (silicon, layer #2) 
-
-    dits[0] = .0075;
-    dits[1] = .64;
-    dits[2] = 4.19;
-    geant->Gsvolu("ITS2", "BOX ", idtmed[199], dits, 3);
-
-// --- Place the chip into its mother (IPB2) 
-
-    xpos = dbox1[0] - dbus[0] * 2. - dits[0] * 2. - dchi[0];
-    ypos = 0.;
-    zpos = 0.;
-    geant->Gspos("ICH2", 1, "IPB2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the sensitive volume into its mother (IPB2) 
-
-    xpos = dbox1[0] - dbus[0] * 2. - dits[0];
-    ypos = -(dchi[1] - dits[1]);
-    zpos = -(dchi[2] - dits[2]);
-    geant->Gspos("ITS2", 1, "IPB2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the bus into its mother (IPB2) 
-
-    xpos = dbox1[0] - dbus[0];
-    ypos = -(dchi[1] - dbus[1]);
-    zpos = -(dchi[2] - dbus[2]);
-    geant->Gspos("IBU2", 1, "IPB2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Define a generic segment of an element of the mechanical support 
-
-    dsup[0] = 0.;
-    dsup[1] = 0.;
-    dsup[2] = 0.;
-    geant->Gsvolu("SPIX", "BOX ", idtmed[202], dsup, 0);
-
-// --- Define a generic arc of an element of the mechanical support 
-
-    darc[0] = 0.;
-    darc[1] = 0.;
-    darc[2] = 0.;
-    geant->Gsvolu("SARC", "TUBS", idtmed[202], darc, 0);
-
-// --- Define the mechanical supports of layers #1 and #2 and place the 
-//     elements of the layers in it 
-
-    jbox1 = 0;
-// counter over the number of elements of layer #1 ( 
-    jbox2 = 0;
-
-// counter over the number of elements of layer #2 ( 
-    for (i = 1; i <= 10; ++i) {
-
-// --- Place part # 1-2 (see sketch) 
-
-// number of carbon fiber supports (see sketch) 
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[0] - xbeg[0]) * (xend[0] - xbeg[0]) + (yend[0] - ybeg[0]) * (yend[0] - ybeg[0])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[0] + xx[1]) / 20.;
-       ycc     = (yy[0] + yy[1]) / 20.;
-       xccc    = (xbeg[0] + xend[0]) / 20.;
-       yccc    = (ybeg[0] + yend[0]) / 20.;
-       if (xx[0] == xx[1]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[1] - xx[0];
-           offset2 = atg_(&yy[1] - yy[0], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta12 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1100], 90., atheta12, 90., atheta12 + 90., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 1, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1100], "ONLY", dsup, 3);
-
-// --- Place part # 2-3 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[1] - xbeg[1]) * (xend[1] - xbeg[1]) + (yend[1] - ybeg[1]) * (yend[1] - ybeg[1])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[1] + xx[2]) / 20.;
-       ycc     = (yy[1] + yy[2]) / 20.;
-       xccc    = (xbeg[1] + xend[1]) / 20.;
-       yccc    = (ybeg[1] + yend[1]) / 20.;
-       if (xx[1] == xx[2]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[2] - xx[1];
-           offset2 = atg_(&yy[2] - yy[1], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta23 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1101], 90., atheta23, 90., atheta23 + 90., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 2, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1101], "ONLY", dsup, 3);
-
-// --- Place an element of layer #2 
-
-       biga   = (yy[2] - yy[1]) / (xx[2] - xx[1]);
-       bigb   = (xx[2] * yy[1] - xx[1] * yy[2]) / (xx[2] - xx[1]) / 10.;
-       coeffa = biga * biga + 1.;
-       coeffb = biga * bigb - biga * ycc - xcc;
-       coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + bigb * bigb - .0022212369;
-       xcc1   = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa;
-       ycc1   = biga * xcc1 + bigb;
-       biga1  = -1. / biga;
-       bigb1  = xcc1 / biga + ycc1;
-       coeffa = biga1 * biga1 + 1.;
-       coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1;
-       coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + bigb1 * bigb1 - (dsup[0] + dbox2[0]) * (dsup[0] + dbox2[0]);
-       xcc2   = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa;
-       ycc2   = biga1 * xcc2 + bigb1;
-       xpos1  = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero;
-       ypos1  = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero;
-       xpos   = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos   = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos   = 0.;
-       ++jbox2;
-       geant->Gspos("IPV2", jbox2, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1101], "ONLY");
-
-// --- Place part # 3-4 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[2] - xbeg[2]) * (xend[2] - xbeg[2]) + (yend[2] - ybeg[2]) * (yend[2] - ybeg[2])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[1] + xx[2]) / 20.;
-       ycc     = (yy[1] + yy[2]) / 20.;
-       xccc    = (xbeg[2] + xend[2]) / 20.;
-       yccc    = (ybeg[2] + yend[2]) / 20.;
-       if (xx[2] == xx[3]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[3] - xx[2];
-           offset2 = atg_(&yy[3] - yy[2], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta34 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1102], 90., atheta34, 90., atheta34 + 90., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 3, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1102], "ONLY", dsup, 3);
-
-// --- Place part # 4-5 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[3] - xbeg[3]) * (xend[3] - xbeg[3]) + (yend[3] - ybeg[3]) * (yend[3] - ybeg[3])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[3] + xx[4]) / 20.;
-       ycc     = (yy[3] + yy[4]) / 20.;
-       xccc    = (xbeg[3] + xend[3]) / 20.;
-       yccc    = (ybeg[3] + yend[3]) / 20.;
-       if (xx[3] == xx[4]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[4] - xx[3];
-           offset2 = atg_(&yy[4] - yy[3], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta45 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1103], 90., atheta45, 90., atheta45 + 90., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 4, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1103], "ONLY", dsup, 3);
-
-// --- Place an element of layer #2 
-
-       biga   = (yy[4] - yy[3]) / (xx[4] - xx[3]);
-       bigb   = (xx[4] * yy[3] - xx[3] * yy[4]) / (xx[4] - xx[3]) / 10.;
-       coeffa = biga * biga + 1.;
-       coeffb = biga * bigb - biga * ycc - xcc;
-       coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + bigb * bigb + 0.;
-       xcc1   = xccc;
-       ycc1   = yccc;
-       biga1  = -1. / biga;
-       bigb1  = xcc1 / biga + ycc1;
-       coeffa = biga1 * biga1 + 1.;
-       coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1;
-       coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + bigb1 * bigb1 - (dsup[0] + dbox2[0]) * (dsup[0] + dbox2[0]);
-       xcc2   = (-coeffb - TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa;
-       ycc2   = biga1 * xcc2 + bigb1;
-       xpos1  = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero;
-       ypos1  = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero;
-       xpos   = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos   = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos   = 0.;
-       ++jbox2;
-       geant->Gspos("IPV2", jbox2, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1103], "ONLY");
-
-// --- Place part # 5-6 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[4] - xbeg[4]) * (xend[4] - xbeg[4]) + (yend[4] - ybeg[4]) * (yend[4] - ybeg[4])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[4] + xx[5]) / 20.;
-       ycc     = (yy[4] + yy[5]) / 20.;
-       xccc    = (xbeg[4] + xend[4]) / 20.;
-       yccc    = (ybeg[4] + yend[4]) / 20.;
-       if (xx[4] == xx[5]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[5] - xx[4];
-           offset2 = atg_(&yy[5] - yy[4], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta56 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1104], 90., atheta56, 90., atheta56 + 90., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 5, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1104], "ONLY", dsup, 3);
-
-// --- Place part # 6-7 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[5] - xbeg[5]) * (xend[5] - xbeg[5]) + (yend[5] - ybeg[5]) * (yend[5] - ybeg[5])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[5] + xx[6]) / 20.;
-       ycc     = (yy[5] + yy[6]) / 20.;
-       xccc    = (xbeg[5] + xend[5]) / 20.;
-       yccc    = (ybeg[5] + yend[5]) / 20.;
-       if (xx[5] == xx[6]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[6] - xx[5];
-           offset2 = atg_(&yy[6] - yy[5], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta67 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1105], 90., atheta67, 90., atheta67 + 90., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 6, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1105], "ONLY", dsup, 3);
-
-// --- Place an element of layer #2 
-
-       biga   = (yy[6] - yy[5]) / (xx[6] - xx[5]);
-       bigb   = (xx[6] * yy[5] - xx[5] * yy[6]) / (xx[6] - xx[5]) / 10.;
-       coeffa = biga * biga + 1.;
-       coeffb = biga * bigb - biga * ycc - xcc;
-       coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + bigb * bigb + 0.;
-       xcc1   = xccc;
-       ycc1   = yccc;
-       biga1  = -1. / biga;
-       bigb1  = xcc1 / biga + ycc1;
-       coeffa = biga1 * biga1 + 1.;
-       coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1;
-       coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + bigb1 * bigb1 - (dsup[0] + dbox2[0]) * (dsup[0] + dbox2[0]);
-       xcc2   = (-coeffb - TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa;
-       ycc2   = biga1 * xcc2 + bigb1;
-       xpos1  = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero;
-       ypos1  = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero;
-       xpos   = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos   = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos   = 0.;
-       ++jbox2;
-       geant->Gspos("IPV2", jbox2, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1105], "ONLY");
-
-// --- Place part # 7-8 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[6] - xbeg[6]) * (xend[6] - xbeg[6]) + (yend[6] - ybeg[6]) * (yend[6] - ybeg[6])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[6] + xx[7]) / 20.;
-       ycc     = (yy[6] + yy[7]) / 20.;
-       xccc    = (xbeg[6] + xend[6]) / 20.;
-       yccc    = (ybeg[6] + yend[6]) / 20.;
-       if (xx[6] == xx[7]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[7] - xx[6];
-           offset2 = atg_(&yy[7] - yy[6], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta78 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1106], 90., atheta78, 90., atheta78 + 90., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 7, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1106], "ONLY", dsup, 3);
-
-// --- Place part # 8-9 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[7] - xbeg[7]) * (xend[7] - xbeg[7]) + (yend[7] - ybeg[7]) * (yend[7] - ybeg[7])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[7] + xx[8]) / 20.;
-       ycc     = (yy[7] + yy[8]) / 20.;
-       xccc    = (xbeg[7] + xend[7]) / 20.;
-       yccc    = (ybeg[7] + yend[7]) / 20.;
-       if (xx[1] == xx[2]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[8] - xx[7];
-           offset2 = atg_(&yy[8] - yy[7], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta89 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1107], 90., atheta89, 90., atheta89 + 90., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 8, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1107], "ONLY", dsup, 3);
-
-// --- Place an element of layer #2 
-
-       biga   = (yy[8] - yy[7]) / (xx[8] - xx[7]);
-       bigb   = (xx[8] * yy[7] - xx[7] * yy[8]) / (xx[8] - xx[7]) / 10.;
-       coeffa = biga * biga + 1.;
-       coeffb = biga * bigb - biga * ycc - xcc;
-       coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + bigb * bigb - .055526209599999994;
-       xcc1   = (-coeffb - TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa;
-       ycc1   = biga * xcc1 + bigb;
-       biga1  = -1. / biga;
-       bigb1  = xcc1 / biga + ycc1;
-       coeffa = biga1 * biga1 + 1.;
-       coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1;
-       coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + bigb1 * bigb1 - (dsup[0] + dbox2[0]) * (dsup[0] + dbox2[0]);
-       xcc2   = (-coeffb - TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa;
-       ycc2   = biga1 * xcc2 + bigb1;
-       xpos1  = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero;
-       ypos1  = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero;
-       xpos   = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos   = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos   = 0.;
-       ++jbox2;
-       geant->Gspos("IPV2", jbox2, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1107], "ONLY");
-
-// --- Place part # 9-10 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[8] - xbeg[8]) * (xend[8] - xbeg[8]) + (yend[8] - ybeg[8]) * (yend[8] - ybeg[8])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[8] + xx[9]) / 20.;
-       ycc     = (yy[8] + yy[9]) / 20.;
-       xccc    = (xbeg[8] + xend[8]) / 20.;
-       yccc    = (ybeg[8] + yend[8]) / 20.;
-       if (xx[8] == xx[9]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[9] - xx[8];
-           offset2 = atg_(&yy[9] - yy[8], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta910 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1108], 90., atheta910, 90., atheta910 + 90., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 9, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1108], "ONLY", dsup, 3);
-
-// --- Place part # 12-13 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[11] - xbeg[11]) * (xend[11] - xbeg[11]) + (yend[11] - ybeg[11]) * (yend[11] - ybeg[11])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[11] + xx[12]) / 20.;
-       ycc     = (yy[11] + yy[12]) / 20.;
-       xccc    = (xbeg[11] + xend[11]) / 20.;
-       yccc    = (ybeg[11] + yend[11]) / 20.;
-       if (xx[11] == xx[12]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[12] - xx[11];
-           offset2 = atg_(&yy[12] - yy[11], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta1213 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1111], 270., atheta1213, 90., atheta1213 + 270., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 12, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1111], "ONLY", dsup, 3);
-
-// --- Place an element of layer #1 
-
-       biga   = (yy[12] - yy[11]) / (xx[12] - xx[11]);
-       bigb   = (xx[12] * yy[11] - xx[11] * yy[12]) / (xx[12] - xx[11]) / 10.;
-       coeffa = biga * biga + 1.;
-       coeffb = biga * bigb - biga * ycc - xcc;
-       coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + bigb * bigb - .015792948900000003;
-       xcc1   = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa;
-       ycc1   = biga * xcc1 + bigb;
-       biga1  = -1. / biga;
-       bigb1  = xcc1 / biga + ycc1;
-       coeffa = biga1 * biga1 + 1.;
-       coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1;
-       coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + bigb1 * bigb1 - (dsup[0] + dbox1[0]) * (dsup[0] + dbox1[0]);
-       xcc2   = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa;
-       ycc2   = biga1 * xcc2 + bigb1;
-       xpos1  = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero;
-       ypos1  = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero;
-       xpos   = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos   = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos   = 0.;
-       ++jbox1;
-       geant->Gspos("IPV1", jbox1, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1111], "ONLY");
-
-// --- Place part # 11-12 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[10] - xbeg[10]) * (xend[10] - xbeg[10]) + (yend[10] - ybeg[10]) * (yend[10] - ybeg[10])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[10] + xx[11]) / 20.;
-       ycc     = (yy[10] + yy[11]) / 20.;
-       xccc    = (xbeg[10] + xend[10]) / 20.;
-       yccc    = (ybeg[10] + yend[10]) / 20.;
-       if (xx[10] == xx[11]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[11] - xx[10];
-           offset2 = atg_(&yy[11] - yy[10], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta1112 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1110], 90., atheta1112, 90.,atheta1112 + 90., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 11, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1110], "ONLY", dsup, 3);
-
-// --- Place part # 10-11 (see sketch) 
-
-       offset1 = -27.;
-       dsup[0] = .01;
-       dsup[1] = TMath::Sqrt((xend[9] - xbeg[9]) * (xend[9] - xbeg[9]) + (yend[9] - ybeg[9]) * (yend[9] - ybeg[9])) / 20.;
-       dsup[2] = 25.;
-       xcc     = (xx[9] + xx[10]) / 20.;
-       ycc     = (yy[9] + yy[10]) / 20.;
-       xccc    = (xbeg[9] + xend[9]) / 20.;
-       yccc    = (ybeg[9] + yend[9]) / 20.;
-       if (xx[9] == xx[10]) {
-           offset2 = 0.;
-       } else {
-           r2 = xx[10] - xx[9];
-           offset2 = atg_(&yy[10] - yy[9], &r2) * raddeg - 90.;
-       }
-       aphi  = (pphi + (i-1) * 36.) * degrad;
-       xzero = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero;
-       ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero;
-       xpos  = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos  = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos  = 0.;
-       atheta1011 = (i-1) * 36. + offset1 + offset2 - gteta;
-       AliMatrix(idrotm[(i-1) * 13 + 1109], 270., atheta1011, 90., atheta1011 + 270., 0., 0.);
-       geant->Gsposp("SPIX", (i-1) * 13 + 10, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1109], "ONLY", dsup, 3);
-
-// --- Place an element of layer #1 
-
-       biga   = (yy[10] - yy[9]) / (xx[10] - xx[9]);
-       bigb   = (xx[10] * yy[9] - xx[9] * yy[10]) / (xx[10] - xx[9]) / 10.;
-       coeffa = biga * biga + 1.;
-       coeffb = biga * bigb - biga * ycc - xcc;
-       coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + bigb * bigb - 9.9999999999999995e-7;
-       xcc1   = (-coeffb - TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa;
-       ycc1   = biga * xcc1 + bigb;
-       biga1  = -1. / biga;
-       bigb1  = xcc1 / biga + ycc1;
-       coeffa = biga1 * biga1 + 1.;
-       coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1;
-       coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + bigb1 * bigb1 - (dsup[0] + dbox1[0]) * (dsup[0] + dbox1[0]);
-       xcc2   = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa;
-       ycc2   = biga1 * xcc2 + bigb1;
-       xpos1  = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero;
-       ypos1  = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero;
-       xpos   = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos   = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos   = 0.;
-       ++jbox1;
-       geant->Gspos("IPV1", jbox1, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1109], "ONLY");
-
-// --- Place arc # 5 (between part 1-2 and part 2-3) (see sketch) 
-
-       darc[0] = rarc[4] / 10. - .02;
-       darc[1] = rarc[4] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta12 + 90. - (i-1) * 36.;
-       darc[4] = atheta23 + 90. - (i-1) * 36.;
-       xcc     = xarc[4] / 10.;
-       ycc     = yarc[4] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 5, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1104], "ONLY", darc, 5);
-
-// --- Place arc # 6 (between part 2-3 and part 3-4) (see sketch) 
-
-       darc[0] = rarc[5] / 10. - .02;
-       darc[1] = rarc[5] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta23 - (i-1) * 36.;
-       darc[4] = atheta34 - (i-1) * 36.;
-       xcc     = xarc[5] / 10.;
-       ycc     = yarc[5] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 6, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1105], "ONLY", darc, 5);
-
-// --- Place arc # 7 (between part 3-4 and part 4-5) (see sketch) 
-
-       darc[0] = rarc[6] / 10. - .02;
-       darc[1] = rarc[6] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta45 + 90. - (i-1) * 36.;
-       darc[4] = atheta34 + 90. - (i-1) * 36.;
-       xcc     = xarc[6] / 10.;
-       ycc     = yarc[6] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 7, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1106], "ONLY", darc, 5);
-
-// --- Place arc # 8 (between part 4-5 and part 5-6) (see sketch) 
-
-       darc[0] = rarc[7] / 10. - .02;
-       darc[1] = rarc[7] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta56 + 180. - (i-1) * 36.;
-       darc[4] = atheta45 + 180. - (i-1) * 36.;
-       xcc     = xarc[7] / 10.;
-       ycc     = yarc[7] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 8, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1107], "ONLY", darc, 5);
-
-// --- Place arc # 9 (between part 5-6 and part 6-7) (see sketch) 
-
-       darc[0] = rarc[8] / 10. - .02;
-       darc[1] = rarc[8] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta56 - 90. - (i-1) * 36.;
-       darc[4] = atheta67 - 90. - (i-1) * 36.;
-       xcc     = xarc[8] / 10.;
-       ycc     = yarc[8] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 9, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1108], "ONLY", darc, 5);
-
-// --- Place arc # 10 (between part 6-7 and part 7-8) (see sketch) 
-
-       darc[0] = rarc[9] / 10. - .02;
-       darc[1] = rarc[9] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta67 - (i-1) * 36.;
-       darc[4] = atheta78 - (i-1) * 36.;
-       xcc     = xarc[9] / 10.;
-       ycc     = yarc[9] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 10, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1109], "ONLY", darc, 5);
-
-// --- Place arc # 11 (between part 7-8 and part 8-9) (see sketch) 
-
-       darc[0] = rarc[10] / 10. - .02;
-       darc[1] = rarc[10] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta89 - 90. - (i-1) * 36.;
-       darc[4] = atheta78 - 90. - (i-1) * 36.;
-       xcc     = xarc[10] / 10.;
-       ycc     = yarc[10] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 11, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1110], "ONLY", darc, 5);
-
-// --- Place arc # 12 (between part 8-9 and part 9-10) (see sketch) 
-
-       darc[0] = rarc[11] / 10. - .02;
-       darc[1] = rarc[11] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta89 - (i-1) * 36.;
-       darc[4] = atheta910 - (i-1) * 36.;
-       xcc     = xarc[11] / 10.;
-       ycc     = yarc[11] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 12, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1111], "ONLY", darc, 5);
-
-// --- Place arc # 1 (between part 9-10 and part 10-11) (see sketch) 
-
-       darc[0] = rarc[0] / 10. - .02;
-       darc[1] = rarc[0] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta1011 + 10. - (i-1) * 36.;
-       darc[4] = atheta910 - 120. - (i-1) * 36.;
-       xcc     = xarc[0] / 10.;
-       ycc     = yarc[0] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 1, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1100], "ONLY", darc, 5);
-
-// --- Place arc # 2 (between part 10-11 and part 11-12) (see sketch) 
-
-       darc[0] = rarc[1] / 10. - .02;
-       darc[1] = rarc[1] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta1011 - (i-1) * 36.;
-       darc[4] = atheta1112 + 45. - (i-1) * 36.;
-       xcc     = xarc[1] / 10.;
-       ycc     = yarc[1] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 2, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1101], "ONLY", darc, 5);
-
-// --- Place arc # 3 (between part 11-12 and part 12-13) (see sketch) 
-
-       darc[0] = rarc[2] / 10. - .02;
-       darc[1] = rarc[2] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta1213 + 115. - (i-1) * 36.;
-       darc[4] = atheta1112 + 115. - (i-1) * 36.;
-       xcc     = xarc[2] / 10.;
-       ycc     = yarc[2] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 3, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1102], "ONLY", darc, 5);
-
-// --- Place arc # 4 (between part 12-13 and part 1-2) (see sketch) 
-
-       darc[0] = rarc[3] / 10. - .02;
-       darc[1] = rarc[3] / 10.;
-       darc[2] = 25.;
-       darc[3] = atheta1213 - (i-1) * 36.;
-       darc[4] = atheta12 - (i-1) * 36.;
-       xcc     = xarc[3] / 10.;
-       ycc     = yarc[3] / 10.;
-       aphi    = (pphi + (i-1) * 36.) * degrad;
-       xzero   = rr * TMath::Cos((tteta + (i-1) * 36.) * degrad);
-       yzero   = rr * TMath::Sin((tteta + (i-1) * 36.) * degrad);
-       xpos1   = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero;
-       ypos1   = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero;
-       xpos    = xpos1 * TMath::Cos(gteta * degrad) + ypos1 * TMath::Sin(gteta *degrad);
-       ypos    = -xpos1 * TMath::Sin(gteta * degrad) + ypos1 * TMath::Cos(gteta * degrad);
-       zpos    = 0.;
-       geant->Gsposp("SARC", (i-1) * 13 + 4, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1103], "ONLY", darc, 5);
-
-    }
-
-//************************************************************************
-//*                                                                      *
-//*                               D R I F T S                            *
-//*                               ===========                            *
-//*                                                                      *
-//************************************************************************
-
-// --- Define a ghost volume containing the Silicon Drift Detectors 
-//     (layer #3 and #4) and fill it with air or vacuum 
-
-    xxm = 1.0444222222222224;
-    dgh[0] = 0.;
-    dgh[1] = 360.;
-    dgh[2] = 4.;
-    dgh[3] = -25. - 5.9900000000000002 / xxm - 
-           .0099999999999997868 / xxm - 17.990000000000002 / xxm;
-    dgh[4] = 27.;
-    dgh[5] = 27.;
-    dgh[6] = -25. - 5.9900000000000002 / xxm - .0099999999999997868 / xxm;
-    dgh[7] = 9.01;
-    dgh[8] = 27.;
-    dgh[9] = 5.9900000000000002 / xxm + 25. + .0099999999999997868 / xxm;
-    dgh[10] = 9.01;
-    dgh[11] = 27.;
-    dgh[12] = 5.9900000000000002 / xxm + 25. + 
-           .0099999999999997868 / xxm + 17.990000000000002 / xxm;
-    dgh[13] = 27.;
-    dgh[14] = 27.;
-    geant->Gsvolu("IT34", "PCON", idtmed[275], dgh, 15);
-
-// --- Place the ghost volume in its mother volume (ITSV) and make it 
-//     invisible 
-
-    geant->Gspos("IT34", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-    geant->Gsatt("IT34", "SEEN", 0);
-
-// --- Layer #3 
-
-//        GOTO 3456           ! skip ITS layer no. 3 
-
-//--- Define a ghost volume containing a single ladder of layer #3 (with the
-//     smaller lenght of ribs) and fill it with air or vacuum 
-
-    dbox1[0] = .61539999999999995;
-    dbox1[1] = 3.85;
-// the widest element is the sensitive element 
-    dbox1[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IDV1", "BOX ", idtmed[228], dbox1, 3);
-
-// --- Make the ghost volume invisible 
-
-    geant->Gsatt("IDV1", "SEEN", 0);
-
-// --- Define a volume containing the sensitive part of drifts 
-//     (silicon, layer #3) 
-
-    dits[0] = .0172;
-// see material budget report by G. Feofilov 
-    dits[1] = 3.85;
-    dits[2] = 4.35;
-    geant->Gsvolu("ITS3", "BOX ", idtmed[224], dits, 3);
-
-//--- Define the part of the (smaller) rib between two sensitive parts made of
-//     carbon (layer #3) 
-
-    dsup[0] = .5 - dits[0];
-    dsup[1] = .01;
-    dsup[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR11", "BOX ", idtmed[227], dsup, 3);
-
-//--- Define the first part of the (smaller) rib between two sensitive parts
-//     made of aluminum (layer #3) 
-
-    dal1[0] = .5 - dits[0];
-    dal1[1] = 4.8000000000000001e-4;
-    dal1[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR12", "BOX ", idtmed[230], dal1, 3);
-
-//--- Define the part of the (smaller) rib between two sensitive parts made of
-//     kapton (layer #3) 
-
-    dkap[0] = .5 - dits[0];
-    dkap[1] = .01585;
-    dkap[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR13", "BOX ", idtmed[236], dkap, 3);
-
-//--- Define the second part of the (smaller) rib between two sensitive parts
-//     made of aluminum (layer #3) 
-
-    dal2[0] = .5 - dits[0];
-    dal2[1] = .0013500000000000001;
-    dal2[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR14", "BOX ", idtmed[230], dal2, 3);
-
-// --- Define the part of the (smaller) rib between two sensitive parts 
-//     made of silicon (the electronics) (layer #3) 
-
-    dchi[0] = .5 - dits[0];
-    dchi[1] = .0035500000000000002;
-    dchi[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR15", "BOX ", idtmed[225], dal2, 3);
-
-// --- Define the part of the (smaller) rib between two sensitive parts 
-//     made of water (the cooler) (layer #3) 
-
-    dwat[0] = .5 - dits[0];
-    dwat[1] = .0046499999999999996;
-    dwat[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR16", "BOX ", idtmed[231], dwat, 3);
-
-//--- Define the third part of the (smaller) rib between two sensitive parts
-//     made of aluminum (the cooling tubes) (layer #3) 
-
-    dtub[0] = .5 - dits[0];
-    dtub[1] = 6.7000000000000002e-4;
-    dtub[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR17", "BOX ", idtmed[230], dtub, 3);
-
-// --- Define the part of the end-ladder stuff made of PCB (layer #3) 
-
-    dpcb[0] = .03;
-// twice the foreseen thickness 
-    dpcb[1] = 3.5;
-    dpcb[2] = 7.5;
-    geant->Gsvolu("IEL1", "BOX ", idtmed[233], dpcb, 3);
-
-// --- Define the part of the end-ladder stuff made of copper (layer #3) 
-
-    dcop[0] = .0252;
-// twice the foreseen thickness 
-    dcop[1] = 3.5;
-    dcop[2] = 7.5;
-    geant->Gsvolu("IEL2", "BOX ", idtmed[234], dcop, 3);
-
-// --- Define the part of the end-ladder stuff made of ceramics (layer #3)
- */
-
-    dcer[0] = .04;
-// twice the foreseen thickness 
-    dcer[1] = 3.5;
-    dcer[2] = 7.5;
-    geant->Gsvolu("IEL3", "BOX ", idtmed[235], dcer, 3);
-
-// --- Define the part of the end-ladder stuff made of silicon (layer #3) 
-
-    dsil[0] = .003;
-// twice the foreseen thickness 
-    dsil[1] = 3.5;
-    dsil[2] = 7.5;
-    geant->Gsvolu("IEL4", "BOX ", idtmed[226], dsil, 3);
-
-//--- Place the sensitive part of the drifts (smaller ribs) into its mother
-//     (IDV1) 
-
-    ypos = 0.;
-    for (j = 1; j <= 5; ++j) {
-// odd elements are up and even elements are down 
-       if (j == 1) {
-           xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = 0. - dits[2] + 1. - dits[2] * 2. - .1 - dits[2];
-       } else if (j == 2) {
-           xpos = -dbox1[0] + dits[0];
-           zpos = 0. - dits[2] + 1. - dits[2];
-       } else if (j == 3) {
-           xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = 0.;
-       } else if (j == 4) {
-           xpos = -dbox1[0] + dits[0];
-           zpos = dits[2] + 0. - 1. + dits[2];
-       } else if (j == 5) {
-           xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = dits[2] + 0. - 1. + dits[2] * 2. + .1 + dits[2];
-       }
-       geant->Gspos("ITS3", j, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-    }
-
-// --- Place the smaller ribs into their mother (IDV1) 
-
-// --- Right ribs (just a matter of convention) 
-
-    xpos = .5 - dbox1[0] + dits[0];
-    zpos = 0.;
-
-// --- Carbon 
-
-    ypos = 2.81;
-    geant->Gspos("IR11", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #1 
-
-    ypos = dsup[1] + 2.81 + dal1[1];
-    geant->Gspos("IR12", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Kapton 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1];
-    geant->Gspos("IR13", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #2 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1];
-    geant->Gspos("IR14", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (chip) 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1];
-    geant->Gspos("IR15", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Water 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1];
-    geant->Gspos("IR16", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #3 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. 
-           + dtub[1];
-    geant->Gspos("IR17", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right ribs (just a matter of convention) 
-
-// --- Carbon 
-
-    ypos = -2.81;
-    geant->Gspos("IR11", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #1 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1]);
-    geant->Gspos("IR12", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Kapton 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]);
-    geant->Gspos("IR13", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #2 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1]);
-    geant->Gspos("IR14", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (chip) 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1] * 2. + dchi[1]);
-    geant->Gspos("IR15", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Water 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]);
-    geant->Gspos("IR16", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #3 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. + dtub[1]);
-    geant->Gspos("IR17", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the end-ladder stuff into its mother (IDV1) 
-
-
-// --- Negative-Z end-ladder 
-
-    ypos = 0.;
-    zpos = -28.350000000000001;
-
-// --- PCB 
-
-    xpos = dbox1[0] - dpcb[0];
-    geant->Gspos("IEL1", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0];
-    geant->Gspos("IEL2", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Ceramics 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0];
-    geant->Gspos("IEL3", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0];
-    geant->Gspos("IEL4", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Positive-Z end-ladder 
-
-    ypos = 0.;
-    zpos = 28.350000000000001;
-
-// --- PCB 
-
-    xpos = dbox1[0] - dpcb[0];
-    geant->Gspos("IEL1", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0];
-    geant->Gspos("IEL2", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Ceramics 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0];
-    geant->Gspos("IEL3", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0];
-    geant->Gspos("IEL4", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-//--- Define a ghost volume containing a single ladder of layer #3 (with the
-//     larger lenght of ribs) and fill it with air or vacuum 
-
-    dbox2[0] = .76540000000000008;
-    dbox2[1] = 3.85;
-// the widest element is the sensitive element 
-    dbox2[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IDV2", "BOX ", idtmed[228], dbox2, 3);
-
-// --- Make the ghost volume invisible 
-
-    geant->Gsatt("IDV2", "SEEN", 0);
-
-//--- Define the part of the (larger) rib between two sensitive parts madeof
-//     carbon (layer #3) 
-
-    dsup[0] = .65 - dits[0];
-    dsup[1] = .01;
-    dsup[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR21", "BOX ", idtmed[227], dsup, 3);
-
-//--- Define the first part of the (larger) rib between two sensitive parts
-//     made of aluminum (layer #3) 
-
-    dal1[0] = .65 - dits[0];
-    dal1[1] = 4.8000000000000001e-4;
-    dal1[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR22", "BOX ", idtmed[230], dal1, 3);
-
-//--- Define the part of the (larger) rib between two sensitive parts madeof
-//     kapton (layer #3) 
-
-    dkap[0] = .65 - dits[0];
-    dkap[1] = .01585;
-    dkap[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR23", "BOX ", idtmed[236], dkap, 3);
-
-//--- Define the second part of the (larger) rib between two sensitive parts
-//     made of aluminum (layer #3) 
-
-    dal2[0] = .65 - dits[0];
-    dal2[1] = .0013500000000000001;
-    dal2[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR24", "BOX ", idtmed[230], dal2, 3);
-
-// --- Define the part of the (larger) rib between two sensitive parts 
-//     made of silicon (the electronics) (layer #3) 
-
-    dchi[0] = .65 - dits[0];
-    dchi[1] = .0035500000000000002;
-    dchi[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR25", "BOX ", idtmed[225], dal2, 3);
-
-// --- Define the part of the (larger) rib between two sensitive parts 
-//     made of water (the cooler) (layer #3) 
-
-    dwat[0] = .65 - dits[0];
-    dwat[1] = .0046499999999999996;
-    dwat[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR26", "BOX ", idtmed[231], dwat, 3);
-
-//--- Define the third part of the (larger) rib between two sensitive parts
-//     made of aluminum (the cooling tubes) (layer #3) 
-
-    dtub[0] = .65 - dits[0];
-    dtub[1] = 6.7000000000000002e-4;
-    dtub[2] = 35.850000000000001;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR27", "BOX ", idtmed[230], dtub, 3);
-
-//--- Place the sensitive part of the drifts (smaller ribs) into its mother
-//     (IDV2) 
-
-    ypos = 0.;
-    for (j = 1; j <= 5; ++j) {
-// odd element are up and even elements are down 
-       if (j == 1) {
-           xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = 0. - dits[2] + 1. - dits[2] * 2. - .1 - dits[2];
-       } else if (j == 2) {
-           xpos = -dbox2[0] + dits[0];
-           zpos = 0. - dits[2] + 1. - dits[2];
-       } else if (j == 3) {
-           xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = 0.;
-       } else if (j == 4) {
-           xpos = -dbox2[0] + dits[0];
-           zpos = dits[2] + 0. - 1. + dits[2];
-       } else if (j == 5) {
-           xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = dits[2] + 0. - 1. + dits[2] * 2. + .1 + dits[2];
-       }
-       geant->Gspos("ITS3", j, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-    }
-
-// --- Place the larger ribs into their mother (IDV2) 
-
-
-// --- Right ribs (just a matter of convention) 
-
-    xpos = .65 - dbox2[0] + dits[0];
-    zpos = 0.;
-
-// --- Carbon 
-
-    ypos = 2.81;
-    geant->Gspos("IR21", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #1 
-
-    ypos = dsup[1] + 2.81 + dal1[1];
-    geant->Gspos("IR22", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Kapton 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1];
-    geant->Gspos("IR23", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #2 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1];
-    geant->Gspos("IR24", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (chip) 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1];
-    geant->Gspos("IR25", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Water 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1];
-    geant->Gspos("IR26", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #3 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. 
-           + dtub[1];
-    geant->Gspos("IR27", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right ribs (just a matter of convention) 
-
-// --- Carbon 
-
-    ypos = -2.81;
-    geant->Gspos("IR21", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #1 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1]);
-    geant->Gspos("IR22", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Kapton 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]);
-    geant->Gspos("IR23", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #2 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1]);
-    geant->Gspos("IR24", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (chip) 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1] * 2. + dchi[1]);
-    geant->Gspos("IR25", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Water 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]);
-    geant->Gspos("IR26", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #3 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. + dtub[1]);
-    geant->Gspos("IR27", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the end-ladder stuff into its mother (IDV1) 
-
-
-// --- Negative-Z end-ladder 
-
-    ypos = 0.;
-    zpos = -28.350000000000001;
-
-// --- PCB 
-
-    xpos = dbox2[0] - dpcb[0];
-    geant->Gspos("IEL1", 3, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0];
-    geant->Gspos("IEL2", 3, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Ceramics 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0];
-    geant->Gspos("IEL3", 3, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0];
-    geant->Gspos("IEL4", 3, "IDV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Positive-Z end-ladder 
-
-    yos  = 0.;
-    zpos = 28.350000000000001;
-
-// --- PCB 
-
-    xpos = dbox2[0] - dpcb[0];
-    geant->Gspos("IEL1", 4, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0];
-    geant->Gspos("IEL2", 4, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Ceramics 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0];
-    geant->Gspos("IEL3", 4, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0];
-    geant->Gspos("IEL4", 4, "IDV2", xpos, ypos, zpos, 0, "ONLY");
-
-//--- Place the ghost volumes containing the drift ladders of layer #3 in their
-//     mother volume (IT34) 
-//     Odd elements have large ribs and even elements have small ribs 
-
-    for (i = 1; i <= 12; ++i) {
-       atheta = (i-1) * 30.;
-       AliMatrix(idrotm[i+1299], 90., atheta, 90., atheta + 90., 0.,0.);
-       if (i % 2 == 0) {
-           rzero = 14.;
-           xpos = rzero * TMath::Cos((i-1) * twopi / 12.);
-           ypos = rzero * TMath::Sin((i-1) * twopi / 12.);
-           zpos = 0.;
-           geant->Gspos("IDV1", i, "IT34", xpos, ypos, zpos, idrotm[i+1299], "ONLY");
-       } else {
-           rzero = 13.85;
-           xpos = rzero * TMath::Cos((i-1) * twopi / 12.);
-           ypos = rzero * TMath::Sin((i-1) * twopi / 12.);
-           zpos = 0.;
-           geant->Gspos("IDV2", i, "IT34", xpos, ypos, zpos, idrotm[i+1299], "ONLY");
-       }
-    }
-
-
-// --- Layer #4 
-
-//        GOTO 4567           ! skip ITS layer no. 4 
-
-//--- Define a ghost volume containing a single ladder of layer #4 (with the
-//     smaller lenght of ribs) and fill it with air or vacuum 
-
-    dbox1[0] = .61539999999999995;
-    dbox1[1] = 3.5;
-// the widest element is the end-ladder stuff 
-    dbox1[2] = 43.449999999999996;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IDV3", "BOX ", idtmed[228], dbox1, 3);
-
-// --- Make the ghost volume invisible 
-
-    geant->Gsatt("IDV3", "SEEN", 0);
-
-// --- Define a volume containing the sensitive part of drifts 
-//     (silicon, layer #4) 
-
-    dits[0] = .0172;
-// see material budget report by G. Feofilov 
-    dits[1] = 3.125;
-    dits[2] = 4.35;
-    geant->Gsvolu("ITS4", "BOX ", idtmed[224], dits, 3);
-
-//--- Define the part of the (smaller) rib between two sensitive parts made of
-//     carbon (layer #4) 
-
-    dsup[0] = .5 - dits[0];
-    dsup[1] = .01;
-    dsup[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR31", "BOX ", idtmed[227], dsup, 3);
-
-//--- Define the first part of the (smaller) rib between two sensitive parts
-//     made of aluminum (layer #4) 
-
-    dal1[0] = .5 - dits[0];
-    dal1[1] = 4.8000000000000001e-4;
-    dal1[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR32", "BOX ", idtmed[230], dal1, 3);
-
-//--- Define the part of the (smaller) rib between two sensitive parts made of
-//     kapton (layer #4) 
-
-    dkap[0] = .5 - dits[0];
-    dkap[1] = .01585;
-    dkap[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR33", "BOX ", idtmed[236], dkap, 3);
-
-//--- Define the second part of the (smaller) rib between two sensitive parts
-//     made of aluminum (layer #4) 
-
-    dal2[0] = .5 - dits[0];
-    dal2[1] = .0013500000000000001;
-    dal2[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR34", "BOX ", idtmed[230], dal2, 3);
-
-// --- Define the part of the (smaller) rib between two sensitive parts 
-//     made of silicon (the electronics) (layer #4) 
-
-    dchi[0] = .5 - dits[0];
-    dchi[1] = .0035500000000000002;
-    dchi[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR35", "BOX ", idtmed[225], dal2, 3);
-
-// --- Define the part of the (smaller) rib between two sensitive parts 
-//     made of water (the cooler) (layer #4) 
-
-    dwat[0] = .5 - dits[0];
-    dwat[1] = .0046499999999999996;
-    dwat[2] = 43.449999999999996;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IR36", "BOX ", idtmed[231], dwat, 3);
-
-//--- Define the third part of the (smaller) rib between two sensitive parts
-//     made of aluminum (the cooling tubes) (layer #4) 
-
-    dtub[0] = .5 - dits[0];
-    dtub[1] = 6.7000000000000002e-4;
-    dtub[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR37", "BOX ", idtmed[230], dtub, 3);
-
-// --- Define the part of the end-ladder stuff made of PCB (layer #4) 
-
-    dpcb[0] = .03;
-// twice the foreseen thickness 
-    dpcb[1] = 3.5;
-    dpcb[2] = 7.5;
-    geant->Gsvolu("IEL5", "BOX ", idtmed[233], dpcb, 3);
-
-// --- Define the part of the end-ladder stuff made of copper (layer #4) 
-
-    dcop[0] = .0252;
-// twice the foreseen thickness 
-    dcop[1] = 3.5;
-    dcop[2] = 7.5;
-    geant->Gsvolu("IEL6", "BOX ", idtmed[234], dcop, 3);
-
-// --- Define the part of the end-ladder stuff made of ceramics (layer #4)
- */
-
-    dcer[0] = .04;
-// twice the foreseen thickness 
-    dcer[1] = 3.5;
-    dcer[2] = 7.5;
-    geant->Gsvolu("IEL7", "BOX ", idtmed[235], dcer, 3);
-
-// --- Define the part of the end-ladder stuff made of silicon (layer #4) 
-
-    dsil[0] = .003;
-// twice the foreseen thickness 
-    dsil[1] = 3.5;
-    dsil[2] = 7.5;
-    geant->Gsvolu("IEL8", "BOX ", idtmed[226], dsil, 3);
-
-//--- Place the sensitive part of the drifts (smaller ribs) into its mother
-//     (IDV3) 
-
-    ypos = 0.;
-    for (j = 1; j <= 7; ++j) {
-// odd elements are down and even elements are up 
-       if (j == 1) {
-           xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = 0. - dits[2] + .7 - dits[2] * 2. + 0. - dits[2] * 2. + 1.3 - dits[2];
-       } else if (j == 2) {
-           xpos = -dbox1[0] + dits[0];
-           zpos = 0. - dits[2] + .7 - dits[2] * 2. + 0. - dits[2];
-       } else if (j == 3) {
-           xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = 0. - dits[2] + .7 - dits[2];
-       } else if (j == 4) {
-           xpos = -dbox1[0] + dits[0];
-           zpos = 0.;
-       } else if (j == 5) {
-           xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = dits[2] + 0. - .7 + dits[2];
-       } else if (j == 6) {
-           xpos = -dbox1[0] + dits[0];
-           zpos = dits[2] + 0. - .7 + dits[2] * 2. + 0. + dits[2];
-       } else if (j == 7) {
-           xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = dits[2] + 0. - .7 + dits[2] * 2. + 0. + dits[2] * 2. - 1.3 + dits[2];
-       }
-       geant->Gspos("ITS4", j, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-    }
-
-// --- Place the smaller ribs into their mother (IDV3) 
-
-// --- Right ribs (just a matter of convention) 
-
-    xpos = .5 - dbox1[0] + dits[0];
-    zpos = 0.;
-
-// --- Carbon 
-
-    ypos = 2.81;
-    geant->Gspos("IR31", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #1 
-
-    ypos = dsup[1] + 2.81 + dal1[1];
-    geant->Gspos("IR32", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Kapton 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1];
-    geant->Gspos("IR33", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #2 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1];
-    geant->Gspos("IR34", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (chip) 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1];
-    geant->Gspos("IR35", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Water 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1];
-    geant->Gspos("IR36", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #3 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. 
-           + dtub[1];
-    geant->Gspos("IR37", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right ribs (just a matter of convention) 
-
-// --- Carbon 
-
-    ypos = -2.81;
-    geant->Gspos("IR31", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #1 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1]);
-    geant->Gspos("IR32", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Kapton 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]);
-    geant->Gspos("IR33", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #2 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1]);
-    geant->Gspos("IR34", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (chip) 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1]);
-    geant->Gspos("IR35", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Water 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]);
-    geant->Gspos("IR36", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #3 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. + dtub[1]);
-    geant->Gspos("IR37", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the end-ladder stuff into its mother (IDV1) 
-
-
-// --- Negative-Z end-ladder 
-
-    ypos = 0.;
-    zpos = -35.949999999999996;
-
-// --- PCB 
-
-    xpos = dbox1[0] - dpcb[0];
-    geant->Gspos("IEL5", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0];
-    geant->Gspos("IEL6", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Ceramics 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0];
-    geant->Gspos("IEL7", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0];
-    geant->Gspos("IEL8", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Positive-Z end-ladder 
-
-    ypos = 0.;
-    zpos = 35.949999999999996;
-
-// --- PCB 
-
-    xpos = dbox1[0] - dpcb[0];
-    geant->Gspos("IEL5", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0];
-    geant->Gspos("IEL6", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Ceramics 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0];
-    geant->Gspos("IEL7", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-    xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0];
-    geant->Gspos("IEL8", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY");
-
-//--- Define a ghost volume containing a single ladder of layer #4 (with the
-//     larger lenght of ribs) and fill it with air or vacuum 
-
-    dbox2[0] = .76540000000000008;
-    dbox2[1] = 3.5;
-// the widest element is the end-ladder stuff 
-    dbox2[2] = 43.449999999999996;
-// 7.5 cm is the lenght 
-    geant->Gsvolu("IDV4", "BOX ", idtmed[228], dbox2, 3);
-
-// --- Make the ghost volume invisible 
-
-    geant->Gsatt("IDV4", "SEEN", 0);
-
-//--- Define the part of the (larger) rib between two sensitive parts madeof
-//     carbon (layer #4) 
-
-    dsup[0] = .65 - dits[0];
-    dsup[1] = .01;
-    dsup[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR41", "BOX ", idtmed[227], dsup, 3);
-
-//--- Define the first part of the (larger) rib between two sensitive parts
-//     made of aluminum (layer #4) 
-
-    dal1[0] = .65 - dits[0];
-    dal1[1] = 4.8000000000000001e-4;
-    dal1[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR42", "BOX ", idtmed[230], dal1, 3);
-
-//--- Define the part of the (larger) rib between two sensitive parts madeof
-//     kapton (layer #4) 
-
-    dkap[0] = .65 - dits[0];
-    dkap[1] = .01585;
-    dkap[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR43", "BOX ", idtmed[236], dkap, 3);
-
-//--- Define the second part of the (larger) rib between two sensitive parts
-//     made of aluminum (layer #4) 
-
-    dal2[0] = .65 - dits[0];
-    dal2[1] = .0013500000000000001;
-    dal2[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR44", "BOX ", idtmed[230], dal2, 3);
-
-// --- Define the part of the (larger) rib between two sensitive parts 
-//     made of silicon (the electronics) (layer #4) 
-
-    dchi[0] = .65 - dits[0];
-    dchi[1] = .0035500000000000002;
-    dchi[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR45", "BOX ", idtmed[225], dal2, 3);
-
-// --- Define the part of the (larger) rib between two sensitive parts 
-//     made of water (the cooler) (layer #4) 
-
-    dwat[0] = .65 - dits[0];
-    dwat[1] = .0046499999999999996;
-    dwat[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR46", "BOX ", idtmed[231], dwat, 3);
-
-//--- Define the third part of the (larger) rib between two sensitive parts
-//     made of aluminum (the cooling tubes) (layer #4) 
-
-    dtub[0] = .65 - dits[0];
-    dtub[1] = 6.7000000000000002e-4;
-    dtub[2] = 43.449999999999996;
-// 7.5 cm is the lengh 
-    geant->Gsvolu("IR47", "BOX ", idtmed[230], dtub, 3);
-
-//--- Place the sensitive part of the drifts (smaller ribs) into its mother
-//     (IDV4) 
-
-    ypos = 0.;
-    for (j = 1; j <= 7; ++j) {
-// odd elements are down and even elements are up 
-       if (j == 1) {
-           xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = 0. - dits[2] + .7 - dits[2] * 2. + 0. - dits[2] * 2. + 1.3 - dits[2];
-       } else if (j == 2) {
-           xpos = -dbox2[0] + dits[0];
-           zpos = 0. - dits[2] + .7 - dits[2] * 2. + 0. - dits[2];
-       } else if (j == 3) {
-           xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = 0. - dits[2] + .7 - dits[2];
-       } else if (j == 4) {
-           xpos = -dbox2[0] + dits[0];
-           zpos = 0.;
-       } else if (j == 5) {
-           xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = dits[2] + 0. - .7 + dits[2];
-       } else if (j == 6) {
-           xpos = -dbox2[0] + dits[0];
-           zpos = dits[2] + 0. - .7 + dits[2] * 2. + 0. + dits[2];
-       } else if (j == 7) {
-           xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0];
-           zpos = dits[2] + 0. - .7 + dits[2] * 2. + 0. + dits[2] * 2. - 1.3 + dits[2];
-       }
-       geant->Gspos("ITS4", j, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-    }
-
-// --- Place the larger ribs into their mother (IDV4) 
-
-
-// --- Right ribs (just a matter of convention) 
-
-    xpos = .65 - dbox2[0] + dits[0];
-    zpos = 0.;
-
-// --- Carbon 
-
-    ypos = 2.81;
-    geant->Gspos("IR41", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #1 
-
-    ypos = dsup[1] + 2.81 + dal1[1];
-    geant->Gspos("IR42", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Kapton 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1];
-    geant->Gspos("IR43", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #2 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1];
-    geant->Gspos("IR44", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (chip) 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1];
-    geant->Gspos("IR45", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Water 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1];
-    geant->Gspos("IR46", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #3 
-
-    ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. 
-           + dtub[1];
-    geant->Gspos("IR47", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right ribs (just a matter of convention) 
-
-// --- Carbon 
-
-    ypos = -2.81;
-    geant->Gspos("IR41", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #1 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1]);
-    geant->Gspos("IR42", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Kapton 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]);
-    geant->Gspos("IR43", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #2 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1]);
-    geant->Gspos("IR44", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (chip) 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1] * 2. + dchi[1]);
-    geant->Gspos("IR45", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Water 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]);
-    geant->Gspos("IR46", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Aluminum #3 
-
-    ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 
-           2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. + dtub[1]);
-    geant->Gspos("IR47", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the end-ladder stuff into its mother (IDV1) 
-
-
-// --- Negative-Z end-ladder 
-
-    ypos = 0.;
-    zpos = -35.949999999999996;
-
-// --- PCB 
-
-    xpos = dbox2[0] - dpcb[0];
-    geant->Gspos("IEL5", 3, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0];
-    geant->Gspos("IEL6", 3, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Ceramics 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0];
-    geant->Gspos("IEL7", 3, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0];
-    geant->Gspos("IEL8", 3, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Positive-Z end-ladder 
-
-    yos  = 0.;
-    zpos = 35.949999999999996;
-
-// --- PCB 
-
-    xpos = dbox2[0] - dpcb[0];
-    geant->Gspos("IEL5", 4, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0];
-    geant->Gspos("IEL6", 4, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Ceramics 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0];
-    geant->Gspos("IEL7", 4, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-    xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0];
-    geant->Gspos("IEL8", 4, "IDV4", xpos, ypos, zpos, 0, "ONLY");
-
-//--- Place the ghost volumes containing the drift ladders of layer #4 in their
-//     mother volume (IT34) 
-//     Odd elements have large ribs and even elements have small ribs 
-
-    for (i = 1; i <= 24; ++i) {
-       atheta = (i-1) * 15.;
-       AliMatrix(idrotm[i+1399], 90., atheta, 90., atheta + 90., 0.,0.);
-       if (i % 2 == 0) {
-           rzero = 23.5;
-           xpos = rzero * TMath::Cos((i-1) * twopi / 24.);
-           ypos = rzero * TMath::Sin((i-1) * twopi / 24.);
-           zpos = 0.;
-           geant->Gspos("IDV3", i, "IT34", xpos, ypos, zpos, idrotm[i+1399], "ONLY");
-       } else {
-           rzero = 23.399999999999999;
-           xpos = rzero * TMath::Cos((i-1) * twopi / 24.);
-           ypos = rzero * TMath::Sin((i-1) * twopi / 24.);
-           zpos = 0.;
-           geant->Gspos("IDV4", i, "IT34", xpos, ypos, zpos, idrotm[i+1399], "ONLY");
-       }
-    }
-
-
-//************************************************************************
-//*                                                                      *
-//*                               S T R I P S                            *
-//*                               ===========                            *
-//*                                                                      *
-//************************************************************************
-
-// --- Define SSD with the 35+39 lay-out 
-
-    if (fMinorVersion == 0 || fMinorVersion == 1 || fMinorVersion ==2) {
-
-//--- Define ghost volume containing the Strip Detectors and fill it with air
-//     or vacuum 
-
-       xxm = 1.0444222222222224;
-       dgh[0] = 0.;
-       dgh[1] = 360.;
-       dgh[2] = 4.;
-       dgh[3] = -25. - 5.9900000000000002 / xxm - 
-               .0099999999999997868 / xxm - 17.990000000000002 / xxm - 10. / xxm - 12.997999999999998 / xxm;
-       dgh[4] = 49.998;
-       dgh[5] = 49.998;
-       dgh[6] = -25. - 5.9900000000000002 / xxm - 
-               .0099999999999997868 / xxm - 17.990000000000002 / xxm - 10. / xxm;
-       dgh[7] = 37.;
-       dgh[8] = 49.998;
-       dgh[9] = 5.9900000000000002 / xxm + 25. + 
-               .0099999999999997868 / xxm + 17.990000000000002 / xxm + 10. / xxm;
-       dgh[10] = 37.;
-       dgh[11] = 49.998;
-       dgh[12] = 5.9900000000000002 / xxm + 25. + 
-               .0099999999999997868 / xxm + 17.990000000000002 / xxm + 10. / xxm + 12.997999999999998 / xxm;
-       dgh[13] = 49.998;
-       dgh[14] = 49.998;
-       geant->Gsvolu("IT56", "PCON", idtmed[275], dgh, 15);
-       geant->Gspos("IT56", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-       geant->Gsatt("IT56", "SEEN", 0);
-
-// --- Layer #5 
-
-//        GOTO 5678           ! skip ITS layer no. 5 
-
-//--- Define a ghost volume containing a single ladder of layer #5 andfill
-//     it with air or vacuum 
-
-       dbox1[0] = .044999999999999998;
-       dbox1[1] = 3.75;
-       dbox1[2] = 45.109999999999999;
-       geant->Gsvolu("ISV1", "BOX ", idtmed[253], dbox1, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("ISV1", "SEEN", 0);
-
-// --- Define a ghost volume containing the electronics and cooling of
-//     a single ladder of layer #5 and fill it with air or vacuum 
-
-       dsrv[0] = (TMath::Sqrt(3.) / 2. * 4.2 + .47 + .05) / 2.;
-       dsrv[1] = 3.75;
-       dsrv[2] = 45.109999999999999;
-       geant->Gsvolu("SSV1", "BOX ", idtmed[253], dsrv, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("SSV1", "SEEN", 0);
-
-// --- Define a ghost volume containing the end-ladder stuff of 
-//     a single ladder of layer #5 and fill it with air or vacuum 
-
-       dela[0] = 2.;
-       dela[1] = 3.5;
-       dela[2] = 4.;
-       geant->Gsvolu("ELL5", "BOX ", idtmed[253], dela, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("ELL5", "SEEN", 0);
-
-// --- Define a volume containing the sensitive part of the strips 
-//     (silicon, layer #5) 
-
-       dits[0] = .015;
-       dits[1] = 3.75;
-       dits[2] = 2.1;
-       geant->Gsvolu("ITS5", "BOX ", idtmed[249], dits, 3);
-
-// --- Define a volume containing the electronics of the strips 
-//     (silicon, layer #5) 
-
-       dchi[0] = .02;
-       dchi[1] = 3.4;
-       dchi[2] = .525;
-       geant->Gsvolu("SCH5", "BOX ", idtmed[250], dchi, 3);
-
-// --- Define the cooling tubes (aluminum, layer #5) 
-
-       dtub[0] = .09;
-       dtub[1] = dtub[0] + .01;
-       dtub[2] = 45.109999999999999;
-       geant->Gsvolu("STB5", "TUBE", idtmed[255], dtub, 3);
-
-// --- Define the cooling fluid (water or freon, layer #5) 
-
-       dwat[0] = 0.;
-       dwat[1] = .09;
-       dwat[2] = 45.109999999999999;
-       geant->Gsvolu("SWT5", "TUBE", idtmed[256], dwat, 3);
-//        CALL GSVOLU('SWT5','TUBE',IDTMED(258),DWAT,3,IOUT)   ! freon
-
-//--- Define the (triangular) element of the heat bridge (carbon, layer #5)
-
-// water 
-       dfra[0] = 120.;
-       dfra[1] = 360.;
-       dfra[2] = 3.;
-       dfra[3] = 2.;
-       dfra[4] = -.015;
-       dfra[5] = TMath::Sqrt(3.) * 4.2 / 6.;
-       dfra[6] = dfra[5] + .03;
-       dfra[7] = .015;
-       dfra[8] = dfra[5];
-       dfra[9] = dfra[6];
-       geant->Gsvolu("SFR5", "PGON", idtmed[252], dfra, 10);
-
-// --- Define the element connecting the triangles of the heat bridge 
-//     (carbon, layer #5) 
-
-       dcei[0] = 0.;
-       dcei[1] = .03;
-       dcei[2] = 45.109999999999999;
-       geant->Gsvolu("SCE5", "TUBE", idtmed[252], dcei, 3);
-
-// --- Define the part of the end-ladder stuff made of plastic (G10FR4) 
-//     (layer #5) 
-
-       dpla[0] = .089285714285714288;
-       dpla[1] = 3.5;
-       dpla[2] = 4.;
-       geant->Gsvolu("EPL5", "BOX ", idtmed[262], dpla, 3);
-
-// --- Define the part of the end-ladder stuff made of copper (layer #5) 
-
-       dcop[0] = .017857142857142856;
-       dcop[1] = 3.5;
-       dcop[2] = 4.;
-       geant->Gsvolu("ECU5", "BOX ", idtmed[259], dcop, 3);
-
-// --- Define the part of the end-ladder stuff made of epoxy (layer #5) 
-
-       depx[0] = .26785714285714285;
-       depx[1] = 3.5;
-       depx[2] = 4.;
-       geant->Gsvolu("EPX5", "BOX ", idtmed[262], depx, 3);
-
-// --- Define the part of the end-ladder stuff made of silicon (bus) 
-//     (layer #5) 
-
-       dsil[0] = .17857142857142858;
-       dsil[1] = 3.5;
-       dsil[2] = 4.;
-       geant->Gsvolu("ESI5", "BOX ", idtmed[251], dsil, 3);
-
-// --- Place the end-ladder stuff into its mother (ELL5) 
-
-       sep = (4. - (dpla[0] + dcop[0] + depx[0] + dsil[0]) * 2.) / 3.;
-       ypos = 0.;
-       zpos = 0.;
-
-// --- Plastic 
-
-       xpos = -dela[0] + dpla[0];
-       geant->Gspos("EPL5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0];
-       geant->Gspos("ECU5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Epoxy 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0];
-       geant->Gspos("EPX5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0] * 2. + sep + dsil[0];
-       geant->Gspos("ESI5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the sensitive part of the strips into its mother (ISV1) 
-
-       ypos = 0.;
-       for (j = 1; j <= 23; ++j) {
-           if (j % 2 == 0) xpos = dbox1[0] - dits[0];
-           else            xpos = -dbox1[0] + dits[0];
-           zpos = ((j - 1) - 11.) * 3.91;
-           geant->Gspos("ITS5", j, "ISV1", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-// --- Place the electronics of the strips into its mother (SSV1) 
-
-       ypos = 0.;
-       for (j = 1; j <= 23; ++j) {
-           if (j % 2 == 0) xpos = -dsrv[0] + .28;
-           else            xpos = -dsrv[0] + .28 - dits[0] * 2. - .03;
-           zpos = ((j - 1) - 11.) * 3.91 + .85;
-           geant->Gspos("SCH5", j, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-//--- Place the cooling tubes and the cooling fluid into their mother (SSV1)
-
-       xpos = -dsrv[0] + .41;
-       zpos = 0.;
-
-// --- Left tube (just a matter of convention) 
-
-       ypos = -2.3500000000000001;
-       geant->Gspos("STB5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-       geant->Gspos("SWT5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right tube (just a matter of convention) 
-
-       ypos = 2.3500000000000001;
-       geant->Gspos("STB5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-       geant->Gspos("SWT5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the heat bridge elements into their mother (SSV1) 
-
-       xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 6. * 4.2;
-       ypos = 0.;
-       for (j = 1; j <= 24; ++j) {
-           zpos = ((j - 1) - 11.) * 3.91 - 2.1000000000000001;
-           geant->Gspos("SFR5", j, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-// --- Place the elements connecting the triangles of the heat bridge 
-//     into their mother (SSV1) 
-
-       zpos = 0.;
-
-// --- Left element (just a matter of convention) 
-
-       xpos = -dsrv[0] + .47;
-       ypos = -2.1150000000000002;
-       geant->Gspos("SCE5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right element 
-
-       xpos = -dsrv[0] + .47;
-       ypos = 2.1150000000000002;
-       geant->Gspos("SCE5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Top element 
-
-       xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 2. * 4.2 + .015;
-       ypos = 0.;
-       geant->Gspos("SCE5", 3, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the ghost volumes containing the strip ladders (ISV1), 
-//    electronics/cooling (SSV1) and end-ladder stuff (ELL5) of layer #5 in
-//     their mother volume (IT56) 
-
-       offset1 = atg_(.9, 40.);
-       offset2 = 5.2;
-       rzero   = dbox1[0] + 40.;
-       runo    = dbox1[0] * 2. + 40. + dsrv[0];
-       rtwo    = dbox1[0] * 2. + 40. + dela[0];
-       for (i = 1; i <= 35; ++i) {
-           atheta = (i-1) * twopi * raddeg / 35. + offset2;
-           AliMatrix(idrotm[i+1499], 90., atheta, 90., atheta + 90., 0., 0.);
-
-// --- Strip ladders 
-
-           xpos = rzero * TMath::Cos((i-1) * twopi / 35. + offset1);
-           ypos = rzero * TMath::Sin((i-1) * twopi / 35. + offset1);
-           zpos = 0.;
-           geant->Gspos("ISV1", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY");
-
-// --- Electronics/cooling 
-
-           xpos = runo * TMath::Cos((i-1) * twopi / 35. + offset1);
-           ypos = runo * TMath::Sin((i-1) * twopi / 35. + offset1);
-           zpos = 0.;
-           geant->Gspos("SSV1", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY");
-
-// --- End-ladders (nagative-Z and positive-Z) 
-
-           xpos = rtwo * TMath::Cos((i-1) * twopi / 35. + offset1);
-           ypos = rtwo * TMath::Sin((i-1) * twopi / 35. + offset1);
-           zpos = -(dbox1[2] + dela[2] + 6.);
-           geant->Gspos("ELL5", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY");
-           zpos = dbox1[2] + dela[2] + 6.;
-           geant->Gspos("ELL5", i + 35, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY");
-       }
-
-
-// --- Layer #6 
-
-//        GOTO 5778           ! skip ITS layer no. 6 
-
-//--- Define a ghost volume containing a single ladder of layer #6 andfill
-//     it with air or vacuum 
-
-       dbox2[0] = .044999999999999998;
-       dbox2[1] = 3.75;
-       dbox2[2] = 50.975000000000001;
-       geant->Gsvolu("ISV2", "BOX ", idtmed[253], dbox2, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("ISV2", "SEEN", 0);
-
-// --- Define a ghost volume containing the electronics and cooling of
-//     a single ladder of layer #6 and fill it with air or vacuum 
-
-       dsrv[0] = (TMath::Sqrt(3.) / 2. * 4.2 + .47 + .05) / 2.;
-       dsrv[1] = 3.75;
-       dsrv[2] = 50.975000000000001;
-       geant->Gsvolu("SSV2", "BOX ", idtmed[253], dsrv, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("SSV2", "SEEN", 0);
-
-// --- Define a ghost volume containing the end-ladder stuff of 
-//     a single ladder of layer #6 and fill it with air or vacuum 
-
-       dela[0] = 2.;
-       dela[1] = 3.5;
-       dela[2] = 4.;
-       geant->Gsvolu("ELL6", "BOX ", idtmed[253], dela, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("ELL6", "SEEN", 0);
-
-// --- Define a volume containing the sensitive part of the strips 
-//     (silicon, layer #6) 
-
-       dits[0] = .015;
-       dits[1] = 3.75;
-       dits[2] = 2.1;
-       geant->Gsvolu("ITS6", "BOX ", idtmed[249], dits, 3);
-
-// --- Define a volume containing the electronics of the strips 
-//     (silicon, layer #6) 
-
-       dchi[0] = .02;
-       dchi[1] = 3.4;
-       dchi[2] = .525;
-       geant->Gsvolu("SCH6", "BOX ", idtmed[250], dchi, 3);
-
-// --- Define the cooling tubes (aluminum, layer #6) 
-
-       dtub[0] = .09;
-       dtub[1] = dtub[0] + .01;
-       dtub[2] = 50.975000000000001;
-       geant->Gsvolu("STB6", "TUBE", idtmed[255], dtub, 3);
-
-// --- Define the cooling fluid (water or freon, layer #6) 
-
-       dwat[0] = 0.;
-       dwat[1] = .09;
-       dwat[2] = 50.975000000000001;
-       geant->Gsvolu("SWT6", "TUBE", idtmed[256], dwat, 3);
-//        CALL GSVOLU('SWT6','TUBE',IDTMED(258),DWAT,3,IOUT)   ! freon
-
-//--- Define the (triangular) element of the heat bridge (carbon, layer #6)
-
-// water 
-       dfra[0] = 120.;
-       dfra[1] = 360.;
-       dfra[2] = 3.;
-       dfra[3] = 2.;
-       dfra[4] = -.015;
-       dfra[5] = TMath::Sqrt(3.) * 4.2 / 6.;
-       dfra[6] = dfra[5] + .03;
-       dfra[7] = .015;
-       dfra[8] = dfra[5];
-       dfra[9] = dfra[6];
-       geant->Gsvolu("SFR6", "PGON", idtmed[252], dfra, 10);
-
-// --- Define the element connecting the triangles of the heat bridge 
-//     (carbon, layer #6) 
-
-       dcei[0] = 0.;
-       dcei[1] = .03;
-       dcei[2] = 50.975000000000001;
-       geant->Gsvolu("SCE6", "TUBE", idtmed[252], dcei, 3);
-
-// --- Define the part of the end-ladder stuff made of plastic (G10FR4) 
-//     (layer #6) 
-
-       dpla[0] = .089285714285714288;
-       dpla[1] = 3.5;
-       dpla[2] = 4.;
-       geant->Gsvolu("EPL6", "BOX ", idtmed[262], dpla, 3);
-
-// --- Define the part of the end-ladder stuff made of copper (layer #6) 
-
-       dcop[0] = .017857142857142856;
-       dcop[1] = 3.5;
-       dcop[2] = 4.;
-       geant->Gsvolu("ECU6", "BOX ", idtmed[259], dcop, 3);
-
-// --- Define the part of the end-ladder stuff made of epoxy (layer #6) 
-
-       depx[0] = .26785714285714285;
-       depx[1] = 3.5;
-       depx[2] = 4.;
-       geant->Gsvolu("EPX6", "BOX ", idtmed[262], depx, 3);
-
-// --- Define the part of the end-ladder stuff made of silicon (bus) 
-//     (layer #6) 
-
-       dsil[0] = .17857142857142858;
-       dsil[1] = 3.5;
-       dsil[2] = 4.;
-       geant->Gsvolu("ESI6", "BOX ", idtmed[251], dsil, 3);
-
-// --- Place the end-ladder stuff into its mother (ELL5) 
-
-       sep  = (4. - (dpla[0] + dcop[0] + depx[0] + dsil[0]) * 2.) / 3.;
-       ypos = 0.;
-       zpos = 0.;
-
-// --- Plastic 
-
-       xpos = -dela[0] + dpla[0];
-       geant->Gspos("EPL6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0];
-       geant->Gspos("ECU6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Epoxy 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0];
-       geant->Gspos("EPX6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0] * 2. + sep + dsil[0];
-       geant->Gspos("ESI6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the sensitive part of the strips into its mother (ISV2) 
-
-       ypos = 0.;
-       for (j = 1; j <= 26; ++j) {
-           if (j % 2 == 0) xpos = dbox2[0] - dits[0];
-           else            xpos = -dbox2[0] + dits[0];
-           zpos = ((j - 1) - 12.) * 3.91 - 1.96;
-           geant->Gspos("ITS6", j, "ISV2", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-// --- Place the electronics of the strips into its mother (SSV2) 
-
-       ypos = 0.;
-       for (j = 1; j <= 26; ++j) {
-           if (j % 2 == 0) xpos = -dsrv[0] + .28;
-           else            xpos = -dsrv[0] + .28 - dits[0] * 2. - .03;
-           zpos = ((j - 1) - 12.) * 3.91 - 1.96 + .85;
-           geant->Gspos("SCH5", j, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-//--- Place the cooling tubes and the cooling fluid into their mother (SSV1)
-
-       xpos = -dsrv[0] + .41;
-       zpos = 0.;
-
-// --- Left tube (just a matter of convention) 
-
-       ypos = -2.3500000000000001;
-       geant->Gspos("STB6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-       geant->Gspos("SWT6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right tube (just a matter of convention) 
-
-       ypos = 2.3500000000000001;
-       geant->Gspos("STB6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-       geant->Gspos("SWT6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the heat bridge elements into their mother (SSV2) 
-
-       xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 6. * 4.2;
-       ypos = 0.;
-       for (j = 1; j <= 27; ++j) {
-           zpos = ((j - 1) - 12.) * 3.91 - 1.96 - 2.1000000000000001;
-           geant->Gspos("SFR6", j, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-// --- Place the elements connecting the triangles of the heat bridge 
-//     into their mother (SSV2) 
-
-       zpos = 0.;
-
-// --- Left element (just a matter of convention) 
-
-       xpos = -dsrv[0] + .47;
-       ypos = -2.1150000000000002;
-       geant->Gspos("SCE6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right element 
-
-       xpos = -dsrv[0] + .47;
-       ypos = 2.1150000000000002;
-       geant->Gspos("SCE6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Top element 
-
-       xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 2. * 4.2 + .015;
-       ypos = 0.;
-       geant->Gspos("SCE6", 3, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the ghost volumes containing the strip ladders (ISV2), 
-//    electronics/cooling (SSV2) and end-ladder stuff (ELL6) of layer #6 in
-//     their mother volume (IT56) 
-
-       offset1 = atg_(1., 45.);
-       offset2 = 5.2;
-       rzero   = dbox2[0] + 45.;
-       runo    = dbox2[0] * 2. + 45. + dsrv[0];
-       rtwo    = dbox2[0] * 2. + 45. + dela[0];
-       for (i = 1; i <= 39; ++i) {
-           atheta = (i-1) * twopi * raddeg / 39. + offset2;
-           AliMatrix(idrotm[i+1599], 90., atheta, 90., atheta + 90., 0., 0.);
-
-// --- Strip ladders 
-
-           xpos = rzero * TMath::Cos((i-1) * twopi / 39. + offset1);
-           ypos = rzero * TMath::Sin((i-1) * twopi / 39. + offset1);
-           zpos = 0.;
-           geant->Gspos("ISV2", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY");
-
-// --- Electronics/cooling 
-
-           xpos = runo * TMath::Cos((i-1) * twopi / 39. + offset1);
-           ypos = runo * TMath::Sin((i-1) * twopi / 39. + offset1);
-           zpos = 0.;
-           geant->Gspos("SSV2", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY");
-
-// --- End-ladders (nagative-Z and positive-Z) 
-
-           xpos = rtwo * TMath::Cos((i-1) * twopi / 39. + offset1);
-           ypos = rtwo * TMath::Sin((i-1) * twopi / 39. + offset1);
-           zpos = -(dbox2[2] + dela[2] + 6.);
-           geant->Gspos("ELL6", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY");
-           zpos = dbox2[2] + dela[2] + 6.;
-           geant->Gspos("ELL6", i + 39, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY");
-       }
-
-
-    }
-
-// --- Define SSD with the 32+36 lay-out 
-
-    if (fMinorVersion == 3 || fMinorVersion == 4 || fMinorVersion == 5) {
-
-//--- Define ghost volume containing the Strip Detectors and fill it with air
-//     or vacuum 
-
-       xxm    = 1.0444222222222224;
-       dgh[0] = 0.;
-       dgh[1] = 360.;
-       dgh[2] = 4.;
-       dgh[3] = -25. - 5.9900000000000002 / xxm - 
-               .0099999999999997868 / xxm - 17.990000000000002 / xxm - 9. / xxm - 13.997999999999998 / xxm;
-       dgh[4] = 49.998;
-       dgh[5] = 49.998;
-       dgh[6] = -25. - 5.9900000000000002 / xxm - 
-               .0099999999999997868 / xxm - 17.990000000000002 / xxm - 9. / xxm;
-       dgh[7] = 36.;
-       dgh[8] = 49.998;
-       dgh[9] = 5.9900000000000002 / xxm + 25. + 
-               .0099999999999997868 / xxm + 17.990000000000002 / xxm + 9. / xxm;
-       dgh[10] = 36.;
-       dgh[11] = 49.998;
-       dgh[12] = 5.9900000000000002 / xxm + 25. + 
-               .0099999999999997868 / xxm + 17.990000000000002 / xxm + 9. / xxm + 13.997999999999998 / xxm;
-       dgh[13] = 49.998;
-       dgh[14] = 49.998;
-       geant->Gsvolu("IT56", "PCON", idtmed[275], dgh, 15);
-       geant->Gspos("IT56", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-       geant->Gsatt("IT56", "SEEN", 0);
-
-// --- Layer #5 
-
-//        GOTO 6678           ! skip ITS layer no. 5 
-
-//--- Define a ghost volume containing a single ladder of layer #5 andfill
-//     it with air or vacuum 
-
-       dbox1[0] = .044999999999999998;
-       dbox1[1] = 3.75;
-       dbox1[2] = 43.155000000000001;
-       geant->Gsvolu("ISV1", "BOX ", idtmed[253], dbox1, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("ISV1", "SEEN", 0);
-
-// --- Define a ghost volume containing the electronics and cooling of
-//     a single ladder of layer #5 and fill it with air or vacuum 
-
-       dsrv[0] = (TMath::Sqrt(3.) / 2. * 4.2 + .47 + .05) / 2.;
-       dsrv[1] = 3.75;
-       dsrv[2] = 43.155000000000001;
-       geant->Gsvolu("SSV1", "BOX ", idtmed[253], dsrv, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("SSV1", "SEEN", 0);
-
-// --- Define a ghost volume containing the end-ladder stuff of 
-//     a single ladder of layer #5 and fill it with air or vacuum 
-
-       dela[0] = 2.;
-       dela[1] = 3.5;
-       dela[2] = 4.;
-       geant->Gsvolu("ELL5", "BOX ", idtmed[253], dela, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("ELL5", "SEEN", 0);
-
-// --- Define a volume containing the sensitive part of the strips 
-//     (silicon, layer #5) 
-
-       dits[0] = .015;
-       dits[1] = 3.75;
-       dits[2] = 2.1;
-       geant->Gsvolu("ITS5", "BOX ", idtmed[249], dits, 3);
-
-// --- Define a volume containing the electronics of the strips 
-//     (silicon, layer #5) 
-
-       dchi[0] = .02;
-       dchi[1] = 3.4;
-       dchi[2] = .525;
-       geant->Gsvolu("SCH5", "BOX ", idtmed[250], dchi, 3);
-
-// --- Define the cooling tubes (aluminum, layer #5) 
-
-       dtub[0] = .09;
-       dtub[1] = dtub[0] + .01;
-       dtub[2] = 43.155000000000001;
-       geant->Gsvolu("STB5", "TUBE", idtmed[255], dtub, 3);
-
-// --- Define the cooling fluid (water or freon, layer #5) 
-
-       dwat[0] = 0.;
-       dwat[1] = .09;
-       dwat[2] = 43.155000000000001;
-       geant->Gsvolu("SWT5", "TUBE", idtmed[256], dwat, 3);
-//        CALL GSVOLU('SWT5','TUBE',IDTMED(258),DWAT,3,IOUT)   ! freon
-
-//--- Define the (triangular) element of the heat bridge (carbon, layer #5)
-
-// water 
-       dfra[0] = 120.;
-       dfra[1] = 360.;
-       dfra[2] = 3.;
-       dfra[3] = 2.;
-       dfra[4] = -.015;
-       dfra[5] = TMath::Sqrt(3.) * 4.2 / 6.;
-       dfra[6] = dfra[5] + .03;
-       dfra[7] = .015;
-       dfra[8] = dfra[5];
-       dfra[9] = dfra[6];
-       geant->Gsvolu("SFR5", "PGON", idtmed[252], dfra, 10);
-
-// --- Define the element connecting the triangles of the heat bridge 
-//     (carbon, layer #5) 
-
-       dcei[0] = 0.;
-       dcei[1] = .03;
-       dcei[2] = 43.155000000000001;
-       geant->Gsvolu("SCE5", "TUBE", idtmed[252], dcei, 3);
-
-// --- Define the part of the end-ladder stuff made of plastic (G10FR4) 
-//     (layer #5) 
-
-       dpla[0] = .089285714285714288;
-       dpla[1] = 3.5;
-       dpla[2] = 4.;
-       geant->Gsvolu("EPL5", "BOX ", idtmed[262], dpla, 3);
-
-// --- Define the part of the end-ladder stuff made of copper (layer #5) 
-
-       dcop[0] = .017857142857142856;
-       dcop[1] = 3.5;
-       dcop[2] = 4.;
-       geant->Gsvolu("ECU5", "BOX ", idtmed[259], dcop, 3);
-
-// --- Define the part of the end-ladder stuff made of epoxy (layer #5) 
-
-       depx[0] = .26785714285714285;
-       depx[1] = 3.5;
-       depx[2] = 4.;
-       geant->Gsvolu("EPX5", "BOX ", idtmed[262], depx, 3);
-
-// --- Define the part of the end-ladder stuff made of silicon (bus) 
-//     (layer #5) 
-
-       dsil[0] = .17857142857142858;
-       dsil[1] = 3.5;
-       dsil[2] = 4.;
-       geant->Gsvolu("ESI5", "BOX ", idtmed[251], dsil, 3);
-
-// --- Place the end-ladder stuff into its mother (ELL5) 
-
-       sep  = (4. - (dpla[0] + dcop[0] + depx[0] + dsil[0]) * 2.) / 3.;
-       ypos = 0.;
-       zpos = 0.;
-
-// --- Plastic 
-
-       xpos = -dela[0] + dpla[0];
-       geant->Gspos("EPL5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0];
-       geant->Gspos("ECU5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Epoxy 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0];
-       geant->Gspos("EPX5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0] * 2. + sep + dsil[0];
-       geant->Gspos("ESI5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the sensitive part of the strips into its mother (ISV1) 
-
-       ypos = 0.;
-       for (j = 1; j <= 22; ++j) {
-           if (j % 2 == 0) xpos = dbox1[0] - dits[0];
-           else            xpos = -dbox1[0] + dits[0];
-           zpos = ((j - 1) - 10.) * 3.91 - 1.96;
-           geant->Gspos("ITS5", j, "ISV1", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-// --- Place the electronics of the strips into its mother (SSV1) 
-
-       ypos = 0.;
-       for (j = 1; j <= 22; ++j) {
-           if (j % 2 == 0) xpos = -dsrv[0] + .28;
-           else            xpos = -dsrv[0] + .28 - dits[0] * 2. - .03;
-           zpos = ((j - 1) - 10.) * 3.91 - 1.96 + .85;
-           geant->Gspos("SCH5", j, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-//--- Place the cooling tubes and the cooling fluid into their mother (SSV1)
-
-       xpos = -dsrv[0] + .41;
-       zpos = 0.;
-
-// --- Left tube (just a matter of convention) 
-
-       ypos = -2.3500000000000001;
-       geant->Gspos("STB5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-       geant->Gspos("SWT5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right tube (just a matter of convention) 
-
-       ypos = 2.3500000000000001;
-       geant->Gspos("STB5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-       geant->Gspos("SWT5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the heat bridge elements into their mother (SSV1) 
-
-       xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 6. * 4.2;
-       ypos = 0.;
-       for (j = 1; j <= 23; ++j) {
-           zpos = ((j - 1) - 10.) * 3.91 - 1.96 - 2.1000000000000001;
-           geant->Gspos("SFR5", j, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-// --- Place the elements connecting the triangles of the heat bridge 
-//     into their mother (SSV1) 
-
-       zpos = 0.;
-
-// --- Left element (just a matter of convention) 
-
-       xpos = -dsrv[0] + .47;
-       ypos = -2.1150000000000002;
-       geant->Gspos("SCE5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right element 
-
-       xpos = -dsrv[0] + .47;
-       ypos = 2.1150000000000002;
-       geant->Gspos("SCE5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Top element 
-
-       xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 2. * 4.2 + .015;
-       ypos = 0.;
-       geant->Gspos("SCE5", 3, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the ghost volumes containing the strip ladders (ISV1), 
-//    electronics/cooling (SSV1) and end-ladder stuff (ELL5) of layer #5 in
-//     their mother volume (IT56) 
-
-       offset1 = atg_(.8, 36.6);
-       offset2 = 5.2;
-       rzero   = dbox1[0] + 36.6;
-       runo    = dbox1[0] * 2. + 36.6 + dsrv[0];
-       rtwo    = dbox1[0] * 2. + 36.6 + dela[0];
-       for (i = 1; i <= 32; ++i) {
-           atheta = (i-1) * twopi * raddeg / 32. + offset2;
-           AliMatrix(idrotm[i+1499], 90., atheta, 90., atheta + 90., 0., 0.);
-
-// --- Strip ladders 
-
-           xpos = rzero * TMath::Cos((i-1) * twopi / 32. + offset1);
-           ypos = rzero * TMath::Sin((i-1) * twopi / 32. + offset1);
-           zpos = 0.;
-           geant->Gspos("ISV1", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY");
-
-// --- Electronics/cooling 
-
-           xpos = runo * TMath::Cos((i-1) * twopi / 32. + offset1);
-           ypos = runo * TMath::Sin((i-1) * twopi / 32. + offset1);
-           zpos = 0.;
-           geant->Gspos("SSV1", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY");
-
-// --- End-ladders (nagative-Z and positive-Z) 
-
-           xpos = rtwo * TMath::Cos((i-1) * twopi / 32. + offset1);
-           ypos = rtwo * TMath::Sin((i-1) * twopi / 32. + offset1);
-           zpos = -(dbox1[2] + dela[2] + 6.);
-           geant->Gspos("ELL5", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY");
-           zpos = dbox1[2] + dela[2] + 6.;
-           geant->Gspos("ELL5", i + 35, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY");
-       }
-
-
-// --- Layer #6 
-
-//        GOTO 6778           ! skip ITS layer no. 6 
-
-//--- Define a ghost volume containing a single ladder of layer #6 andfill
-//     it with air or vacuum 
-
-       dbox2[0] = .044999999999999998;
-       dbox2[1] = 3.75;
-       dbox2[2] = 47.064999999999998;
-       geant->Gsvolu("ISV2", "BOX ", idtmed[253], dbox2, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("ISV2", "SEEN", 0);
-
-// --- Define a ghost volume containing the electronics and cooling of
-//     a single ladder of layer #6 and fill it with air or vacuum 
-
-       dsrv[0] = (TMath::Sqrt(3.) / 2. * 4.2 + .47 + .05) / 2.;
-       dsrv[1] = 3.75;
-       dsrv[2] = 47.064999999999998;
-       geant->Gsvolu("SSV2", "BOX ", idtmed[253], dsrv, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("SSV2", "SEEN", 0);
-
-// --- Define a ghost volume containing the end-ladder stuff of 
-//     a single ladder of layer #6 and fill it with air or vacuum 
-
-       dela[0] = 2.;
-       dela[1] = 3.5;
-       dela[2] = 4.;
-       geant->Gsvolu("ELL6", "BOX ", idtmed[253], dela, 3);
-
-// --- Make the ghost volume invisible 
-
-       geant->Gsatt("ELL6", "SEEN", 0);
-
-// --- Define a volume containing the sensitive part of the strips 
-//     (silicon, layer #6) 
-
-       dits[0] = .015;
-       dits[1] = 3.75;
-       dits[2] = 2.1;
-       geant->Gsvolu("ITS6", "BOX ", idtmed[249], dits, 3);
-
-// --- Define a volume containing the electronics of the strips 
-//     (silicon, layer #6) 
-
-       dchi[0] = .02;
-       dchi[1] = 3.4;
-       dchi[2] = .525;
-       geant->Gsvolu("SCH6", "BOX ", idtmed[250], dchi, 3);
-
-// --- Define the cooling tubes (aluminum, layer #6) 
-
-       dtub[0] = .09;
-       dtub[1] = dtub[0] + .01;
-       dtub[2] = 47.064999999999998;
-       geant->Gsvolu("STB6", "TUBE", idtmed[255], dtub, 3);
-
-// --- Define the cooling fluid (water or freon, layer #6) 
-
-       dwat[0] = 0.;
-       dwat[1] = .09;
-       dwat[2] = 47.064999999999998;
-       geant->Gsvolu("SWT6", "TUBE", idtmed[256], dwat, 3);
-//        CALL GSVOLU('SWT6','TUBE',IDTMED(258),DWAT,3,IOUT)   ! freon
-
-//--- Define the (triangular) element of the heat bridge (carbon, layer #6)
-
-// water 
-       dfra[0] = 120.;
-       dfra[1] = 360.;
-       dfra[2] = 3.;
-       dfra[3] = 2.;
-       dfra[4] = -.015;
-       dfra[5] = TMath::Sqrt(3.) * 4.2 / 6.;
-       dfra[6] = dfra[5] + .03;
-       dfra[7] = .015;
-       dfra[8] = dfra[5];
-       dfra[9] = dfra[6];
-       geant->Gsvolu("SFR6", "PGON", idtmed[252], dfra, 10);
-
-// --- Define the element connecting the triangles of the heat bridge 
-//     (carbon, layer #6) 
-
-       dcei[0] = 0.;
-       dcei[1] = .03;
-       dcei[2] = 47.064999999999998;
-       geant->Gsvolu("SCE6", "TUBE", idtmed[252], dcei, 3);
-
-// --- Define the part of the end-ladder stuff made of plastic (G10FR4) 
-//     (layer #6) 
-
-       dpla[0] = .089285714285714288;
-       dpla[1] = 3.5;
-       dpla[2] = 4.;
-       geant->Gsvolu("EPL6", "BOX ", idtmed[262], dpla, 3);
-
-// --- Define the part of the end-ladder stuff made of copper (layer #6) 
-
-       dcop[0] = .017857142857142856;
-       dcop[1] = 3.5;
-       dcop[2] = 4.;
-       geant->Gsvolu("ECU6", "BOX ", idtmed[259], dcop, 3);
-
-// --- Define the part of the end-ladder stuff made of epoxy (layer #6) 
-
-       depx[0] = .26785714285714285;
-       depx[1] = 3.5;
-       depx[2] = 4.;
-       geant->Gsvolu("EPX6", "BOX ", idtmed[262], depx, 3);
-
-// --- Define the part of the end-ladder stuff made of silicon (bus) 
-//     (layer #6) 
-
-       dsil[0] = .17857142857142858;
-       dsil[1] = 3.5;
-       dsil[2] = 4.;
-       geant->Gsvolu("ESI6", "BOX ", idtmed[251], dsil, 3);
-
-// --- Place the end-ladder stuff into its mother (ELL5) 
-
-       sep= (4. - (dpla[0] + dcop[0] + depx[0] + dsil[0]) * 2.) / 3.;
-       ypos = 0.;
-       zpos = 0.;
-
-// --- Plastic 
-
-       xpos = -dela[0] + dpla[0];
-       geant->Gspos("EPL6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Copper 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0];
-       geant->Gspos("ECU6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Epoxy 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0];
-       geant->Gspos("EPX6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Silicon (bus) 
-
-       xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0] * 2. + sep + dsil[0];
-       geant->Gspos("ESI6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the sensitive part of the strips into its mother (ISV2) 
-
-       ypos = 0.;
-       for (j = 1; j <= 24; ++j) {
-           if (j % 2 == 0) xpos = -dbox2[0] + dits[0];
-           else            xpos = dbox2[0] - dits[0];
-           zpos = ((j - 1) - 11.) * 3.91 - 1.96;
-           geant->Gspos("ITS6", j, "ISV2", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-// --- Place the electronics of the strips into its mother (SSV2) 
-
-       ypos = 0.;
-       for (j = 1; j <= 24; ++j) {
-           if (j % 2 == 0) xpos = -dsrv[0] + .28 - dits[0] * 2. - .03;
-           else            xpos = -dsrv[0] + .28;
-           zpos = ((j - 1) - 11.) * 3.91 - 1.96 + .85;
-           geant->Gspos("SCH5", j, "SSV1", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-//--- Place the cooling tubes and the cooling fluid into their mother (SSV2)
-
-       xpos = -dsrv[0] + .41;
-       zpos = 0.;
-
-// --- Left tube (just a matter of convention) 
-
-       ypos = -2.3500000000000001;
-       geant->Gspos("STB6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-       geant->Gspos("SWT6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right tube (just a matter of convention) 
-
-       ypos = 2.3500000000000001;
-       geant->Gspos("STB6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-       geant->Gspos("SWT6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the heat bridge elements into their mother (SSV2) 
-
-       xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 6. * 4.2;
-       ypos = 0.;
-       for (j = 1; j <= 25; ++j) {
-           zpos = ((j - 1) - 11.) * 3.91 - 1.96 - 2.1000000000000001;
-           geant->Gspos("SFR6", j, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-       }
-
-// --- Place the elements connecting the triangles of the heat bridge 
-//     into their mother (SSV2) 
-
-       zpos = 0.;
-
-// --- Left element (just a matter of convention) 
-
-       xpos = -dsrv[0] + .47;
-       ypos = -2.1150000000000002;
-       geant->Gspos("SCE6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Right element 
-
-       xpos = -dsrv[0] + .47;
-       ypos = 2.1150000000000002;
-       geant->Gspos("SCE6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Top element 
-
-       xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 2. * 4.2 + .015;
-       ypos = 0.;
-       geant->Gspos("SCE6", 3, "SSV2", xpos, ypos, zpos, 0, "ONLY");
-
-// --- Place the ghost volumes containing the strip ladders (ISV2), 
-//    electronics/cooling (SSV2) and end-ladder stuff (ELL6) of layer #6 in
-//     their mother volume (IT56) 
-
-       offset1 = atg_(.9, 41.2);
-       offset2 = 5.2;
-       rzero   = dbox2[0] + 41.2;
-       runo    = dbox2[0] * 2. + 41.2 + dsrv[0];
-       rtwo    = dbox2[0] * 2. + 41.2 + dela[0];
-       for (i = 1; i <= 36; ++i) {
-           atheta = (i-1) * twopi * raddeg / 36. + offset2;
-           AliMatrix(idrotm[i+1599], 90., atheta, 90., atheta + 90., 0., 0.);
-
-// --- Strip ladders 
-
-           xpos = rzero * TMath::Cos((i-1) * twopi / 36. + offset1);
-           ypos = rzero * TMath::Sin((i-1) * twopi / 36. + offset1);
-           zpos = 0.;
-           geant->Gspos("ISV2", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY");
-
-// --- Electronics/cooling 
-
-           xpos = runo * TMath::Cos((i-1) * twopi / 36. + offset1);
-           ypos = runo * TMath::Sin((i-1) * twopi / 36. + offset1);
-           zpos = 0.;
-           geant->Gspos("SSV2", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY");
-
-// --- End-ladders (nagative-Z and positive-Z) 
-
-           xpos = rtwo * TMath::Cos((i-1) * twopi / 36. + offset1);
-           ypos = rtwo * TMath::Sin((i-1) * twopi / 36. + offset1);
-           zpos = -(dbox2[2] + dela[2] + 6.);
-           geant->Gspos("ELL6", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY");
-           zpos = dbox2[2] + dela[2] + 6.;
-           geant->Gspos("ELL6", i + 39, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY");
-       }
-
-
-    }
-
-//************************************************************************
-//*                                                                      *
-//*             E N D - C A P S     A N D     F R A M E S                *
-//*             =========================================                *
-//*                                                                      *
-//************************************************************************
-
-// --- Define a dummy cylinder for multiple scattering tests 
-
-//     GOTO 7890             ! skip dummy cylinder for multiple scatteringtests
-
-//      DITS(1)=49. 
-//      DITS(2)=DITS(1)+0.1 
-//      DITS(3)=60.3 
-//      CALL GSVOLU('ITST','TUBE',IDTMED(255),DITS,3,IOUT) 
-//      CALL GSPOS('ITST',1,'ITSV',0.,0.,0.,0,'ONLY') 
-// 7890  CONTINUE 
-
-// --- The 0.74% X0 outer wall (C) of the gas vessel at r=50cm --- 
-
-    if (fMinorVersion == 0 || fMinorVersion == 3) {
-
-//        GOTO 8901                                  ! skip outer wall
-
-       dits[0] = 49.9;
-       dits[1] = dits[0] + .06926;
-       dits[2] = dpcb[2] * 2. + 62.7 - 10.5;
-// old value 60.3 
-       geant->Gsvolu("ITSG", "TUBE", idtmed[274], dits, 3);
-       geant->Gspos("ITSG", 1, "ITSV", 0., 0., 0., 0, "ONLY");
-    } else {
-       goto L8901;
-    }
-L8901:
-// --- The frame between the end-caps (octagonal lay-out) --- 
-
-//     GOTO 9012                                    ! skip octagonal frame
-
-    if (fMinorVersion == 1) {
-
-       rzero = 34.;
-       dtra[0] = .92;
-       dtra[1] = 1.;
-       dtra[2] = dpcb[2] * 2. + 50.5 - 10.5;
-       dtra1[0] = .92;
-       dtra1[1] = 1.;
-       dtra1[2] = TMath::Sqrt(dtra[2] * dtra[2] + 518.90999999999985) / 2.;
-       angle = 45.;
-       offset = angle / 2.;
-       for (i = 1; i <= 8; ++i) {
-           xtra[i - 1] = rzero * TMath::Cos((i-1) * angle * degrad);
-           ytra[i - 1] = rzero * TMath::Sin((i-1) * angle * degrad);
-           ztra[i - 1] = 0.;
-           geant->Gsvolu(natra_ref(0, i), "TUBE", idtmed[274], dtra, 3);
-           geant->Gspos(natra_ref(0, i), 1, "ITSV", xtra[i - 1], ytra[i - 1], ztra[i - 1], 0, "ONLY");
-       }
-
-       atheta = 22.5;
-       aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra[0] + xtra[1]) / 2.;
-       ypos = (ytra[0] + ytra[1]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 1), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5100], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 1), 1, "ITSV", xpos, ypos, zpos, idrotm[5100], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 2), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5101], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 2), 1, "ITSV", xpos, ypos, zpos, idrotm[5101], "ONLY");
-
-       atheta = 67.5;
-       aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra[1] + xtra[2]) / 2.;
-       ypos = (ytra[1] + ytra[2]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 3), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5102], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 3), 1, "ITSV", xpos, ypos, zpos, idrotm[5102], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 4), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5103], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 4), 1, "ITSV", xpos, ypos, zpos, idrotm[5103], "ONLY");
-
-       atheta = 112.5;
-       aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra[2] + xtra[3]) / 2.;
-       ypos = (ytra[2] + ytra[3]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 5), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5104], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 5), 1, "ITSV", xpos, ypos, zpos, idrotm[5104], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 6), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5105], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 6), 1, "ITSV", xpos, ypos, zpos, idrotm[5105], "ONLY");
-
-       atheta = 157.5;
-       aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra[3] + xtra[4]) / 2.;
-       ypos = (ytra[3] + ytra[4]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 7), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5106], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 7), 1, "ITSV", xpos, ypos, zpos, idrotm[5106], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 8), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5107], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 8), 1, "ITSV", xpos, ypos, zpos, idrotm[5107], "ONLY");
-
-       atheta = 22.5;
-       aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra[4] + xtra[5]) / 2.;
-       ypos = (ytra[4] + ytra[5]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 9), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5108], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 9), 1, "ITSV", xpos, ypos, zpos, idrotm[5108], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 10), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5109], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 10), 1, "ITSV", xpos, ypos, zpos, idrotm[5109], "ONLY");
-
-       atheta = 67.5;
-       aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra[5] + xtra[6]) / 2.;
-       ypos = (ytra[5] + ytra[6]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 11), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5110], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 11), 1, "ITSV", xpos, ypos, zpos, idrotm[5110], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 12), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5111], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 12), 1, "ITSV", xpos, ypos, zpos, idrotm[5111], "ONLY");
-
-       atheta = 112.5;
-       aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra[6] + xtra[7]) / 2.;
-       ypos = (ytra[6] + ytra[7]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 13), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5112], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 13), 1, "ITSV", xpos, ypos, zpos, idrotm[5112], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 14), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5113], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 14), 1, "ITSV", xpos, ypos, zpos, idrotm[5113], "ONLY");
-
-       atheta = 157.5;
-       aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra[7] + xtra[0]) / 2.;
-       ypos = (ytra[7] + ytra[0]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 15), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5114], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 15), 1, "ITSV", xpos, ypos, zpos, idrotm[5114], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 16), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5115], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 16), 1, "ITSV", xpos, ypos, zpos, idrotm[5115], "ONLY");
-
-
-    } else if (fMinorVersion == 4) {
-
-
-       rzero = 34.;
-       dtra[0] = .92;
-       dtra[1] = 1.;
-       dtra[2] = dpcb[2] * 2. + 50.5 - 10.5;
-       dtra1[0] = .92;
-       dtra1[1] = 1.;
-       dtra1[2] = TMath::Sqrt(dtra[2] * dtra[2] + 518.91) / 2.;
-       angle = 45.;
-       offset = angle / 2.;
-       for (i = 1; i <= 8; ++i) {
-           xtra[i - 1] = rzero * TMath::Cos((i-1) * angle * degrad);
-           ytra[i - 1] = rzero * TMath::Sin((i-1) * angle * degrad);
-           ztra[i - 1] = 0.;
-           geant->Gsvolu(natra_ref(0, i), "TUBE", idtmed[274], dtra, 3);
-           geant->Gspos(natra_ref(0, i), 1, "ITSV", xtra[i - 1], ytra[i - 1], ztra[i - 1], 0, "ONLY");
-       }
-
-       atheta = 22.5;
-       aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra[0] + xtra[1]) / 2.;
-       ypos = (ytra[0] + ytra[1]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 1), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5100], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 1), 1, "ITSV", xpos, ypos, zpos, idrotm[5100], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 2), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5101], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 2), 1, "ITSV", xpos, ypos, zpos, idrotm[5101], "ONLY");
-
-       atheta = 67.5;
-       aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra[1] + xtra[2]) / 2.;
-       ypos = (ytra[1] + ytra[2]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 3), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5102], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 3), 1, "ITSV", xpos, ypos, zpos, idrotm[5102], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 4), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5103], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 4), 1, "ITSV", xpos, ypos, zpos, idrotm[5103], "ONLY");
-
-       atheta = 112.5;
-       aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra[2] + xtra[3]) / 2.;
-       ypos = (ytra[2] + ytra[3]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 5), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5104], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 5), 1, "ITSV", xpos, ypos, zpos, idrotm[5104], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 6), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5105], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 6), 1, "ITSV", xpos, ypos, zpos, idrotm[5105], "ONLY");
-
-       atheta = 157.5;
-       aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra[3] + xtra[4]) / 2.;
-       ypos = (ytra[3] + ytra[4]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 7), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5106], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 7), 1, "ITSV", xpos, ypos, zpos, idrotm[5106], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 8), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5107], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 8), 1, "ITSV", xpos, ypos, zpos, idrotm[5107], "ONLY");
-
-       atheta = 22.5;
-       aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra[4] + xtra[5]) / 2.;
-       ypos = (ytra[4] + ytra[5]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 9), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5108], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 9), 1, "ITSV", xpos, ypos, zpos, idrotm[5108], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 10), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5109], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 10), 1, "ITSV", xpos, ypos, zpos, idrotm[5109], "ONLY");
-
-       atheta = 67.5;
-       aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra[5] + xtra[6]) / 2.;
-       ypos = (ytra[5] + ytra[6]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 11), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5110], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 11), 1, "ITSV", xpos, ypos, zpos, idrotm[5110], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 12), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5111], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 12), 1, "ITSV", xpos, ypos, zpos, idrotm[5111], "ONLY");
-
-       atheta = 112.5;
-       aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra[6] + xtra[7]) / 2.;
-       ypos = (ytra[6] + ytra[7]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 13), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5112], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 13), 1, "ITSV", xpos, ypos, zpos, idrotm[5112], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 14), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5113], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 14), 1, "ITSV", xpos, ypos, zpos, idrotm[5113], "ONLY");
-
-       atheta = 157.5;
-       aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(.48869219055841229) * (50.5 / cos(.48869219055841229)) 
-               - 2550.25))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra[7] + xtra[0]) / 2.;
-       ypos = (ytra[7] + ytra[0]) / 2.;
-       zpos = dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 15), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5114], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra1_ref(0, 15), 1, "ITSV", xpos, ypos, zpos, idrotm[5114], "ONLY");
-       zpos = -dtra[2] / 2.;
-       geant->Gsvolu(natra1_ref(0, 16), "TUBE", idtmed[274], dtra1, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5115], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra1_ref(0, 16), 1, "ITSV", xpos, ypos, zpos, idrotm[5115], "ONLY");
-    } else {
-       goto L9012;
-    }
-
-L9012:
-
-// --- The frame between the end-caps (hexagonal lay-out) --- 
-
-//     GOTO 9123                                    ! skip hexagonal frame
-
-    if (fMinorVersion == 2) {
-
-       rzero = 33.5;
-       dtra2[0] = .92;
-       dtra2[1] = 1.;
-       dtra2[2] = dpcb[2] * 2. + 50. - 10.5;
-       dtra3[0] = .92;
-       dtra3[1] = 1.;
-       dtra3[2] = 16.75;
-       dtra4[0] = .92;
-       dtra4[1] = 1.;
-       dtra4[2] = TMath::Sqrt(dtra2[2] * dtra2[2] + 1088.0099999999998) / 2.;
-       angle = 60.;
-       offset = angle / 2.;
-       for (i = 1; i <= 6; ++i) {
-           xtra1[i - 1] = rzero * TMath::Cos(((i-1) * angle + offset) *degrad);
-           ytra1[i - 1] = rzero * TMath::Sin(((i-1) * angle + offset) *degrad);
-           ztra1[i - 1] = 0.;
-           geant->Gsvolu(natra2_ref(0, i), "TUBE", idtmed[274], dtra2, 3);
-           geant->Gspos(natra2_ref(0, i), 1, "ITSV", xtra1[i - 1], ytra1[i - 1], ztra1[i - 1], 0, "ONLY");
-       }
-
-       atheta = 60.;
-       aphi = 90.;
-       xpos = (xtra1[0] + xtra1[1]) / 2.;
-       ypos = (ytra1[0] + ytra1[1]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 1), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5200], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 1), 1, "ITSV", xpos, ypos, zpos, idrotm[5200], "ONLY");
-
-       atheta = 120.;
-       aphi = 90.;
-       xpos = (xtra1[1] + xtra1[2]) / 2.;
-       ypos = (ytra1[1] + ytra1[2]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 2), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5201], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 2), 1, "ITSV", xpos, ypos, zpos, idrotm[5201], "ONLY");
-
-       atheta = 180.;
-       aphi = 90.;
-       xpos = (xtra1[2] + xtra1[3]) / 2.;
-       ypos = (ytra1[2] + ytra1[3]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 3), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5202], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 3), 1, "ITSV", xpos, ypos, zpos, idrotm[5202], "ONLY");
-
-       atheta = 60.;
-       aphi = 90.;
-       xpos = (xtra1[3] + xtra1[4]) / 2.;
-       ypos = (ytra1[3] + ytra1[4]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 4), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5203], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 4), 1, "ITSV", xpos, ypos, zpos, idrotm[5203], "ONLY");
-
-       atheta = 120.;
-       aphi = 90.;
-       xpos = (xtra1[4] + xtra1[5]) / 2.;
-       ypos = (ytra1[4] + ytra1[5]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 5), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5204], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 5), 1, "ITSV", xpos, ypos, zpos, idrotm[5204], "ONLY");
-
-       atheta = 180.;
-       aphi = 90.;
-       xpos = (xtra1[5] + xtra1[0]) / 2.;
-       ypos = (ytra1[5] + ytra1[0]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 6), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5205], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 6), 1, "ITSV", xpos, ypos, zpos, idrotm[5205], "ONLY");
-
-       atheta = 60.;
-       aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra1[0] + xtra1[1]) / 2.;
-       ypos = (ytra1[0] + ytra1[1]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 1), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5210], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 1), 1, "ITSV", xpos, ypos, zpos, idrotm[5210], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 2), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5211], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 2), 1, "ITSV", xpos, ypos, zpos, idrotm[5211], "ONLY");
-
-       atheta = 120.;
-       aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra1[1] + xtra1[2]) / 2.;
-       ypos = (ytra1[1] + ytra1[2]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 3), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5212], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 3), 1, "ITSV", xpos, ypos, zpos, idrotm[5212], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 4), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5213], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 4), 1, "ITSV", xpos, ypos, zpos, idrotm[5213], "ONLY");
-
-       atheta = 180.;
-       aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra1[2] + xtra1[3]) / 2.;
-       ypos = (ytra1[2] + ytra1[3]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 5), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5214], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 5), 1, "ITSV", xpos, ypos, zpos, idrotm[5214], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 6), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5215], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 6), 1, "ITSV", xpos, ypos, zpos, idrotm[5215], "ONLY");
-       atheta = 180.;
-       aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra1[2] + xtra1[3]) / 2.;
-       ypos = (ytra1[2] + ytra1[3]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 7), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5216], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 7), 1, "ITSV", xpos, ypos, zpos, idrotm[5216], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 8), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5217], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 8), 1, "ITSV", xpos, ypos, zpos, idrotm[5217], "ONLY");
-
-       atheta = 60.;
-       aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra1[3] + xtra1[4]) / 2.;
-       ypos = (ytra1[3] + ytra1[4]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 9), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5218], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 9), 1, "ITSV", xpos, ypos, zpos, idrotm[5218], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 10), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5219], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 10), 1, "ITSV", xpos, ypos, zpos, idrotm[5219], "ONLY");
-
-       atheta = 120.;
-       aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra1[4] + xtra1[5]) / 2.;
-       ypos = (ytra1[4] + ytra1[5]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 11), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5220], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 11), 1, "ITSV", xpos, ypos, zpos, idrotm[5220], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 12), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5221], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 12), 1, "ITSV", xpos, ypos, zpos, idrotm[5221], "ONLY");
-
-       atheta = 180.;
-       aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra1[5] + xtra1[0]) / 2.;
-       ypos = (ytra1[5] + ytra1[0]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 13), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5222], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 13), 1, "ITSV", xpos, ypos, zpos, idrotm[5222], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 14), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5223], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 14), 1, "ITSV", xpos, ypos, zpos, idrotm[5223], "ONLY");
-       atheta = 180.;
-       aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra1[5] + xtra1[0]) / 2.;
-       ypos = (ytra1[5] + ytra1[0]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 15), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5224], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 15), 1, "ITSV", xpos, ypos, zpos, idrotm[5224], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 16), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5225], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 16), 1, "ITSV", xpos, ypos, zpos, idrotm[5225], "ONLY");
-
-
-    } else if (fMinorVersion == 5) {
-
-
-       rzero = 33.5;
-       dtra2[0] = .92;
-       dtra2[1] = 1.;
-       dtra2[2] = dpcb[2] * 2. + 50. - 10.5;
-       dtra3[0] = .92;
-       dtra3[1] = 1.;
-       dtra3[2] = 16.75;
-       dtra4[0] = .92;
-       dtra4[1] = 1.;
-       dtra4[2] = TMath::Sqrt(dtra2[2] * dtra2[2] + 1088.0099999999998) / 2.;
-       angle = 60.;
-       offset = angle / 2.;
-       for (i = 1; i <= 6; ++i) {
-           xtra1[i - 1] = rzero * TMath::Cos(((i-1) * angle + offset) *degrad);
-           ytra1[i - 1] = rzero * TMath::Sin(((i-1) * angle + offset) *degrad);
-           ztra1[i - 1] = 0.;
-           geant->Gsvolu(natra2_ref(0, i), "TUBE", idtmed[274], dtra2, 3);
-           geant->Gspos(natra2_ref(0, i), 1, "ITSV", xtra1[i - 1], ytra1[i - 1], ztra1[i - 1], 0, "ONLY");
-       }
-
-       atheta = 60.;
-       aphi = 90.;
-       xpos = (xtra1[0] + xtra1[1]) / 2.;
-       ypos = (ytra1[0] + ytra1[1]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 1), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5200], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 1), 1, "ITSV", xpos, ypos, zpos, idrotm[5200], "ONLY");
-
-       atheta = 120.;
-       aphi = 90.;
-       xpos = (xtra1[1] + xtra1[2]) / 2.;
-       ypos = (ytra1[1] + ytra1[2]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 2), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5201], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 2), 1, "ITSV", xpos, ypos, zpos, idrotm[5201], "ONLY");
-
-       atheta = 180.;
-       aphi = 90.;
-       xpos = (xtra1[2] + xtra1[3]) / 2.;
-       ypos = (ytra1[2] + ytra1[3]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 3), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5202], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 3), 1, "ITSV", xpos, ypos, zpos, idrotm[5202], "ONLY");
-
-       atheta = 60.;
-       aphi = 90.;
-       xpos = (xtra1[3] + xtra1[4]) / 2.;
-       ypos = (ytra1[3] + ytra1[4]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 4), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5203], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 4), 1, "ITSV", xpos, ypos, zpos, idrotm[5203], "ONLY");
-
-       atheta = 120.;
-       aphi = 90.;
-       xpos = (xtra1[4] + xtra1[5]) / 2.;
-       ypos = (ytra1[4] + ytra1[5]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 5), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5204], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 5), 1, "ITSV", xpos, ypos, zpos, idrotm[5204], "ONLY");
-
-       atheta = 180.;
-       aphi = 90.;
-       xpos = (xtra1[5] + xtra1[0]) / 2.;
-       ypos = (ytra1[5] + ytra1[0]) / 2.;
-       zpos = 0.;
-       geant->Gsvolu(natra3_ref(0, 6), "TUBE", idtmed[274], dtra3, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5205], 90., atheta, aphi + 90., r2, aphi, r3);
-       geant->Gspos(natra3_ref(0, 6), 1, "ITSV", xpos, ypos, zpos, idrotm[5205], "ONLY");
-
-       atheta = 60.;
-       aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra1[0] + xtra1[1]) / 2.;
-       ypos = (ytra1[0] + ytra1[1]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 1), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5210], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 1), 1, "ITSV", xpos, ypos, zpos, idrotm[5210], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 2), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5211], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 2), 1, "ITSV", xpos, ypos, zpos, idrotm[5211], "ONLY");
-
-       atheta = 120.;
-       aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra1[1] + xtra1[2]) / 2.;
-       ypos = (ytra1[1] + ytra1[2]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 3), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5212], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 3), 1, "ITSV", xpos, ypos, zpos, idrotm[5212], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 4), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5213], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 4), 1, "ITSV", xpos, ypos, zpos, idrotm[5213], "ONLY");
-
-       atheta = 180.;
-       aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra1[2] + xtra1[3]) / 2.;
-       ypos = (ytra1[2] + ytra1[3]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 5), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5214], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 5), 1, "ITSV", xpos, ypos, zpos, idrotm[5214], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 6), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5215], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 6), 1, "ITSV", xpos, ypos, zpos, idrotm[5215], "ONLY");
-       atheta = 180.;
-       aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra1[2] + xtra1[3]) / 2.;
-       ypos = (ytra1[2] + ytra1[3]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 7), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5216], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 7), 1, "ITSV", xpos, ypos, zpos, idrotm[5216], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 8), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5217], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 8), 1, "ITSV", xpos, ypos, zpos, idrotm[5217], "ONLY");
-
-       atheta = 60.;
-       aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra1[3] + xtra1[4]) / 2.;
-       ypos = (ytra1[3] + ytra1[4]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 9), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5218], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 9), 1, "ITSV", xpos, ypos, zpos, idrotm[5218], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 10), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5219], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 10), 1, "ITSV", xpos, ypos, zpos, idrotm[5219], "ONLY");
-
-       atheta = 120.;
-       aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra1[4] + xtra1[5]) / 2.;
-       ypos = (ytra1[4] + ytra1[5]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 11), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5220], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 11), 1, "ITSV", xpos, ypos, zpos, idrotm[5220], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 12), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5221], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 12), 1, "ITSV", xpos, ypos, zpos, idrotm[5221], "ONLY");
-
-       atheta = 180.;
-       aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi1 = 180. - aphi2;
-       xpos = (xtra1[5] + xtra1[0]) / 2.;
-       ypos = (ytra1[5] + ytra1[0]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 13), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5222], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 13), 1, "ITSV", xpos, ypos, zpos, idrotm[5222], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 14), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5223], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 14), 1, "ITSV", xpos, ypos, zpos, idrotm[5223], "ONLY");
-       atheta = 180.;
-       aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(.59341194567807209) * (50. / cos(.59341194567807209)) 
-               - 2500.))) * raddeg;
-       aphi2 = 180. - aphi1;
-       xpos = (xtra1[5] + xtra1[0]) / 2.;
-       ypos = (ytra1[5] + ytra1[0]) / 2.;
-       zpos = dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 15), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5224], 90., atheta, aphi1 + 90., r2, aphi1, r3);
-       geant->Gspos(natra4_ref(0, 15), 1, "ITSV", xpos, ypos, zpos, idrotm[5224], "ONLY");
-       zpos = -dtra2[2] / 2.;
-       geant->Gsvolu(natra4_ref(0, 16), "TUBE", idtmed[274], dtra4, 3);
-       r2 = atheta + 90.;
-       r3 = atheta + 90.;
-       AliMatrix(idrotm[5225], 90., atheta, aphi2 + 90., r2, aphi2, r3);
-       geant->Gspos(natra4_ref(0, 16), 1, "ITSV", xpos, ypos, zpos, idrotm[5225], "ONLY");
-    } else {
-       goto L9123;
-    }
-
-L9123:
-// --- Define the end-caps 
-
-//      GOTO 9234             ! skip both end-caps 
-
-// --- Define the Z>0 end-cap 
-
-//      GOTO 9345             ! skip the Z>0 end-cap 
-
-    dcone[0] = 16.75;
-    dcone[1] = 12.;
-    dcone[2] = 12.02;
-    dcone[3] = 46.899999999999999;
-    dcone[4] = .02 / TMath::Cos(.78539816339744828) + 46.899999999999999;
-    xpos = 0.;
-    ypos = 0.;
-    zpos = dpcb[2] * 2. + 45.899999999999999 - 10.5;
-// end-ladder electro 
-    geant->Gsvolu("RCON", "CONE", idtmed[274], dcone, 5);
-           ;
-    geant->Gspos("RCON", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
-    dtube[0] = .02 / TMath::Cos(.78539816339744828) + 
-           46.899999999999999;
-    dtube[1] = 49.9;
-// In the Simonetti's drawings 52. In the TP 50. 
-    dtube[2] = .15;
-    xpos = 0.;
-    ypos = 0.;
-    zpos = dpcb[2] * 2. + 62.799999999999997 - 10.5;
-// end-ladder electro 
-    geant->Gsvolu("RTB1", "TUBE", idtmed[274], dtube, 3);
-           ;
-    geant->Gspos("RTB1", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
-    dtube[0] = 10.5;
-    dtube[1] = 12.;
-    dtube[2] = 1.3400000000000001;
-    xpos = 0.;
-    ypos = 0.;
-    zpos = dpcb[2] * 2. + 21.59 - 10.5;
-// end-ladder elect 
-    geant->Gsvolu("RTB2", "TUBE", idtmed[274], dtube, 3);
-
-    geant->Gspos("RTB2", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
-    dpgon[0] = 15.;
-    dpgon[1] = 360.;
-    dpgon[2] = 12.;
-    dpgon[3] = 2.;
-    dpgon[4] = dpcb[2] * 2. + 22.93 - 10.5;
-// end-ladder electron 
-    dpgon[5] = 12.;
-    dpgon[6] = 13.5;
-    dpgon[7] = dpcb[2] * 2. + 29.149999999999999 - 10.5;
-// end-ladder electronics 
-    dpgon[8] = 12.;
-    dpgon[9] = 13.5;
-    xpos = 0.;
-    ypos = 0.;
-    zpos = 0.;
-    geant->Gsvolu("RP03", "PGON", idtmed[274], dpgon, 10);
-    geant->Gspos("RP03", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
-    dpgon[0] = 7.5;
-    dpgon[1] = 360.;
-    dpgon[2] = 24.;
-    dpgon[3] = 2.;
-    dpgon[4] = dpcb[2] * 2. + 35.649999999999999 - 10.5;
-// end-ladder e 
-    dpgon[5] = 21.;
-    dpgon[6] = 23.;
-    dpgon[7] = dpcb[2] * 2. + 37.149999999999999 - 10.5;
-// end-ladde 
-    dpgon[8] = 21.;
-    dpgon[9] = 23.;
-    xpos = 0.;
-    ypos = 0.;
-    zpos = 0.;
-    geant->Gsvolu("RP04", "PGON", idtmed[274], dpgon, 10);
-    geant->Gspos("RP04", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
-    if (fMinorVersion == 0 || fMinorVersion == 1 || fMinorVersion ==2) {
-       offset2 = 5.2;
-       dpgon[0] = offset2 + 5.1428571428571432;
-       dpgon[1] = 360.;
-       dpgon[2] = 35.;
-       dpgon[3] = 2.;
-       dpgon[4] = dpcb[2] * 2. + 52.350000000000001 - 10.5;
-// end-ladde 
-       dpgon[5] = 37.7;
-       dpgon[6] = 40.;
-       dpgon[7] = dpcb[2] * 2. + 53.850000000000001 - 10.5;
-// end-la 
-       dpgon[8] = 37.7;
-       dpgon[9] = 40.;
-       xpos = 0.;
-       ypos = 0.;
-       zpos = 0.;
-       geant->Gsvolu("RP05", "PGON", idtmed[274], dpgon, 10);
-       geant->Gspos("RP05", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
-       dpgon[0] = offset2 + 4.615384615384615;
-       dpgon[1] = 360.;
-       dpgon[2] = 39.;
-       dpgon[3] = 2.;
-       dpgon[4] = dpcb[2] * 2. + 57.350000000000001 - 10.5;
-// end-ladder 
-       dpgon[5] = 42.7;
-       dpgon[6] = 45.;
-       dpgon[7] = dpcb[2] * 2. + 58.850000000000001 - 10.5;
-// end-la 
-       dpgon[8] = 42.7;
-       dpgon[9] = 45.;
-       xpos = 0.;
-       ypos = 0.;
-       zpos = 0.;
-       geant->Gsvolu("RP06", "PGON", idtmed[274], dpgon, 10);
-       geant->Gspos("RP06", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-    }
-    if (fMinorVersion == 3 || fMinorVersion == 4 || fMinorVersion == 5) {
-       offset2 = 5.2;
-       dpgon[0] = offset2 + 5.625;
-       dpgon[1] = 360.;
-       dpgon[2] = 32.;
-       dpgon[3] = 2.;
-       dpgon[4] = 52.350000000000001 - 3.3999999999999986 / TMath::Tan(.78539816339744828) + dpcb[2] * 2. - 10.5;
-// end-ladder electronics 
-       dpgon[5] = 34.3;
-       dpgon[6] = 36.6;
-       dpgon[7] = 53.850000000000001 - 3.3999999999999986 / TMath::Tan(.78539816339744828) + dpcb[2] * 2. - 10.5;
-// end-ladder electr 
-       dpgon[8] = 34.3;
-       dpgon[9] = 36.6;
-       xpos = 0.;
-       ypos = 0.;
-       zpos = 0.;
-       geant->Gsvolu("RP05", "PGON", idtmed[274], dpgon, 10);
-       geant->Gspos("RP05", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
-       dpgon[0] = offset2 + 5.;
-       dpgon[1] = 360.;
-       dpgon[2] = 36.;
-       dpgon[3] = 2.;
-       dpgon[4] = 57.350000000000001 - 3.7999999999999972 / TMath::Tan(.78539816339744828) + dpcb[2] * 2. - 10.5;
-// end-ladder electronics 
-       dpgon[5] = 38.9;
-       dpgon[6] = 41.2;
-       dpgon[7] = 58.850000000000001 - 3.7999999999999972 / TMath::Tan(.78539816339744828) + dpcb[2] * 2. - 10.5;
-// end-ladder electr 
-       dpgon[8] = 38.9;
-       dpgon[9] = 41.2;
-       xpos = 0.;
-       ypos = 0.;
-       zpos = 0.;
-       geant->Gsvolu("RP06", "PGON", idtmed[274], dpgon, 10);
-       geant->Gspos("RP06", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-    }
-
-// 9345 CONTINUE 
-
-// --- Define the Z<0 end-cap 
-
-//      GOTO 9456             ! skip the Z<0 end-cap 
-
-    dcone[0] = 16.75;
-    dcone[1] = 46.899999999999999;
-    dcone[2] = .02 / TMath::Cos(.78539816339744828) + 46.899999999999999;
-    dcone[3] = 12.;
-    dcone[4] = 12.02;
-    xpos = 0.;
-    ypos = 0.;
-    zpos = -45.899999999999999 - dpcb[2] * 2. + 10.5;
-// end-ladder electr 
-    geant->Gsvolu("LCON", "CONE", idtmed[274], dcone, 5);
-           ;
-    geant->Gspos("LCON", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
-    dtube[0] = .02 / TMath::Cos(.78539816339744828) + 
-           46.899999999999999;
-    dtube[1] = 49.9;
-// In the Simonetti's drawings 52. In the TP 50. 
-    dtube[2] = .15;
-    xpos = 0.;
-    ypos = 0.;
-    zpos = -62.799999999999997 - dpcb[2] * 2. + 10.5;
-// end-ladder electr 
-    geant->Gsvolu("LTB1", "TUBE", idtmed[274], dtube, 3);
-           ;
-    geant->Gspos("LTB1", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
-    dtube[0] = 10.5;
-    dtube[1] = 12.;
-    dtube[2] = 1.3400000000000001;
-    xpos = 0.;
-    ypos = 0.;
-    zpos = -21.59 - dpcb[2] * 2. + 10.5;
-// end-ladder elec 
-    geant->Gsvolu("LTB2", "TUBE", idtmed[274], dtube, 3);
-
-    geant->Gspos("LTB2", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
-    dpgon[0] = 15.;
-    dpgon[1] = 360.;
- &nb