1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
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)
|
