From e58b7aabc7cc7d6d69500100c8578531252f4771 Mon Sep 17 00:00:00 2001 From: cianciosa Date: Fri, 31 May 2024 12:26:06 -0400 Subject: [PATCH] Fix OpenMP error. Variable marked private did not exist. --- src/korc_random.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/korc_random.f90 b/src/korc_random.f90 index 4a5fba20..efb9106f 100755 --- a/src/korc_random.f90 +++ b/src/korc_random.f90 @@ -220,7 +220,7 @@ SUBROUTINE random_U_context_destruct(this) ! Start of executable code IF (ASSOCIATED(this%states)) THEN -!$OMP PARALLEL DEFAULT(SHARED) PRIVATE(thread_num) +!$OMP PARALLEL DEFAULT(SHARED) CALL random_destroy_U(this%states(get_thread_number())) !$OMP END PARALLEL DEALLOCATE(this%states) @@ -237,7 +237,7 @@ SUBROUTINE random_N_context_destruct(this) ! Start of executable code IF (ASSOCIATED(this%states)) THEN -!$OMP PARALLEL DEFAULT(SHARED) PRIVATE(thread_num) +!$OMP PARALLEL DEFAULT(SHARED) CALL random_destroy_N(this%states(get_thread_number())) !$OMP END PARALLEL DEALLOCATE(this%states)