+ gMC->Gsvolu("IPA2", "TUBS", idtmed[285], dgh, 5);
+ gMC->Gspos("IPA2", 1, "ITSV", 0., 0., 95.25, 0, "ONLY");
+ gMC->Gspos("IPA2", 2, "ITSV", 0., 0., -95.25, idrotm[200], "ONLY");
+
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - COPPER PART
+ // UPPER PART
+
+ dgh[0] = (ztpc-97.5)/2.;
+ dgh[1] = 46.2;
+ dgh[2] = 46.2+1.0;
+ dgh[3] = 62.3;
+ dgh[4] = 62.3+1.0;
+ dgh[5] = 12.;
+ dgh[6] = 168.;
+ if (suppmat == 0) {
+ gMC->Gsvolu("ICU1", "CONS", idtmed[279], dgh, 7); // copper
+ } else if (suppmat == 1) {
+ gMC->Gsvolu("ICU1", "CONS", idtmed[285], dgh, 7); // aluminum
+ } else {
+ gMC->Gsvolu("ICU1", "CONS", idtmed[274], dgh, 7); // carbon
+ }
+ gMC->Gspos("ICU1", 1, "ITSV", 0., 0., 97.5+dgh[0], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - COPPER PART
+ // LOWER PART
+
+ dgh[0] = (ztpc-97.5)/2.;
+ dgh[1] = 46.2;
+ dgh[2] = 46.2+1.0;
+ dgh[3] = 62.3;
+ dgh[4] = 62.3+1.0;
+ dgh[5] = 192.;
+ dgh[6] = 348.;
+ if (suppmat == 0) {
+ gMC->Gsvolu("ICU2", "CONS", idtmed[279], dgh, 7); // copper
+ } else if (suppmat == 1) {
+ gMC->Gsvolu("ICU2", "CONS", idtmed[285], dgh, 7); // aluminum
+ } else {
+ gMC->Gsvolu("ICU2", "CONS", idtmed[274], dgh, 7); // carbon
+ }
+ gMC->Gspos("ICU2", 1, "ITSV", 0., 0., 97.5+dgh[0], 0, "ONLY");
+
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - CARBON PART
+ // UPPER PART
+
+ dgh[0] = (ztpc-97.5)/2.;
+ dgh[1] = 46.2+1.0;
+ dgh[2] = 46.2+1.0+1.5;
+ dgh[3] = 62.3+1.0;
+ dgh[4] = 62.3+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., 97.5+dgh[0], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - CARBON PART
+ // LOWER PART
+
+ dgh[0] = (ztpc-97.5)/2.;
+ dgh[1] = 46.2+1.0;
+ dgh[2] = 46.2+1.0+1.5;
+ dgh[3] = 62.3+1.0;
+ dgh[4] = 62.3+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., 97.5+dgh[0], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - COPPER PART
+ // UPPER PART
+
+ dgh[0] = 62.1;
+ dgh[1] = 74.5;
+ dgh[2] = 0.5;
+ dgh[3] = 12.;
+ dgh[4] = 168.;
+ if (suppmat == 0) {
+ gMC->Gsvolu("ICU3", "TUBS", idtmed[279], dgh, 5); // copper
+ } else if (suppmat == 1) {
+ gMC->Gsvolu("ICU3", "TUBS", idtmed[285], dgh, 5); // aluminum
+ } else {
+ gMC->Gsvolu("ICU3", "TUBS", idtmed[274], dgh, 5); // carbon
+ }
+ gMC->Gspos("ICU3", 1, "ITSV", 0., 0., ztpc+1.5+dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - COPPER PART
+ // LOWER PART
+
+ dgh[0] = 62.1;
+ dgh[1] = 74.5;
+ dgh[2] = 0.5;
+ dgh[3] = 192.;
+ dgh[4] = 348.;
+ if (suppmat == 0) {
+ gMC->Gsvolu("ICU4", "TUBS", idtmed[279], dgh, 5); // copper
+ } else if (suppmat == 1) {
+ gMC->Gsvolu("ICU4", "TUBS", idtmed[285], dgh, 5); // aluminum
+ } else {
+ gMC->Gsvolu("ICU4", "TUBS", idtmed[274], dgh, 5); // carbon
+ }
+ gMC->Gspos("ICU4", 1, "ITSV", 0., 0., ztpc+1.5+dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - CARBON PART
+ // UPPER PART
+
+ dgh[0] = 62.1;
+ 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., ztpc+dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - CARBON PART
+ // LOWER PART
+
+ dgh[0] = 62.1;
+ 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., ztpc+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] = 46.;
+ dgh[1] = 46.+1.0;
+ dgh[2] = (ztpc-97.5+1.5)/2.;
+ dgh[3] = 12.;
+ dgh[4] = 168.;
+ if (suppmat == 0) {
+ gMC->Gsvolu("ICU5", "TUBS", idtmed[279], dgh, 5); // copper
+ } else if (suppmat == 1) {
+ gMC->Gsvolu("ICU5", "TUBS", idtmed[285], dgh, 5); // aluminum
+ } else {
+ gMC->Gsvolu("ICU5", "TUBS", idtmed[274], dgh, 5); // carbon
+ }
+ gMC->Gspos("ICU5", 1, "ITSV", 0., 0., -97.5-dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
+ // THE ABSORBER - COPPER PART - LOWER PART
+
+ dgh[0] = 46.;
+ dgh[1] = 46.+1.0;
+ dgh[2] = (ztpc-97.5+1.5)/2.;
+ dgh[3] = 192.;
+ dgh[4] = 348.;
+ if (suppmat == 0) {
+ gMC->Gsvolu("ICU6", "TUBS", idtmed[279], dgh, 5); // copper
+ } else if (suppmat == 1) {
+ gMC->Gsvolu("ICU6", "TUBS", idtmed[285], dgh, 5); // aluminum
+ } else {
+ gMC->Gsvolu("ICU6", "TUBS", idtmed[274], dgh, 5); // carbon
+ }
+ gMC->Gspos("ICU6", 1, "ITSV", 0., 0., -97.5-dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
+ // THE ABSORBER - CARBON PART - UPPER PART
+
+ dgh[0] = 46.+1.0;
+ dgh[1] = 46.+1.0+1.5;
+ dgh[2] = (ztpc-97.5)/2.;
+ dgh[3] = 12.;
+ dgh[4] = 168.;
+ gMC->Gsvolu("ICC5", "TUBS", idtmed[274], dgh, 5);
+ gMC->Gspos("ICC5", 1, "ITSV", 0., 0., -97.5-dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
+ // THE ABSORBER - CARBON PART - LOWER PART
+
+ dgh[0] = 46.+1.0;
+ dgh[1] = 46.+1.0+1.5;
+ dgh[2] = (ztpc-97.5)/2.;
+ dgh[3] = 192.;
+ dgh[4] = 348.;
+ gMC->Gsvolu("ICC6", "TUBS", idtmed[274], dgh, 5);
+ gMC->Gspos("ICC6", 1, "ITSV", 0., 0., -97.5-dgh[2], 0, "ONLY");
+
+ // --- DEFINE CABLES/COOLING BEHIND THE TPC ON OTHER SIDE W.R.T. THE ABSORBER
+ // COPPER PART - UPPER PART
+
+ dgh[0] = 46.;
+ dgh[1] = 74.5;
+ dgh[2] = 0.5;
+ dgh[3] = 12.;
+ dgh[4] = 168.;
+ if (suppmat == 0) {
+ gMC->Gsvolu("ICU7", "TUBS", idtmed[279], dgh, 5); // copper
+ } else if (suppmat == 1) {
+ gMC->Gsvolu("ICU7", "TUBS", idtmed[285], dgh, 5); // aluminum
+ } else {
+ gMC->Gsvolu("ICU7", "TUBS", idtmed[274], dgh, 5); // carbon
+ }
+ gMC->Gspos("ICU7", 1, "ITSV", 0., 0., -(ztpc+1.5+dgh[2]), 0, "ONLY");