From 5cefeb3f57888802b11399a5b6367007143d327f Mon Sep 17 00:00:00 2001
From: Jesse Sandberg <js2746@belenus.ccib.rutgers.edu>
Date: Fri, 24 Jan 2025 16:24:36 -0500
Subject: [PATCH] removed superfluous expr and double

---
 TCL/polarDensity_for_DTA.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/TCL/polarDensity_for_DTA.tcl b/TCL/polarDensity_for_DTA.tcl
index d4cfdff..df31e79 100644
--- 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} {