xref: /libCEED/tests/t200-elemrestriction.c (revision d863ab9ba6a0d47c58445a35d35b36efba07fc93)
14411cf47Sjeremylt /// @file
24411cf47Sjeremylt /// Test creation, use, and destruction of a element restriction
34411cf47Sjeremylt /// \test Test creation, use, and destruction of a element restriction
457c64913Sjeremylt #include <ceed.h>
557c64913Sjeremylt 
657c64913Sjeremylt int main(int argc, char **argv) {
757c64913Sjeremylt   Ceed ceed;
857c64913Sjeremylt   CeedVector x, y;
957c64913Sjeremylt   CeedInt ne = 3;
1057c64913Sjeremylt   CeedInt ind[2*ne];
1157c64913Sjeremylt   CeedScalar a[ne+1];
1257c64913Sjeremylt   const CeedScalar *yy;
1357c64913Sjeremylt   CeedElemRestriction r;
1457c64913Sjeremylt 
1557c64913Sjeremylt   CeedInit(argv[1], &ceed);
1657c64913Sjeremylt   CeedVectorCreate(ceed, ne+1, &x);
1757c64913Sjeremylt   for (CeedInt i=0; i<ne+1; i++) a[i] = 10 + i;
1857c64913Sjeremylt   CeedVectorSetArray(x, CEED_MEM_HOST, CEED_USE_POINTER, a);
1957c64913Sjeremylt 
2057c64913Sjeremylt   for (CeedInt i=0; i<ne; i++) {
2157c64913Sjeremylt     ind[2*i+0] = i;
2257c64913Sjeremylt     ind[2*i+1] = i+1;
2357c64913Sjeremylt   }
2457c64913Sjeremylt   CeedElemRestrictionCreate(ceed, ne, 2, ne+1, 1, CEED_MEM_HOST, CEED_USE_POINTER,
2557c64913Sjeremylt                             ind, &r);
2657c64913Sjeremylt   CeedVectorCreate(ceed, ne*2, &y);
2757c64913Sjeremylt   CeedVectorSetArray(y, CEED_MEM_HOST, CEED_COPY_VALUES, NULL); // Allocates array
2857c64913Sjeremylt   CeedElemRestrictionApply(r, CEED_NOTRANSPOSE, CEED_NOTRANSPOSE, x, y,
2957c64913Sjeremylt                            CEED_REQUEST_IMMEDIATE);
3057c64913Sjeremylt   CeedVectorGetArrayRead(y, CEED_MEM_HOST, &yy);
3157c64913Sjeremylt   for (CeedInt i=0; i<ne*2; i++) {
3257c64913Sjeremylt     if (10+(i+1)/2 != yy[i])
33*d863ab9bSjeremylt       printf("Error in restricted array y[%d] = %f",
3457c64913Sjeremylt                        i, (double)yy[i]);
3557c64913Sjeremylt   }
3657c64913Sjeremylt   CeedVectorRestoreArrayRead(y, &yy);
3757c64913Sjeremylt   CeedVectorDestroy(&x);
3857c64913Sjeremylt   CeedVectorDestroy(&y);
3957c64913Sjeremylt   CeedElemRestrictionDestroy(&r);
4057c64913Sjeremylt   CeedDestroy(&ceed);
4157c64913Sjeremylt   return 0;
4257c64913Sjeremylt }
43