From d39af9712973c0ee0db6db2b056032e85ab7de6b Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Tue, 11 May 2021 17:14:54 -0400
Subject: [PATCH] Got rid of troubleshooting write statement

---
 src/symba/symba_frag_pos.f90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
index 6a913be49..f3bf988ac 100644
--- a/src/symba/symba_frag_pos.f90
+++ b/src/symba/symba_frag_pos.f90
@@ -559,7 +559,6 @@ function  ge_wpp(a, b) result(u) ! gaussian eliminate with partial pivoting
       n = size(a, 1)
       allocate(u(n, (n + 1)))
       u = reshape([a, b], [n, n + 1])
-      write(*,*) 'u = ',u
       do j = 1, n
          p = maxloc(abs(u(j:n, j)), 1) + j - 1 ! maxloc returns indices between (1, n - j + 1)
          if (p /= j) u([p, j], j) = u([j, p], j)