Revert "This version will laeds to speedup of 5 - 7% with VS2019, Windows 10."

This reverts commit 215b3c513c.
This commit is contained in:
Holger Vogt 2021-02-06 10:13:45 +01:00
parent 215b3c513c
commit 87fe83a31a
1 changed files with 5 additions and 4 deletions

View File

@ -96,6 +96,7 @@ static void ExpandTranslationArrays( MatrixPtr, int );
void
spClear(MatrixPtr Matrix)
{
ElementPtr pElement;
int I;
/* Begin `spClear'. */
@ -105,11 +106,11 @@ spClear(MatrixPtr Matrix)
if (Matrix->PreviousMatrixWasComplex || Matrix->Complex)
{
#ifdef USE_OMP
#pragma omp parallel for private(I) schedule(static, 1024)
#pragma omp parallel for private(pElement)
#endif
for (I = Matrix->Size; I > 0; I--)
{
ElementPtr pElement = Matrix->FirstInCol[I];
pElement = Matrix->FirstInCol[I];
while (pElement != NULL)
{
pElement->Real = 0.0;
@ -121,11 +122,11 @@ spClear(MatrixPtr Matrix)
else
{
#ifdef USE_OMP
#pragma omp parallel for private(I) schedule(static, 1024)
#pragma omp parallel for private(pElement)
#endif
for (I = Matrix->Size; I > 0; I--)
{
ElementPtr pElement = Matrix->FirstInCol[I];
pElement = Matrix->FirstInCol[I];
while (pElement != NULL)
{
pElement->Real = 0.0;