From d171530b33021b2f3c45f824326cb6ddec73543c Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Thu, 4 Feb 2021 21:52:25 +0100
Subject: [PATCH] OpenMP to spClear to parallelize the loop. Just temporarily
 because it crahes ReleaseOmp in VS2019

---
 src/maths/sparse/spbuild.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/maths/sparse/spbuild.c b/src/maths/sparse/spbuild.c
index 0536bf624..306ad6d0b 100644
--- a/src/maths/sparse/spbuild.c
+++ b/src/maths/sparse/spbuild.c
@@ -105,6 +105,9 @@ spClear(MatrixPtr Matrix)
     /* Clear matrix. */
     if (Matrix->PreviousMatrixWasComplex || Matrix->Complex)
     {
+#ifdef USE_OMP
+#pragma omp parallel for
+#endif
 	for (I = Matrix->Size; I > 0; I--)
 	{
 	    pElement = Matrix->FirstInCol[I];
@@ -118,6 +121,9 @@ spClear(MatrixPtr Matrix)
     }
     else
     {
+#ifdef USE_OMP
+#pragma omp parallel for
+#endif
 	for (I = Matrix->Size; I > 0; I--)
 	{
 	    pElement = Matrix->FirstInCol[I];