+ //
+ //
+
+ enum {kC=1605, kAl=1608, kFe=1609, kCu=1610, kW=1611, kPb=1612,
+ kNiCuW=1620, kVacuum=1615, kAir=1614, kConcrete=1616,
+ kPolyCH2=1617, kSteel=1609, kInsulation=1613};
+
+ Int_t *idtmed = fIdtmed->GetArray()-1599;
+
+ Float_t par[24], cpar[5], cpar0[5], pcpar[12], tpar[3], tpar0[3];
+ Float_t dz;
+
+#include "ABSOSHILConst.h"
+#include "ABSOConst.h"
+ Float_t dTube=0.1; // tube thickness
+ Float_t dInsu=0.5; // insulation thickness
+ Float_t dEnve=0.1; // protective envelope thickness
+ Float_t dFree=0.5; // clearance thickness
+
+
+// Mother volume and outer shielding: Pb