\START MOTHERS_RCP
\SIZE 532 71
!----------------------------------------------------------------------
! Name: MOTHERS.RCP
! Package:
! Library:
! Purpose: SETUP MOTHER VOLUMES
! Version
! Created: 24-APR-1998 Rajendran Raja
!----------------------------------------------------------------------
\ARRAY ROTATION_MATRICES
! 20 180.0000 0.0000 90.0000 90.0000 90.0000 0.0000
! 21 180.0000 0.0000 90.0000 90.0000 90.0000 0.0000
 22 45.0000 180.0000 90.0000 90.0000 135.0000 180.0000
 23 135.0000 180.0000 90.0000 90.0000 135.0000 0.0000
 24 90.0000 0.0000 0.0000 0.0000 90.0000 270.0000
 25 90.0000 180.0000 90.0000 90.0000 180.0000 0.0000
 26 0.0000 0.0000 90.0000 90.0000 90.0000 180.0000
 27 180.0000 0.0000 90.0000 90.0000 90.0000 0.0000 
 28 0.0000 0.0000 90.0000 90.0000 90.0000 180.0000 
 29 0.0000 0.0000 90.0000 90.0000 90.0000 180.0000 
 30 0.0000 0.0000 90.0000 90.0000 90.0000 180.0000 
! 31 90.0000 0.0000 180.0000 0.0000 90.0000 270.0000 
 31 90.0000 90.0000 180.0000 0.0000 90.0000 180.0000 
\END
\ARRAY MATERIAL_LIST
!
!----------------------------------------------------------------------
! ADD NEW MATERIALS HERE. CALL TO GSMATE
! FORMAT
!CHNAME = 'MATERIAL NAME',
!IMATE = MATERIAL NUMBER
!  A = ATOMIC WT
! Z = ATOMIC NUMBER
! DENS = DENSITY
! RADL = RADIATION LENGTH
! ABSL = ABSORPTION LENGTH (IGNORED BY GEANT)
! NWBUF = NUMBER OF EXTRA USER WORDS
! UWBUF = NWBUF EXTRA USER WORDS
!----------------------------------------------------------------------
!
! CHNAME IMATE A Z DENS RADL ABSL NWBUF UWBUF
!
'Hydrogen' 1 1.008 1.000 0.7080E-01 0.8650E+03 0.7900E+03 0
'Deuterium' 2 2.010 1.000 0.1620E+00 0.7570E+03 0.3420E+03  0
'Helium' 3 4.000 2.000 0.1250E+00 0.7550E+03 0.4780E+03 0
'Lithium' 4 6.940 3.000 0.5340E+00 0.1550E+03 0.1206E+03 0
'Beryllium' 5 9.010 4.000 0.1848E+01 0.3530E+02 0.3670E+02 0
'Carbon' 6 12.010 6.000 0.2265E+01 0.1880E+02 0.4990E+02 0
'Liq. Nitrogen' 7 14.010 7.000 0.8080E+00 0.4450E+02 0.9940E+02 0
'Liq. Neon' 8 20.180 10.000 0.1207E+01 0.2400E+02 0.7490E+02 0
'Aluminium' 9 26.980 13.000 0.2700E+01 0.8900E+01 0.3720E+02 0
'Lead' 13 207.190 82.000 0.1135E+02 0.5600E+00 0.1850E+02 0
'Iron' 14 55.850 26.000 0.7870e+01 0.1760e+01 0.1675e+02 0
'Air' 15 14.610 7.300 0.1205e-02 0.3042e+05 0.6977e+05 0
'Vacuum' 16 0.000 0.000 0.1000e-15 0.1000e+17 0.1000e+17 0
'Liq. Oxygen' 17 16.000 8.000 0.1141E+01 0.3000E+02 0.0000E+00 0
'Copper' 18 63.540 29.000 0.8960e+01 0.1430e+01 0.1480e+02 0
'Liq.Argon' 19 39.950 18.000 0.1400E+01 0.1400E+02 0.8370E+02 0
\END
 
\ARRAY MIXTURE_LIST
!----------------------------------------------------------------------
! MIXTURE DEFINITIONS . CALL TO GSMIXT
! FORMAT IS AS FOLLOWS.
! MIXTURE NAME (CAN BE UP TO 32 CHARS), MIXTURE NUMBER (OBSERVE CONVENTION HERE)
! NUMBER OF MATERIALS IN MIXTURE (NLMAT),
! NLMAT MATERIAL NUMBERS,
! WMAT(NLMAT) WEIGHTS.
! IF NLMAT>0, WMAT CONTAINS Weights OF MATERIALS IN PROPORTION.
! Density is the last word.
! IF NLMAT<0, WMAT CONTAINS PROPORTION BY ATOMS OF MATERIALS IN MIXTURE
! followed by density of mixture.
!----------------------------------------------------------------------
'Scintillator' 23 -2 6 1 1.00 1.10 0.103E+01
'Scintillator' 24 2 6 1 0.084 0.916 0.103e+01
'Plex ' 22 3 6 1 17 0.340 0.530 0.130 0.118E+01
'Liq.Hydrogen' 25 1 1 1.0 0.0708
!
\END
\ARRAY MEDIA_LIST
!THE FORMAT OF THIS IS AS FOLLOWS
! Media name, media number, material number,
! ISVOL IFIELD FIELDM TMAXFD STEMAX DEEMAX EPSIL STMIN
! THE REMAINING PARAMETERS ARE THE ARGUMENTS TO THE CALL TO GSTMED
! ISVOL 1 !1= sensitive volume. 0=not sensitive
! IFIELD 3 !0=no field
 !1=tracking with Runge Kutta
! !2=inhomegeneous magnetic field. Field map from GUFLD
 !3=Uniform magnetic field along z axis of strength FIELDM
! FIELDM 60.0000 !Maximum field value in Kilo Gauss
! TMAXFD 2.0000 !Maximum angle due to field in degrees.
! STEMAX 0.2000 !Maximum displacement in one step for mult. scat
! DEEMAX 0.1000 !Maximum fractional energy loss per step
! EPSIL 1.0000E-01 !Tracking precision (cm)
! STMIN 1.0000E-01 !Minimum step due to energy loss or mult. scat.(cm)
! NU !NUMBER OF USER WORDS
! W(1:NU) !USER WORDS
!----------------------------------------------------------------------
! MEDIA DEFINITION. CALL TO GSTMED
!----------------------------------------------------------------------
 
! MEDNAME IMED IMAT ISVL IFLD FIELDM TMAXFD STEMAX DEEMAX EPSIL STMIN NU W
'AIR' 1 15 0 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0
'LEAD' 2 13 1 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0
'SCINTILLATOR' 3 24 1 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0
'LEADD' 4 13 1 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0
'SCINTI' 5 17 1 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0
'IRON' 6 14 1 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0
'COPPER ' 7 18 1 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0
'ARGON ' 8 19 1 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0
'PLEX ' 9 22 1 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0
'Liq.HYDROGEN' 13 25 1 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0 
'VACUUM0'  14 16 0 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0 
'VACUUMM' 15 16 1 1 50.00 10.00 0.20 0.10 0.50E-02 0.10E+00 0 
\END
!----------------------------------------------------------------------
! DEFINE GEOMETRY
!----------------------------------------------------------------------
\ARRAY VOLUME_LIST
 'ARTE' 
\END
!----------------------------------------------------------------------
! TRACKING MEDIA NUMBERS
!----------------------------------------------------------------------
 vac0 14 
!----------------------------------------------------------------------
! VOLUME DEFINTIONS
!----------------------------------------------------------------------
\ARRAY ACT_ARTE
 'VOLU' 'BOX ' 'vac0' 3 0.7500E+03 0.7500E+03 0.7500E+03 
\END
!
!----------------------------------------------------------------------
! Detector definition
!----------------------------------------------------------------------
\ARRAY DETECTOR_LIST
! 'DET_DEAD_MAT' !DEAD MATERIALS
\END
\STOP