removed superfluous expr and double

BranniganLab · Jan 24, 2025 · 5cefeb3 · 5cefeb3
1 parent 8e99ee0
commit 5cefeb3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/TCL/polarDensity_for_DTA.tcl b/TCL/polarDensity_for_DTA.tcl
@@ -398,7 +398,7 @@ proc clean_leaflet_assignments {species lipidbeads_selstr} {
 #Return 0 if not evenly divisible.
 proc test_if_evenly_divisible {dividend divisor} {
     set TOLERANCE [expr 10.0**-12]
-    set float_quotient [expr [expr double($dividend)] / [expr double($divisor)]]
+    set float_quotient [expr $dividend / double($divisor)]
     set int_quotient [expr int($float_quotient)]
     set diff [expr $float_quotient - $int_quotient]
     if {$diff <= $TOLERANCE} {