+++ /dev/null
-*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
+++ /dev/null
-/**************************************************************************
- * 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);
- }
-}
+++ /dev/null
-#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
+++ /dev/null
-/**************************************************************************
- * 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.;
- dpgon[2] = 12.;
- dpgon[3] = 2.;
- dpgon[4] = -29.149999999999999 - dpcb[2] * 2. + 10.5;
-// end-ladder electronics
- dpgon[5] = 12.;
- dpgon[6] = 13.5;
- dpgon[7] = -22.93 - dpcb[2] * 2. + 10.5;
-// end-ladder electro
- dpgon[8] = 12.;
- dpgon[9] = 13.5;
- xpos = 0.;
- ypos = 0.;
- zpos = 0.;
- geant->Gsvolu("LP03", "PGON", idtmed[274], dpgon, 10);
- geant->Gspos("LP03", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
- dpgon[0] = 7.5;
- dpgon[1] = 360.;
- dpgon[2] = 24.;
- dpgon[3] = 2.;
- dpgon[4] = -37.149999999999999 - dpcb[2] * 2. + 10.5;
-// end-ladd
- dpgon[5] = 21.;
- dpgon[6] = 23.;
- dpgon[7] = -35.649999999999999 - dpcb[2] * 2. + 10.5;
-// end-ladder
- dpgon[8] = 21.;
- dpgon[9] = 23.;
- xpos = 0.;
- ypos = 0.;
- zpos = 0.;
- geant->Gsvolu("LP04", "PGON", idtmed[274], dpgon, 10);
- geant->Gspos("LP04", 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] = -52.350000000000001 - dpcb[2] * 2. + 10.5;
-// end-ladd
- dpgon[5] = 37.7;
- dpgon[6] = 40.;
- dpgon[7] = -53.850000000000001 - dpcb[2] * 2. + 10.5;
-// end-l
- dpgon[8] = 37.7;
- dpgon[9] = 40.;
- xpos = 0.;
- ypos = 0.;
- zpos = 0.;
- geant->Gsvolu("LP05", "PGON", idtmed[274], dpgon, 10);
- geant->Gspos("LP05", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
- dpgon[0] = offset2 + 4.615384615384615;
- dpgon[1] = 360.;
- dpgon[2] = 39.;
- dpgon[3] = 2.;
- dpgon[4] = -57.350000000000001 - dpcb[2] * 2. + 10.5;
-// end-ladde
- dpgon[5] = 42.7;
- dpgon[6] = 45.;
- dpgon[7] = -58.850000000000001 - dpcb[2] * 2. + 10.5;
-// end-l
- dpgon[8] = 42.7;
- dpgon[9] = 45.;
- xpos = 0.;
- ypos = 0.;
- zpos = 0.;
- geant->Gsvolu("LP06", "PGON", idtmed[274], dpgon, 10);
- geant->Gspos("LP06", 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] = 3.4 / TMath::Tan(.78539816339744828) - 52.35 - dpcb[2] * 2. + 10.5;
-// end-ladder electronics
- dpgon[5] = 34.3;
- dpgon[6] = 36.6;
- dpgon[7] = 3.4 / TMath::Tan(.78539816339744828) - 53.85 - dpcb[2] * 2. + 10.5;
-// end-ladder electr
- dpgon[8] = 34.3;
- dpgon[9] = 36.6;
- xpos = 0.;
- ypos = 0.;
- zpos = 0.;
- geant->Gsvolu("LP05", "PGON", idtmed[274], dpgon, 10);
- geant->Gspos("LP05", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
-
- dpgon[0] = offset2 + 5.;
- dpgon[1] = 360.;
- dpgon[2] = 36.;
- dpgon[3] = 2.;
- dpgon[4] = 3.8 / TMath::Tan(.78539816339744828) - 57.35 - dpcb[2] * 2. + 10.5;
-// end-ladder electronics
- dpgon[5] = 38.9;
- dpgon[6] = 41.2;
- dpgon[7] = 3.8 / TMath::Tan(.78539816339744828) - 58.85 - dpcb[2] * 2. + 10.5;
-// end-ladder electr
- dpgon[8] = 38.9;
- dpgon[9] = 41.2;
- xpos = 0.;
- ypos = 0.;
- zpos = 0.;
- geant->Gsvolu("LP06", "PGON", idtmed[274], dpgon, 10);
- geant->Gspos("LP06", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY");
- }
-
-// 9456 CONTINUE
-
-
-// --- Outputs the geometry tree in the EUCLID/CAD format
-
- if (fEuclidOut) {
- geant->WriteEuclid("ITSgeometry", "ITSV", 1, 5);
- }
-#endif
-// --- Outputs the geometry tree in the EUCLID/CAD format
-
- if (fEuclidOut) {
- gMC->WriteEuclid("ITSgeometry", "ITSV", 1, 5);
- }
-}
-
-//_____________________________________________________________________________
-void AliITSv4::CreateMaterials()
-{
- //
- // Create Materials for ITS
- //
- AliITS::CreateMaterials();
-}
-
-//_____________________________________________________________________________
-void AliITSv4::Init()
-{
- //
- // Initialise ITS after it has been created
- //
- fIdSens1=gMC->VolId("ITS1");
- fIdSens2=gMC->VolId("ITS2");
- fIdSens3=gMC->VolId("ITS3");
- fIdSens4=gMC->VolId("ITS4");
- fIdSens5=gMC->VolId("ITS5");
- fIdSens6=gMC->VolId("ITS6");
-}
-
-//_____________________________________________________________________________
-void AliITSv4::StepManager()
-{
- //
- // Called at every step in the ITS
- //
- Int_t copy, id;
- Float_t hits[7];
- Int_t vol[3];
- Float_t position[3];
- Float_t momentum[4];
- TClonesArray &lhits = *fHits;
- //
- if(gMC->TrackCharge() && gMC->Edep()) {
- //
- // Only entering charged tracks
- if((id=gMC->CurrentVol(0,copy))==fIdSens1) {
- vol[0]=1;
- id=gMC->CurrentVolOff(1,0,copy);
- vol[1]=copy;
- id=gMC->CurrentVolOff(2,0,copy);
- vol[2]=copy;
- } else if(id==fIdSens2) {
- vol[0]=2;
- id=gMC->CurrentVolOff(1,0,copy);
- vol[1]=copy;
- id=gMC->CurrentVolOff(2,0,copy);
- vol[2]=copy;
- } else if(id==fIdSens3) {
- vol[0]=3;
- vol[1]=copy;
- id=gMC->CurrentVolOff(1,0,copy);
- vol[2]=copy;
- } else if(id==fIdSens4) {
- vol[0]=4;
- vol[1]=copy;
- id=gMC->CurrentVolOff(1,0,copy);
- vol[2]=copy;
- } else if(id==fIdSens5) {
- vol[0]=5;
- vol[1]=copy;
- id=gMC->CurrentVolOff(1,0,copy);
- vol[2]=copy;
- } else if(id==fIdSens6) {
- vol[0]=6;
- vol[1]=copy;
- id=gMC->CurrentVolOff(1,0,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);
- }
-}
+++ /dev/null
-#ifndef ITSv4_H
-#define ITSv4_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 4 //
-/////////////////////////////////////////////////////////
-
-#include "AliITS.h"
-
-class AliITSv4 : public AliITS {
-
-protected:
- Int_t fMinorVersion; //Minor version identifier
-
-public:
- AliITSv4();
- AliITSv4(const char *name, const char *title);
- virtual ~AliITSv4() {}
- virtual void CreateGeometry();
- virtual void CreateMaterials();
- virtual void Init();
- virtual Int_t IsVersion() const {return 4;}
- virtual void SetMinorVersion(Int_t version) {fMinorVersion=version;}
- virtual void StepManager();
-
- ClassDef(AliITSv4,1) //Hits manager for set:ITS version 4
-};
-
-#endif