core_ddotp.c

Go to the documentation of this file.

#include "../include/exageostatcore.h"

/***************************************************************************/
double core_ddotp(double *Z, double *dotproduct, int n)
{
        return cblas_ddot(n, Z, 1, Z, 1);
}