From 8d6e8bea92662bafbf41a2ae1e707c1c95e6b0dc Mon Sep 17 00:00:00 2001
From: Robin Betz <robin@robinbetz.com>
Date: Fri, 11 Jul 2025 16:13:07 -0700
Subject: [PATCH] Fix infinite loop guessing initial coordinates

---
 src/initial.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/initial.f90 b/src/initial.f90
index d70d6c4..2f8237e 100644
--- a/src/initial.f90
+++ b/src/initial.f90
@@ -397,7 +397,7 @@ subroutine initial(n,x)
             fx = 1.d0
             ntry = 0
             overlap = .false.
-            do while(overlap .or. (fx > precision) .and. (ntry < max_guess_try))
+            do while((overlap .or. fx > precision) .and. (ntry < max_guess_try))
                overlap = .false.
                ntry = ntry + 1
                call random_number(xrnd)