Got rid of troubleshooting write statement

MintonGroup · May 11, 2021 · d39af97 · d39af97
1 parent 90206ba
commit d39af97
Showing 1 changed file with 0 additions and 1 deletion.
diff --git 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)