Fix OpenMP error. Variable marked private did not exist.

ORNL-Fusion · May 31, 2024 · e58b7aa · e58b7aa
1 parent 5377034
commit e58b7aa
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)