xref: /libCEED/tests/t100-vector.c (revision 2b730f8b5a9c809740a0b3b302db43a719c636b1)
10436c2adSjeremylt /// @file
20436c2adSjeremylt /// Test creation, setting, reading, restoring, and destroying of a vector
30436c2adSjeremylt /// \test Test creation, setting, reading, restoring, and destroying of a vector
40436c2adSjeremylt #include <ceed.h>
50436c2adSjeremylt 
60436c2adSjeremylt int main(int argc, char **argv) {
70436c2adSjeremylt   Ceed              ceed;
80436c2adSjeremylt   CeedVector        x;
90436c2adSjeremylt   CeedInt           n;
100436c2adSjeremylt   CeedScalar        a[10];
110436c2adSjeremylt   const CeedScalar *b;
120436c2adSjeremylt 
130436c2adSjeremylt   CeedInit(argv[1], &ceed);
140436c2adSjeremylt 
150436c2adSjeremylt   n = 10;
160436c2adSjeremylt   CeedVectorCreate(ceed, n, &x);
17*2b730f8bSJeremy L Thompson   for (CeedInt i = 0; i < n; i++) a[i] = 10 + i;
180436c2adSjeremylt   CeedVectorSetArray(x, CEED_MEM_HOST, CEED_USE_POINTER, a);
190436c2adSjeremylt 
200436c2adSjeremylt   CeedVectorGetArrayRead(x, CEED_MEM_HOST, &b);
21*2b730f8bSJeremy L Thompson   for (CeedInt i = 0; i < n; i++) {
22*2b730f8bSJeremy L Thompson     if (b[i] != 10 + i) printf("Error reading array b[%" CeedInt_FMT "] = %f\n", i, (CeedScalar)b[i]);
23*2b730f8bSJeremy L Thompson   }
240436c2adSjeremylt   CeedVectorRestoreArrayRead(x, &b);
250436c2adSjeremylt 
260436c2adSjeremylt   CeedVectorDestroy(&x);
270436c2adSjeremylt   CeedDestroy(&ceed);
280436c2adSjeremylt   return 0;
290436c2adSjeremylt }
30