extern double *x;
double *x;
extern shared [] double *y;
shared [] double *y;