Failure criterion state printed

Author: Miguel Angel

kratos.gid/apps/CDEM/write/writeProjectParameters.tcl

@@ -127,6 +127,7 @@ proc CDEM::write::getParametersDict { } {
     dict set project_parameters_dict "OutputTimeStep"                   $output_timestep
     dict set project_parameters_dict "PostBoundingBox"                  [write::getValue Boundingbox PostBB]
     dict set project_parameters_dict "PostLocalContactForce"            [write::getValue BondElem LocalContactForce]
+    dict set project_parameters_dict "PostContactFailureId"             [write::getValue BondElem TypeOfFailure]
     dict set project_parameters_dict "PostDisplacement"                 [write::getValue PostPrint Displacement]
     dict set project_parameters_dict "PostRadius"                       [write::getValue PostPrint Radius]
     dict set project_parameters_dict "PostVelocity"                     [write::getValue PostPrint PostVel]

kratos.gid/apps/DEM/xml/Results.spd

@@ -38,8 +38,9 @@
     </container>
 
     <container n="BondElem" pn="On bond results" un="BondElem" help="Results on bond elements" open_window="1" icon="options">
-        <value n="ContactMeshOption"        type="bool" values="true,false"     v="false"           pn="Contact mesh"        icon="black1" help="Calculate and show the bonds between particles"/>
+        <value n="ContactMeshOption"        type="bool" values="true,false"     v="false"           pn="Show bonds"        icon="black1" help="Calculate and show the bonds between particles"/>
         <value n="LocalContactForce"        type="bool" values="true,false"     v="false"           pn="Local contact force" icon="black1" state="[getStateFromXPathValue {string(../value[@n='ContactMeshOption']/@v)} true]" help="Displays the local contact forces between particles"/>
+        <value n="TypeOfFailure" type="bool" values="true,false" v="false" pn="Type of failure" icon="black1" state="[getStateFromXPathValue {string(../value[@n='ContactMeshOption']/@v)} true]" help="Displays different numbers for different types of failure. 2: tension. 4: shear or combination of stresses. 6: neighbour not found by search. 8: less bonds than minimum"/>
     </container>
 
     <container n="PrintGraphs" pn="Graphs on DEM-Wall" un="DGraphs" open="1" icon="options">