xref: /libCEED/tests/t106-vector.c (revision 49aac155e7a09736f56fb3abac0f57dab29f7cbf)
10436c2adSjeremylt /// @file
20436c2adSjeremylt /// Test syncing device data to host pointer
30436c2adSjeremylt /// \test Test syncing device data to host pointer
40436c2adSjeremylt #include <ceed.h>
5*49aac155SJeremy L Thompson #include <stdio.h>
60436c2adSjeremylt 
main(int argc,char ** argv)70436c2adSjeremylt int main(int argc, char **argv) {
80436c2adSjeremylt   Ceed       ceed;
94fee36f0SJeremy L Thompson   CeedVector x, y;
104fee36f0SJeremy L Thompson   CeedInt    len = 10;
114fee36f0SJeremy L Thompson   CeedScalar x_array[len];
120436c2adSjeremylt 
130436c2adSjeremylt   CeedInit(argv[1], &ceed);
140436c2adSjeremylt 
154fee36f0SJeremy L Thompson   CeedVectorCreate(ceed, len, &x);
164fee36f0SJeremy L Thompson   CeedVectorCreate(ceed, len, &y);
170436c2adSjeremylt 
184fee36f0SJeremy L Thompson   for (CeedInt i = 0; i < len; i++) x_array[i] = 0;
194fee36f0SJeremy L Thompson   CeedVectorSetArray(x, CEED_MEM_HOST, CEED_USE_POINTER, x_array);
204fee36f0SJeremy L Thompson   {
214fee36f0SJeremy L Thompson     CeedScalar initial_array[len];
220436c2adSjeremylt 
234fee36f0SJeremy L Thompson     for (CeedInt i = 0; i < len; i++) initial_array[i] = len + i;
244fee36f0SJeremy L Thompson     CeedVectorSetArray(y, CEED_MEM_HOST, CEED_COPY_VALUES, initial_array);
254fee36f0SJeremy L Thompson   }
264fee36f0SJeremy L Thompson   {
274fee36f0SJeremy L Thompson     const CeedScalar *read_array;
280436c2adSjeremylt 
294fee36f0SJeremy L Thompson     CeedVectorGetArrayRead(y, CEED_MEM_DEVICE, &read_array);
304fee36f0SJeremy L Thompson     CeedVectorSetArray(x, CEED_MEM_DEVICE, CEED_COPY_VALUES, (CeedScalar *)read_array);
314fee36f0SJeremy L Thompson     CeedVectorRestoreArrayRead(y, &read_array);
324fee36f0SJeremy L Thompson   }
334fee36f0SJeremy L Thompson   CeedVectorSyncArray(x, CEED_MEM_HOST);
344fee36f0SJeremy L Thompson   for (CeedInt i = 0; i < len; i++) {
354fee36f0SJeremy L Thompson     if (x_array[i] != len + i) printf("Error reading array[%" CeedInt_FMT "] = %f\n", i, (CeedScalar)x_array[i]);
362b730f8bSJeremy L Thompson   }
370436c2adSjeremylt 
380436c2adSjeremylt   CeedVectorDestroy(&x);
390436c2adSjeremylt   CeedVectorDestroy(&y);
400436c2adSjeremylt   CeedDestroy(&ceed);
410436c2adSjeremylt   return 0;
420436c2adSjeremylt }
43