21#include "fasp_functs.h"
52 nthreads = fasp_get_num_threads();
59 INT mybegin,myend,myid;
60#pragma omp parallel for private(myid,mybegin,myend)
61 for (myid = 0; myid < nthreads; myid ++) {
63 memset(&x[mybegin], 0x0,
sizeof(
REAL)*(myend-mybegin));
68 memset(x, 0x0,
sizeof(
REAL)*n);
75 INT mybegin,myend,myid;
76#pragma omp parallel for private(myid,mybegin,myend,i)
77 for (myid = 0; myid < nthreads; myid ++) {
79 for (i=mybegin; i<myend; ++i) x[i]=val;
84 for (i=0; i<n; ++i) x[i] = val;
114 nthreads = fasp_get_num_threads();
121 INT mybegin,myend,myid;
122#pragma omp parallel for private(myid, mybegin, myend)
123 for (myid = 0; myid < nthreads; myid ++) {
125 memset(&x[mybegin], 0,
sizeof(
INT)*(myend-mybegin));
130 memset(x, 0,
sizeof(
INT)*n);
138 INT mybegin,myend,myid;
139#pragma omp parallel for private(myid, mybegin, myend,i)
140 for (myid = 0; myid < nthreads; myid ++) {
142 for (i=mybegin; i<myend; ++i) x[i]=val;
147 for (i=0; i<n; ++i) x[i]=val;
168 memcpy(y, x, n*
sizeof(
REAL));
188 memcpy(y, x, n*
sizeof(
INT));
void fasp_darray_set(const INT n, REAL *x, const REAL val)
Set initial value for an array to be x=val.
void fasp_iarray_set(const INT n, INT *x, const INT val)
Set initial value for an array to be x=val.
void fasp_darray_cp(const INT n, const REAL *x, REAL *y)
Copy an array to the other y=x.
void fasp_iarray_cp(const INT n, const INT *x, INT *y)
Copy an array to the other y=x.
void fasp_get_start_end(const INT procid, const INT nprocs, const INT n, INT *start, INT *end)
Assign Load to each thread.
Main header file for the FASP project.
#define SHORT
FASP integer and floating point numbers.
#define TRUE
Definition of logic type.