1 /// @file 2 /// Test creation, action, and destruction for mass matrix operator 3 /// \test Test creation, action, and destruction for mass matrix operator 4 #include <ceed.h> 5 #include <stdlib.h> 6 #include <math.h> 7 #include "t320-basis.h" 8 #include "t510-operator.h" 9 10 /* The mesh comprises of two rows of 3 quadralaterals followed by one row 11 of 6 triangles: 12 _ _ _ 13 |_|_|_| 14 |_|_|_| 15 |/|/|/| 16 17 */ 18 19 int main(int argc, char **argv) { 20 Ceed ceed; 21 CeedInterlaceMode imode = CEED_NONINTERLACED; 22 CeedElemRestriction ErestrictxTet, ErestrictuTet, 23 ErestrictuiTet, 24 ErestrictxHex, ErestrictuHex, 25 ErestrictuiHex; 26 CeedBasis bxTet, buTet, 27 bxHex, buHex; 28 CeedQFunction qf_setupTet, qf_massTet, 29 qf_setupHex, qf_massHex; 30 CeedOperator op_setupTet, op_massTet, 31 op_setupHex, op_massHex, 32 op_setup, op_mass; 33 CeedVector qdataTet, qdataHex, X; 34 CeedInt nelemTet = 6, PTet = 6, QTet = 4, 35 nelemHex = 6, PHex = 3, QHex = 4, dim = 2; 36 CeedInt nx = 3, ny = 3, 37 nxTet = 3, nyTet = 1, nxHex = 3; 38 CeedInt row, col, offset; 39 CeedInt ndofs = (nx*2+1)*(ny*2+1), 40 nqptsTet = nelemTet*QTet, 41 nqptsHex = nelemHex*QHex*QHex; 42 CeedInt indxTet[nelemTet*PTet], 43 indxHex[nelemHex*PHex*PHex]; 44 CeedScalar qref[dim*QTet], qweight[QTet]; 45 CeedScalar interp[PTet*QTet], grad[dim*PTet*QTet]; 46 47 CeedInit(argv[1], &ceed); 48 49 // DoF Coordinates 50 CeedVectorCreate(ceed, dim*ndofs, &X); 51 52 // Qdata Vectors 53 CeedVectorCreate(ceed, nqptsTet, &qdataTet); 54 CeedVectorCreate(ceed, nqptsHex, &qdataHex); 55 56 // Set up Tet Elements 57 for (CeedInt i=0; i<nelemTet/2; i++) { 58 col = i % nxTet; 59 row = i / nxTet; 60 offset = col*2 + row*(nxTet*2+1)*2; 61 62 indxTet[i*2*PTet + 0] = 2 + offset; 63 indxTet[i*2*PTet + 1] = 9 + offset; 64 indxTet[i*2*PTet + 2] = 16 + offset; 65 indxTet[i*2*PTet + 3] = 1 + offset; 66 indxTet[i*2*PTet + 4] = 8 + offset; 67 indxTet[i*2*PTet + 5] = 0 + offset; 68 69 indxTet[i*2*PTet + 6] = 14 + offset; 70 indxTet[i*2*PTet + 7] = 7 + offset; 71 indxTet[i*2*PTet + 8] = 0 + offset; 72 indxTet[i*2*PTet + 9] = 15 + offset; 73 indxTet[i*2*PTet + 10] = 8 + offset; 74 indxTet[i*2*PTet + 11] = 16 + offset; 75 } 76 77 // -- Restrictions 78 CeedElemRestrictionCreate(ceed, imode, nelemTet, PTet, ndofs, dim, 79 CEED_MEM_HOST, CEED_USE_POINTER, indxTet, 80 &ErestrictxTet); 81 82 CeedElemRestrictionCreate(ceed, imode, nelemTet, PTet, ndofs, 1, 83 CEED_MEM_HOST, CEED_USE_POINTER, indxTet, 84 &ErestrictuTet); 85 CeedInt stridesuTet[3] = {1, QTet, QTet}; 86 CeedElemRestrictionCreateStrided(ceed, nelemTet, QTet, nqptsTet, 1, 87 stridesuTet, &ErestrictuiTet); 88 89 // -- Bases 90 buildmats(qref, qweight, interp, grad); 91 CeedBasisCreateH1(ceed, CEED_TRIANGLE, dim, PTet, QTet, interp, grad, qref, 92 qweight, &bxTet); 93 94 buildmats(qref, qweight, interp, grad); 95 CeedBasisCreateH1(ceed, CEED_TRIANGLE, 1, PTet, QTet, interp, grad, qref, 96 qweight, &buTet); 97 98 // -- QFunctions 99 CeedQFunctionCreateInterior(ceed, 1, setup, setup_loc, &qf_setupTet); 100 CeedQFunctionAddInput(qf_setupTet, "_weight", 1, CEED_EVAL_WEIGHT); 101 CeedQFunctionAddInput(qf_setupTet, "dx", dim*dim, CEED_EVAL_GRAD); 102 CeedQFunctionAddOutput(qf_setupTet, "rho", 1, CEED_EVAL_NONE); 103 104 CeedQFunctionCreateInterior(ceed, 1, mass, mass_loc, &qf_massTet); 105 CeedQFunctionAddInput(qf_massTet, "rho", 1, CEED_EVAL_NONE); 106 CeedQFunctionAddInput(qf_massTet, "u", 1, CEED_EVAL_INTERP); 107 CeedQFunctionAddOutput(qf_massTet, "v", 1, CEED_EVAL_INTERP); 108 109 // -- Operators 110 // ---- Setup Tet 111 CeedOperatorCreate(ceed, qf_setupTet, CEED_QFUNCTION_NONE, 112 CEED_QFUNCTION_NONE, &op_setupTet); 113 CeedOperatorSetField(op_setupTet, "_weight", CEED_ELEMRESTRICTION_NONE, bxTet, 114 CEED_VECTOR_NONE); 115 CeedOperatorSetField(op_setupTet, "dx", ErestrictxTet, bxTet, 116 CEED_VECTOR_ACTIVE); 117 CeedOperatorSetField(op_setupTet, "rho", ErestrictuiTet, 118 CEED_BASIS_COLLOCATED, qdataTet); 119 // ---- Mass Tet 120 CeedOperatorCreate(ceed, qf_massTet, CEED_QFUNCTION_NONE, CEED_QFUNCTION_NONE, 121 &op_massTet); 122 CeedOperatorSetField(op_massTet, "rho", ErestrictuiTet, CEED_BASIS_COLLOCATED, 123 qdataTet); 124 CeedOperatorSetField(op_massTet, "u", ErestrictuTet, buTet, 125 CEED_VECTOR_ACTIVE); 126 CeedOperatorSetField(op_massTet, "v", ErestrictuTet, buTet, 127 CEED_VECTOR_ACTIVE); 128 129 // Set up Hex Elements 130 for (CeedInt i=0; i<nelemHex; i++) { 131 col = i % nxHex; 132 row = i / nxHex; 133 offset = (nxTet*2+1)*(nyTet*2)*(1+row) + col*2; 134 for (CeedInt j=0; j<PHex; j++) 135 for (CeedInt k=0; k<PHex; k++) 136 indxHex[PHex*(PHex*i+k)+j] = offset + k*(nxHex*2+1) + j; 137 } 138 139 // -- Restrictions 140 CeedElemRestrictionCreate(ceed, imode, nelemHex, PHex*PHex, ndofs, dim, 141 CEED_MEM_HOST, CEED_USE_POINTER, indxHex, 142 &ErestrictxHex); 143 144 CeedElemRestrictionCreate(ceed, imode, nelemHex, PHex*PHex, ndofs, 1, 145 CEED_MEM_HOST, CEED_USE_POINTER, indxHex, 146 &ErestrictuHex); 147 CeedInt stridesuHex[3] = {1, QHex*QHex, QHex*QHex}; 148 CeedElemRestrictionCreateStrided(ceed, nelemHex, QHex*QHex, nqptsHex, 1, 149 stridesuHex, &ErestrictuiHex); 150 151 // -- Bases 152 CeedBasisCreateTensorH1Lagrange(ceed, dim, dim, PHex, QHex, CEED_GAUSS, 153 &bxHex); 154 CeedBasisCreateTensorH1Lagrange(ceed, dim, 1, PHex, QHex, CEED_GAUSS, &buHex); 155 156 // -- QFunctions 157 CeedQFunctionCreateInterior(ceed, 1, setup, setup_loc, &qf_setupHex); 158 CeedQFunctionAddInput(qf_setupHex, "_weight", 1, CEED_EVAL_WEIGHT); 159 CeedQFunctionAddInput(qf_setupHex, "dx", dim*dim, CEED_EVAL_GRAD); 160 CeedQFunctionAddOutput(qf_setupHex, "rho", 1, CEED_EVAL_NONE); 161 162 CeedQFunctionCreateInterior(ceed, 1, mass, mass_loc, &qf_massHex); 163 CeedQFunctionAddInput(qf_massHex, "rho", 1, CEED_EVAL_NONE); 164 CeedQFunctionAddInput(qf_massHex, "u", 1, CEED_EVAL_INTERP); 165 CeedQFunctionAddOutput(qf_massHex, "v", 1, CEED_EVAL_INTERP); 166 167 // -- Operators 168 CeedOperatorCreate(ceed, qf_setupHex, CEED_QFUNCTION_NONE, 169 CEED_QFUNCTION_NONE, &op_setupHex); 170 CeedOperatorSetField(op_setupHex, "_weight", CEED_ELEMRESTRICTION_NONE, bxHex, 171 CEED_VECTOR_NONE); 172 CeedOperatorSetField(op_setupHex, "dx", ErestrictxHex, bxHex, 173 CEED_VECTOR_ACTIVE); 174 CeedOperatorSetField(op_setupHex, "rho", ErestrictuiHex, 175 CEED_BASIS_COLLOCATED, qdataHex); 176 177 CeedOperatorCreate(ceed, qf_massHex, CEED_QFUNCTION_NONE, CEED_QFUNCTION_NONE, 178 &op_massHex); 179 CeedOperatorSetField(op_massHex, "rho", ErestrictuiHex, CEED_BASIS_COLLOCATED, 180 qdataHex); 181 CeedOperatorSetField(op_massHex, "u", ErestrictuHex, buHex, 182 CEED_VECTOR_ACTIVE); 183 CeedOperatorSetField(op_massHex, "v", ErestrictuHex, buHex, 184 CEED_VECTOR_ACTIVE); 185 186 // Set up Composite Operators 187 // -- Create 188 CeedCompositeOperatorCreate(ceed, &op_setup); 189 // -- Add SubOperators 190 CeedCompositeOperatorAddSub(op_setup, op_setupTet); 191 CeedCompositeOperatorAddSub(op_setup, op_setupHex); 192 193 // -- Create 194 CeedCompositeOperatorCreate(ceed, &op_mass); 195 // -- Add SubOperators 196 CeedCompositeOperatorAddSub(op_mass, op_massTet); 197 CeedCompositeOperatorAddSub(op_mass, op_massHex); 198 199 // View 200 CeedOperatorView(op_setup, stdout); 201 CeedOperatorView(op_mass, stdout); 202 203 // Cleanup 204 CeedQFunctionDestroy(&qf_setupTet); 205 CeedQFunctionDestroy(&qf_massTet); 206 CeedOperatorDestroy(&op_setupTet); 207 CeedOperatorDestroy(&op_massTet); 208 CeedQFunctionDestroy(&qf_setupHex); 209 CeedQFunctionDestroy(&qf_massHex); 210 CeedOperatorDestroy(&op_setupHex); 211 CeedOperatorDestroy(&op_massHex); 212 CeedOperatorDestroy(&op_setup); 213 CeedOperatorDestroy(&op_mass); 214 CeedElemRestrictionDestroy(&ErestrictuTet); 215 CeedElemRestrictionDestroy(&ErestrictxTet); 216 CeedElemRestrictionDestroy(&ErestrictuiTet); 217 CeedElemRestrictionDestroy(&ErestrictuHex); 218 CeedElemRestrictionDestroy(&ErestrictxHex); 219 CeedElemRestrictionDestroy(&ErestrictuiHex); 220 CeedBasisDestroy(&buTet); 221 CeedBasisDestroy(&bxTet); 222 CeedBasisDestroy(&buHex); 223 CeedBasisDestroy(&bxHex); 224 CeedVectorDestroy(&X); 225 CeedVectorDestroy(&qdataTet); 226 CeedVectorDestroy(&qdataHex); 227 CeedDestroy(&ceed); 228 return 0; 229 } 230