type xtype = enumeration(Circular_Rod, Circular_Tube, Rectangular_Bar, Rectangular_Tube, General_Section);