1#include "npbparams.h"
2#include "applu_protos.h"
3#include "RCCE.h"
4
5extern double u[5*(isiz1+4)*(isiz2+4)*isiz3],
6              rsd[5*(isiz1+4)*(isiz2+4)*isiz3],
7              frct[5*(isiz1+4)*(isiz2+4)*isiz3],
8              flux[5*(isiz1+2)*(isiz2+2)*isiz3];
9extern double a[5*5*isiz1*isiz2],
10              b[5*5*isiz1*isiz2],
11              c[5*5*isiz1*isiz2],
12              d[5*5*isiz1*isiz2];
13
14extern double dt, omega, tolrsd[5], rsdnm[5], errnm[5], frc, ttotal;
15extern double tolrsd1_def, tolrsd2_def, tolrsd3_def, tolrsd4_def, tolrsd5_def,
16              omega_default;
17extern double ce[5*13];
18
19extern int ndim, id, num, xdim, ydim, row, col;
20extern int ii1, ii2, ji1, ji2, ki1, ki2;
21extern int itmax, invert;
22extern int ipr, ipr_default, inorm;
23extern int north,south,east,west;
24extern int nx0, ny0, nz0;
25extern int nx, ny, nz;
26extern int ist, iend, jst, jend, ipt, jpt;
27extern int dp_type;
28extern double tx1, ty1, tz1,
29              dx1, dy1, dz1,
30              tx2, ty2, tz2,
31              dx2, dy2, dz2,
32              tx3, ty3, tz3,
33              dx3, dy3, dz3,
34              dx4, dy4, dz4,
35              dx5, dy5, dz5,
36              dssp, c1,  c2,
37              c3,  c4,  c5;
38extern double dxi, deta, dzeta;
39extern double npmax, maxtime;
40extern RCCE_FLAG flagsent[4], flagready[4];
41extern double *buf1_exch_1;
42
43#ifdef _OPENMP
44#pragma omp threadprivate (nx, ny, nz, nx0, ny0, nz0, \
45                     ipt, ist, iend, jpt, jst, jend, \
46                     ii1, ii2, ji1, ji2, ki1, ki2, \
47                     dxi, deta, dzeta, \
48                     tx1, tx2, tx3, ty1, ty2, ty3, tz1, tz2, tz3)
49#pragma omp threadprivate (dx1, dx2, dx3, dx4, dx5, \
50                     dy1, dy2, dy3, dy4, dy5, \
51                     dz1, dz2, dz3, dz4, dz5, \
52                     dssp)
53#pragma omp threadprivate(u, rsd, frct, flux)
54#pragma omp threadprivate(ipr, inorm)
55#pragma omp threadprivate(itmax, invert, \
56                    dt, omega, tolrsd, rsdnm, errnm, frc, ttotal, \
57                    a, b, c, d)
58#pragma omp threadprivate(ce)
59#pragma omp threadprivate (id, ndim, num, xdim, ydim, row, col, \
60                     north,south,east,west, flagsent, flagready, \
61                     buf1_exch_1, npmax, maxtime)
62#endif
63