Sign in
fuchsia
/
third_party
/
cmake
/
633b3145c0e4d918f53272dab3358867bc252b0b
/
.
/
Tests
/
FindOpenMP
/
Test
/
scalprod.c
blob: 24c4587af3e62d06f342a6a0fed1c694e7ca2dbe [
file
] [
log
] [
blame
]
#include
<omp.h>
#ifdef
__cplusplus
extern
"C"
#endif
void
scalprod
(
int
n
,
double
*
x
,
double
*
y
,
double
*
res
)
{
int
i
;
double
res_v
=
0.
;
#pragma
omp parallel
for
reduction
(+
:
res_v
)
for
(
i
=
0
;
i
<
n
;
++
i
)
{
res_v
+=
x
[
i
]
*
y
[
i
];
}
*
res
=
res_v
;
}