702         double fScale = aScale[k];  in lcl_LUP_decompose()  local
706             double fTmp = fScale * fabs( mA->GetDouble( k, i));  in lcl_LUP_decompose()
1960     double fScale ;  in lcl_CalculateQRdecomposition()  local
1969         fScale = lcl_GetColumnMaximumNorm(pMatA, col, col, nN);  in lcl_CalculateQRdecomposition()
1970         if (fScale == 0.0)  in lcl_CalculateQRdecomposition()
1975             pMatA->PutDouble( pMatA->GetDouble(col,row)/fScale, col, row);  in lcl_CalculateQRdecomposition()
1981         pVecR[col] = -fSignum * fScale * fEuclid;  in lcl_CalculateQRdecomposition()
1999     double fScale ;  in lcl_TCalculateQRdecomposition()  local
2008         fScale = lcl_TGetColumnMaximumNorm(pMatA, row, row, nN);  in lcl_TCalculateQRdecomposition()
2009         if (fScale == 0.0)  in lcl_TCalculateQRdecomposition()
2014             pMatA->PutDouble( pMatA->GetDouble(col,row)/fScale, col, row);  in lcl_TCalculateQRdecomposition()
2020         pVecR[row] = -fSignum * fScale * fEuclid;  in lcl_TCalculateQRdecomposition()