Commit af5294db authored by Christophe Favergeon's avatar Christophe Favergeon
Browse files

Revert some part of PR #95

Removed long doubles.
parent fca49d69
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -59,7 +59,7 @@ float64_t arm_cosine_distance_f64(const float64_t *pA,const float64_t *pB, uint3
    arm_dot_prod_f64(pA,pB,blockSize,&dot);

    tmp = sqrt(pwra * pwrb);
    return(1.0L - dot / tmp);
    return(1.0 - dot / tmp);

}

+2 −2
Original line number Diff line number Diff line
@@ -93,12 +93,12 @@ float64_t arm_householder_f64(
    beta =  alpha * alpha + x1norm2;
    beta=sqrt(beta);

    if (alpha > 0.0L)
    if (alpha > 0.0)
    {
      beta = -beta;
    }

    r = 1.0L / (alpha -beta);
    r = 1.0 / (alpha -beta);
    arm_scale_f64(pOut,r,pOut,blockSize);
    pOut[0] = 1.0;

+4 −4
Original line number Diff line number Diff line
@@ -192,12 +192,12 @@ arm_status arm_mat_cholesky_f64(
                pG[j * n + i] -= sum;
            }
            
            if (pG[i * n + i] <= 0.0L)
            if (pG[i * n + i] <= 0.0)
            {
                return(ARM_MATH_DECOMPOSITION_FAILURE);
            }
            
            invSqrtVj = 1.0L/sqrt(pG[i * n + i]);
            invSqrtVj = 1.0/sqrt(pG[i * n + i]);
            SCALE_COL_F64(pDst,i,invSqrtVj,i);
        }
        
@@ -254,12 +254,12 @@ arm_status arm_mat_cholesky_f64(
                }
            }
            
            if (pG[i * n + i] <= 0.0L)
            if (pG[i * n + i] <= 0.0)
            {
                return(ARM_MATH_DECOMPOSITION_FAILURE);
            }
            
            invSqrtVj = 1.0L/sqrt(pG[i * n + i]);
            invSqrtVj = 1.0/sqrt(pG[i * n + i]);
            SCALE_COL_F64(pDst,i,invSqrtVj,i);
            
        }
+6 −6
Original line number Diff line number Diff line
@@ -61,7 +61,7 @@ arm_status arm_mat_inverse_f64(
  uint32_t numCols = pSrc->numCols;              /* Number of Cols in the matrix  */


  float64_t pivot = 0.0L, newPivot=0.0L;                /* Temporary input values  */
  float64_t pivot = 0.0, newPivot=0.0;                /* Temporary input values  */
  uint32_t selectedRow,pivotRow,i, rowNb, rowCnt, flag = 0U, j,column;      /* loop counters */
  arm_status status;                             /* status of matrix inverse */

@@ -182,7 +182,7 @@ arm_status arm_mat_inverse_f64(

          /* Check if there is a non zero pivot element to
           * replace in the rows below */
      if ((pivot != 0.0L) && (selectedRow != column))
      if ((pivot != 0.0) && (selectedRow != column))
      {
            /* Loop over number of columns
             * to the right of the pilot element */
@@ -198,14 +198,14 @@ arm_status arm_mat_inverse_f64(


      /* Update the status if the matrix is singular */
      if ((flag != 1U) && (pivot == 0.0L))
      if ((flag != 1U) && (pivot == 0.0))
      {
        return ARM_MATH_SINGULAR;
      }

     
      /* Pivot element of the row */
      pivot = 1.0L / pivot;
      pivot = 1.0 / pivot;

      SCALE_ROW_F64(pSrc,column,pivot,pivotRow);
      SCALE_ROW_F64(pDst,0,pivot,pivotRow);
@@ -241,12 +241,12 @@ arm_status arm_mat_inverse_f64(
    /* Set status as ARM_MATH_SUCCESS */
    status = ARM_MATH_SUCCESS;

    if ((flag != 1U) && (pivot == 0.0L))
    if ((flag != 1U) && (pivot == 0.0))
    {
      pIn = pSrc->pData;
      for (i = 0; i < numRows * numCols; i++)
      {
        if (pIn[i] != 0.0L)
        if (pIn[i] != 0.0)
            break;
      }

+1 −1
Original line number Diff line number Diff line
@@ -125,7 +125,7 @@ arm_status arm_mat_ldlt_f64(

        a = pA[k*n+k];

        if (fabs(a) < 1.0e-18L)
        if (fabs(a) < 1.0e-18)
        {

            fullRank = 0;
Loading