+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - COPPER PART
+ // LOWER PART
+
+ dgh[0] = (xltpc-100.7)/2.;
+ dgh[1] = 45.2;
+ dgh[2] = 45.2+1.0;
+ dgh[3] = 61.8;
+ dgh[4] = 61.8+1.0;
+ dgh[5] = 192.;
+ dgh[6] = 348.;
+ gMC->Gsvolu("ICU2", "CONS", idtmed[279], dgh, 7);
+ gMC->Gspos("ICU2", 1, "ITSV", 0., 0., 100.7+dgh[0], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - CARBON PART
+ // UPPER PART
+
+ dgh[0] = (xltpc-100.7)/2.;
+ dgh[1] = 45.2+1.0;
+ dgh[2] = 45.2+1.0+1.5;
+ dgh[3] = 61.8+1.0;
+ dgh[4] = 61.8+1.0+1.5;
+ dgh[5] = 12.;
+ dgh[6] = 168.;
+ gMC->Gsvolu("ICC1", "CONS", idtmed[274], dgh, 7);
+ gMC->Gspos("ICC1", 1, "ITSV", 0., 0., 100.7+dgh[0], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - CARBON PART
+ // LOWER PART
+
+ dgh[0] = (xltpc-100.7)/2.;
+ dgh[1] = 45.2+1.0;
+ dgh[2] = 45.2+1.0+1.5;
+ dgh[3] = 61.8+1.0;
+ dgh[4] = 61.8+1.0+1.5;
+ dgh[5] = 192.;
+ dgh[6] = 348.;
+ gMC->Gsvolu("ICC2", "CONS", idtmed[274], dgh, 7);
+ gMC->Gspos("ICC2", 1, "ITSV", 0., 0., 100.7+dgh[0], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - COPPER PART
+ // UPPER PART
+
+ dgh[0] = 62.5;
+ dgh[1] = 74.5;
+ dgh[2] = 0.5;
+ dgh[3] = 12.;
+ dgh[4] = 168.;
+ gMC->Gsvolu("ICU3", "TUBS", idtmed[279], dgh, 5);
+ gMC->Gspos("ICU3", 1, "ITSV", 0., 0., xltpc+1.5+dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - COPPER PART
+ // LOWER PART
+
+ dgh[0] = 62.5;
+ dgh[1] = 74.5;
+ dgh[2] = 0.5;
+ dgh[3] = 192.;
+ dgh[4] = 348.;
+ gMC->Gsvolu("ICU4", "TUBS", idtmed[279], dgh, 5);
+ gMC->Gspos("ICU4", 1, "ITSV", 0., 0., xltpc+1.5+dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - CARBON PART
+ // UPPER PART
+
+ dgh[0] = 62.5;
+ dgh[1] = 74.5;
+ dgh[2] = 0.75;
+ dgh[3] = 12.;
+ dgh[4] = 168.;
+ gMC->Gsvolu("ICC3", "TUBS", idtmed[274], dgh, 5);
+ gMC->Gspos("ICC3", 1, "ITSV", 0., 0., xltpc+dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - CARBON PART
+ // LOWER PART
+
+ dgh[0] = 62.5;
+ dgh[1] = 74.5;
+ dgh[2] = 0.75;
+ dgh[3] = 192.;
+ dgh[4] = 348.;
+ gMC->Gsvolu("ICC4", "TUBS", idtmed[274], dgh, 5);
+ gMC->Gspos("ICC4", 1, "ITSV", 0., 0., xltpc+dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
+ // THE ABSORBER - COPPER PART - UPPER PART
+
+ dgh[0] = 45.;
+ dgh[1] = 45.+1.0;
+ dgh[2] = (xltpc-100.7+1.5)/2.;
+ dgh[3] = 12.;
+ dgh[4] = 168.;
+ gMC->Gsvolu("ICU5", "TUBS", idtmed[279], dgh, 5);
+ gMC->Gspos("ICU5", 1, "ITSV", 0., 0., -100.7-dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
+ // THE ABSORBER - COPPER PART - LOWER PART