fix

Author: farrufat-cimne

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

@@ -467,7 +467,7 @@ proc DEM::write::writeMaterialsParts { } {
                 if {$prop eq "ConstitutiveLaw"} {
                     write::WriteString "    DEM_CONTINUUM_CONSTITUTIVE_LAW_NAME $val"
                 } elseif {$prop eq "FRICTION"} {
-                    set pi 3.1415926535897931
+                    set pi $MathUtils::PI
                     set propvalue [expr {tan($val*$pi/180.0)}]
                     write::WriteString "    FRICTION $propvalue"
                 } else {

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

@@ -47,7 +47,7 @@ proc DEM::write::WriteWallProperties { } {
 	#}
 
     set friction_value [write::getValueByNode [$group selectNodes "./value\[@n='friction_angle'\]"]]
-    set pi 3.1415926535897931
+    set pi $MathUtils::PI
     set propvalue [expr {tan($friction_value*$pi/180.0)}]
 	write::WriteString "  FRICTION $propvalue"
 	#write::WriteString "  FRICTION [write::getValueByNode [$group selectNodes "./value\[@n='friction_coeff'\]"]]"

kratos.gid/apps/DEM/write/writeMDPA_Parts.tcl

@@ -366,7 +366,7 @@ proc DEM::write::writeMaterialsParts { } {
                 if {$prop eq "ConstitutiveLaw"} {
                     write::WriteString "    DEM_DISCONTINUUM_CONSTITUTIVE_LAW_NAME $val"
                 } elseif {$prop eq "FRICTION"} {
-                    set pi 3.1415926535897931
+                    set pi $MathUtils::PI
                     set propvalue [expr {tan($val*$pi/180.0)}]
                     write::WriteString "    FRICTION $propvalue"
                 } else {