Commit 80d02718 authored by Fabio Roberto Vitello's avatar Fabio Roberto Vitello
Browse files

Wrapped code into functions

parent f4fec858

aprod.c

+311 KiB (327 KiB)

File changed.

No diff preview for this file type.

View original file
View changed file

cblas.h

+2 −2
Original line number Diff line number Diff line
@@ -50,7 +50,7 @@ cblas_daxpy(const int N, const double alpha, const double *X, 


void

cblas_dcopy(const long int N, const double *X, const int incX, 

            double *Y, const int incY);

            double *Y, const int incY, int ntasks=0);





double
@@ -58,7 +58,7 @@ cblas_ddot(const int N, const double *X, const int incX, 
           const double *Y, const int incY);



double

cblas_dnrm2(const long int N, const double *X, const int incX);

cblas_dnrm2(const long int N, const double *X, const int incX, int ntasks=0);



void

cblas_dscal(const long int N, const double alpha, double *X, const int incX);