Fixing the return type for _mpfr_vec_scalar_product

Author: SPancratz

mpfr_vec.h

@@ -43,7 +43,7 @@ void _mpfr_vec_scalar_mul_2exp(mpfr * res, mpfr * vec, long length, mp_bitcnt_t
 
 void _mpfr_vec_scalar_mul_mpfr(mpfr * res, mpfr * vec, long length, mpfr_t c);
 
-void * _mpfr_vec_scalar_product(mpfr_t res, __mpfr_struct * vec1, 
+void _mpfr_vec_scalar_product(mpfr_t res, __mpfr_struct * vec1, 
 								    __mpfr_struct * vec2, long length);
 
 #endif

mpfr_vec/scalar_product.c

@@ -1,4 +1,4 @@
-/*============================================================================
+/*=============================================================================
 
     This file is part of FLINT.
 
@@ -16,32 +16,31 @@
     along with FLINT; if not, write to the Free Software
     Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
 
-===============================================================================*/
-/****************************************************************************
+=============================================================================*/
+/******************************************************************************
 
-   Copyright (C) 2010 William Hart
-   
-*****************************************************************************/
+    Copyright (C) 2010 William Hart
+
+******************************************************************************/
 
 #include <stdlib.h>
 #include <mpir.h>
 #include <mpfr.h>
 #include "flint.h"
 #include "mpfr_vec.h"
 
-void * _mpfr_vec_scalar_product(mpfr_t res, __mpfr_struct * vec1, __mpfr_struct * vec2, long length)
+void _mpfr_vec_scalar_product(mpfr_t res, __mpfr_struct * vec1, __mpfr_struct * vec2, long length)
 {
-   long i;
-
-   mpfr_t tmp;
-   mpfr_init(tmp);
-
-   mpfr_mul(res, vec1, vec2, GMP_RNDN);
-   for (i = 1; i < length; i++)
-   {
-      mpfr_mul(tmp, vec1 + i, vec2 + i, GMP_RNDN);
-	  mpfr_add(res, res, tmp, GMP_RNDN);
-   }
+    long i;
+    mpfr_t tmp;
+    mpfr_init(tmp);
+
+    mpfr_mul(res, vec1, vec2, GMP_RNDN);
+    for (i = 1; i < length; i++)
+    {
+        mpfr_mul(tmp, vec1 + i, vec2 + i, GMP_RNDN);
+        mpfr_add(res, res, tmp, GMP_RNDN);
+    }
 
    mpfr_clear(tmp);
 }