mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-04 05:41:33 +01:00
32 lines
437 B
C
32 lines
437 B
C
/*
|
|
* @@name: copyin.1
|
|
* @@type: C
|
|
* @@compilable: yes
|
|
* @@linkable: no
|
|
* @@expect: success
|
|
*/
|
|
#include <stdlib.h>
|
|
|
|
float* work;
|
|
int size;
|
|
float tol;
|
|
|
|
#pragma omp threadprivate(work,size,tol)
|
|
|
|
void build()
|
|
{
|
|
int i;
|
|
work = (float*)malloc( sizeof(float)*size );
|
|
for( i = 0; i < size; ++i ) work[i] = tol;
|
|
}
|
|
|
|
void copyin_example( float t, int n )
|
|
{
|
|
tol = t;
|
|
size = n;
|
|
#pragma omp parallel copyin(tol,size)
|
|
{
|
|
build();
|
|
}
|
|
}
|