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

This reverts commit 49acf17352.
This commit is contained in:
Holger Vogt 2021-02-28 07:56:56 +01:00
parent 50bfe4851c
commit a81d75914d
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)
#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)
#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;