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