PIPS
ddot_r.c
Go to the documentation of this file.
1 #include <stdlib.h>
2 #include <stdio.h>
3 #include "tools.h"
4 
5 float ddot_r(int n,float b[n], float c[n], float* a)
6 {
7  int i;
8  float r=0;
9  for(i=0; i<n; ++i)
10  r += b[i] * c[i] ;
11  *a = r;
12 }
13 
14 int main(int argc, char ** argv)
15 {
16  int i,n;
17  float a, *b, *c;
18  init_args(argc, argv);
19  n = atoi(argv[1]);
20  b = (float*) malloc(n * sizeof(float));
21  c = (float*) malloc(n * sizeof(float));
22  init_data_float(b,n);
23  init_data_float(c,n);
25  ddot_r(n,b, c, &a);
26  printf("%f\n",a);
27  free(b);
28  free(c);
29  return 0;
30 }
31 
int main(int argc, char **argv)
Definition: ddot_r.c:14
float ddot_r(int n, float b[n], float c[n], float *a)
Definition: ddot_r.c:5
void * malloc(YYSIZE_T)
void free(void *)
int printf()
void close_data_file()
Definition: tools.c:48
void init_args(int argc, char **argv)
Definition: tools.c:151
int init_data_float(float *ptr, const unsigned int n)
Definition: tools.c:125