From b67327ff793527787c354d4313526f42f06f16c0 Mon Sep 17 00:00:00 2001 From: David Minton Date: Wed, 12 May 2021 09:51:18 -0400 Subject: [PATCH] Switched to regular do loop because it needs to be run in order --- src/symba/symba_frag_pos.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index aeee18604..0774d3f74 100644 --- 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