Switched to regular do loop because it needs to be run in order

MintonGroup · May 12, 2021 · b67327f · b67327f
1 parent e4a00e5
commit b67327f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
@@ -527,8 +527,8 @@ function solve_wbs(u) result(x) ! solve with backward substitution
 
       n = size(u,1)
       allocate(x(n))
-      do concurrent(i = n:1:-1) 
-         x(i) = (u(i, n + 1) - sum(u(i, i + 1:n) * x (i + 1:n))) / u(i, i)
+      do i = n,1,-1 
+         x(i) = (u(i, n + 1) - sum(u(i, i + 1:n) * x(i + 1:n))) / u(i, i)
       end do
       return
     end function solve_wbs