703         double fScale = aScale[k];  in lcl_LUP_decompose()  local
707             double fTmp = fScale * fabs( mA->GetDouble( k, i));  in lcl_LUP_decompose()
1961     double fScale ;  in lcl_CalculateQRdecomposition()  local
1970         fScale = lcl_GetColumnMaximumNorm(pMatA, col, col, nN);  in lcl_CalculateQRdecomposition()
1971         if (fScale == 0.0)  in lcl_CalculateQRdecomposition()
1976             pMatA->PutDouble( pMatA->GetDouble(col,row)/fScale, col, row);  in lcl_CalculateQRdecomposition()
1982         pVecR[col] = -fSignum * fScale * fEuclid;  in lcl_CalculateQRdecomposition()
2000     double fScale ;  in lcl_TCalculateQRdecomposition()  local
2009         fScale = lcl_TGetColumnMaximumNorm(pMatA, row, row, nN);  in lcl_TCalculateQRdecomposition()
2010         if (fScale == 0.0)  in lcl_TCalculateQRdecomposition()
2015             pMatA->PutDouble( pMatA->GetDouble(col,row)/fScale, col, row);  in lcl_TCalculateQRdecomposition()
2021         pVecR[row] = -fSignum * fScale * fEuclid;  in lcl_TCalculateQRdecomposition()