xref: /libCEED/tests/t100-vector.c (revision ca7355308a14805110a7d98dabf1f658d5ec16d5)
1 /// @file
2 /// Test creation, setting, reading, restoring, and destroying of a vector
3 /// \test Test creation, setting, reading, restoring, and destroying of a vector
4 
5 //TESTARGS(name="length 10") {ceed_resource} 10
6 //TESTARGS(name="length 0") {ceed_resource} 0
7 #include <ceed.h>
8 #include <stdio.h>
9 #include <stdlib.h>
10 
11 int main(int argc, char **argv) {
12   Ceed       ceed;
13   CeedVector x;
14   CeedInt    len = 10;
15   CeedScalar array[len];
16 
17   CeedInit(argv[1], &ceed);
18   len = argc > 2 ? atoi(argv[2]) : len;
19 
20   CeedVectorCreate(ceed, len, &x);
21   for (CeedInt i = 0; i < len; i++) array[i] = len + i;
22   CeedVectorSetArray(x, CEED_MEM_HOST, CEED_USE_POINTER, array);
23 
24   {
25     const CeedScalar *read_array;
26 
27     CeedVectorGetArrayRead(x, CEED_MEM_HOST, &read_array);
28     for (CeedInt i = 0; i < len; i++) {
29       if (read_array[i] != len + i) printf("Error reading array[%" CeedInt_FMT "] = %f\n", i, (CeedScalar)read_array[i]);
30     }
31     CeedVectorRestoreArrayRead(x, &read_array);
32   }
33 
34   CeedVectorDestroy(&x);
35   CeedDestroy(&ceed);
36   return 0;
37 }
38