1 /// @file 2 /// Test creation creation, action, and destruction for mass matrix operator 3 /// \test Test creation 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 ErestrictxiTet, ErestrictuiTet, 24 ErestrictxHex, ErestrictuHex, 25 ErestrictxiHex, 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, U, V; 34 const CeedScalar *hv; 35 CeedInt nelemTet = 6, PTet = 6, QTet = 4, 36 nelemHex = 6, PHex = 3, QHex = 4, dim = 2; 37 CeedInt nx = 3, ny = 3, 38 nxTet = 3, nyTet = 1, nxHex = 3; 39 CeedInt row, col, offset; 40 CeedInt ndofs = (nx*2+1)*(ny*2+1), 41 nqptsTet = nelemTet*QTet, 42 nqptsHex = nelemHex*QHex*QHex; 43 CeedInt indxTet[nelemTet*PTet], 44 indxHex[nelemHex*PHex*PHex]; 45 CeedScalar x[dim*ndofs]; 46 CeedScalar qref[dim*QTet], qweight[QTet]; 47 CeedScalar interp[PTet*QTet], grad[dim*PTet*QTet]; 48 CeedScalar sum; 49 50 CeedInit(argv[1], &ceed); 51 52 // DoF Coordinates 53 for (CeedInt i=0; i<ny*2+1; i++) 54 for (CeedInt j=0; j<nx*2+1; j++) { 55 x[i+j*(ny*2+1)+0*ndofs] = (CeedScalar) i / (2*ny); 56 x[i+j*(ny*2+1)+1*ndofs] = (CeedScalar) j / (2*nx); 57 } 58 CeedVectorCreate(ceed, dim*ndofs, &X); 59 CeedVectorSetArray(X, CEED_MEM_HOST, CEED_USE_POINTER, x); 60 61 // Qdata Vectors 62 CeedVectorCreate(ceed, nqptsTet, &qdataTet); 63 CeedVectorCreate(ceed, nqptsHex, &qdataHex); 64 65 // Tet Elements 66 for (CeedInt i=0; i<nelemTet/2; i++) { 67 col = i % nxTet; 68 row = i / nxTet; 69 offset = col*2 + row*(nxTet*2+1)*2; 70 71 indxTet[i*2*PTet + 0] = 2 + offset; 72 indxTet[i*2*PTet + 1] = 9 + offset; 73 indxTet[i*2*PTet + 2] = 16 + offset; 74 indxTet[i*2*PTet + 3] = 1 + offset; 75 indxTet[i*2*PTet + 4] = 8 + offset; 76 indxTet[i*2*PTet + 5] = 0 + offset; 77 78 indxTet[i*2*PTet + 6] = 14 + offset; 79 indxTet[i*2*PTet + 7] = 7 + offset; 80 indxTet[i*2*PTet + 8] = 0 + offset; 81 indxTet[i*2*PTet + 9] = 15 + offset; 82 indxTet[i*2*PTet + 10] = 8 + offset; 83 indxTet[i*2*PTet + 11] = 16 + offset; 84 } 85 86 // -- Restrictions 87 CeedElemRestrictionCreate(ceed, imode, nelemTet, PTet, ndofs, dim, 88 CEED_MEM_HOST, CEED_USE_POINTER, indxTet, 89 &ErestrictxTet); 90 CeedInt stridesxTet[3] = {1, PTet, PTet*dim}; 91 CeedElemRestrictionCreateStrided(ceed, nelemTet, PTet, nelemTet*PTet, dim, 92 stridesxTet, &ErestrictxiTet); 93 94 CeedElemRestrictionCreate(ceed, imode, nelemTet, PTet, ndofs, 1, 95 CEED_MEM_HOST, CEED_USE_POINTER, indxTet, 96 &ErestrictuTet); 97 CeedInt stridesuTet[3] = {1, QTet, QTet}; 98 CeedElemRestrictionCreateStrided(ceed, nelemTet, QTet, nqptsTet, 1, 99 stridesuTet, &ErestrictuiTet); 100 101 // -- Bases 102 buildmats(qref, qweight, interp, grad); 103 CeedBasisCreateH1(ceed, CEED_TRIANGLE, dim, PTet, QTet, interp, grad, qref, 104 qweight, &bxTet); 105 106 buildmats(qref, qweight, interp, grad); 107 CeedBasisCreateH1(ceed, CEED_TRIANGLE, 1, PTet, QTet, interp, grad, qref, 108 qweight, &buTet); 109 110 // -- QFunctions 111 CeedQFunctionCreateInterior(ceed, 1, setup, setup_loc, &qf_setupTet); 112 CeedQFunctionAddInput(qf_setupTet, "_weight", 1, CEED_EVAL_WEIGHT); 113 CeedQFunctionAddInput(qf_setupTet, "dx", dim*dim, CEED_EVAL_GRAD); 114 CeedQFunctionAddOutput(qf_setupTet, "rho", 1, CEED_EVAL_NONE); 115 116 CeedQFunctionCreateInterior(ceed, 1, mass, mass_loc, &qf_massTet); 117 CeedQFunctionAddInput(qf_massTet, "rho", 1, CEED_EVAL_NONE); 118 CeedQFunctionAddInput(qf_massTet, "u", 1, CEED_EVAL_INTERP); 119 CeedQFunctionAddOutput(qf_massTet, "v", 1, CEED_EVAL_INTERP); 120 121 // -- Operators 122 // ---- Setup Tet 123 CeedOperatorCreate(ceed, qf_setupTet, CEED_QFUNCTION_NONE, 124 CEED_QFUNCTION_NONE, &op_setupTet); 125 CeedOperatorSetField(op_setupTet, "_weight", ErestrictxiTet, bxTet, 126 CEED_VECTOR_NONE); 127 CeedOperatorSetField(op_setupTet, "dx", ErestrictxTet, bxTet, 128 CEED_VECTOR_ACTIVE); 129 CeedOperatorSetField(op_setupTet, "rho", ErestrictuiTet, 130 CEED_BASIS_COLLOCATED, qdataTet); 131 // ---- Mass Tet 132 CeedOperatorCreate(ceed, qf_massTet, CEED_QFUNCTION_NONE, CEED_QFUNCTION_NONE, 133 &op_massTet); 134 CeedOperatorSetField(op_massTet, "rho", ErestrictuiTet, CEED_BASIS_COLLOCATED, 135 qdataTet); 136 CeedOperatorSetField(op_massTet, "u", ErestrictuTet, buTet, 137 CEED_VECTOR_ACTIVE); 138 CeedOperatorSetField(op_massTet, "v", ErestrictuTet, buTet, 139 CEED_VECTOR_ACTIVE); 140 141 // Hex Elements 142 for (CeedInt i=0; i<nelemHex; i++) { 143 col = i % nxHex; 144 row = i / nxHex; 145 offset = (nxTet*2+1)*(nyTet*2)*(1+row) + col*2; 146 for (CeedInt j=0; j<PHex; j++) 147 for (CeedInt k=0; k<PHex; k++) 148 indxHex[PHex*(PHex*i+k)+j] = offset + k*(nxHex*2+1) + j; 149 } 150 151 // -- Restrictions 152 CeedElemRestrictionCreate(ceed, imode, nelemHex, PHex*PHex, ndofs, dim, 153 CEED_MEM_HOST, CEED_USE_POINTER, indxHex, 154 &ErestrictxHex); 155 CeedInt stridesxHex[3] = {1, PHex*PHex, PHex *PHex*dim}; 156 CeedElemRestrictionCreateStrided(ceed, nelemHex, PHex*PHex, 157 nelemHex*PHex*PHex, dim, stridesxHex, 158 &ErestrictxiHex); 159 160 CeedElemRestrictionCreate(ceed, imode, nelemHex, PHex*PHex, ndofs, 1, 161 CEED_MEM_HOST, CEED_USE_POINTER, indxHex, 162 &ErestrictuHex); 163 CeedInt stridesuHex[3] = {1, QHex*QHex, QHex*QHex}; 164 CeedElemRestrictionCreateStrided(ceed, nelemHex, QHex*QHex, nqptsHex, 1, 165 stridesuHex, &ErestrictuiHex); 166 167 // -- Bases 168 CeedBasisCreateTensorH1Lagrange(ceed, dim, dim, PHex, QHex, CEED_GAUSS, 169 &bxHex); 170 CeedBasisCreateTensorH1Lagrange(ceed, dim, 1, PHex, QHex, CEED_GAUSS, &buHex); 171 172 // -- QFunctions 173 CeedQFunctionCreateInterior(ceed, 1, setup, setup_loc, &qf_setupHex); 174 CeedQFunctionAddInput(qf_setupHex, "_weight", 1, CEED_EVAL_WEIGHT); 175 CeedQFunctionAddInput(qf_setupHex, "dx", dim*dim, CEED_EVAL_GRAD); 176 CeedQFunctionAddOutput(qf_setupHex, "rho", 1, CEED_EVAL_NONE); 177 178 CeedQFunctionCreateInterior(ceed, 1, mass, mass_loc, &qf_massHex); 179 CeedQFunctionAddInput(qf_massHex, "rho", 1, CEED_EVAL_NONE); 180 CeedQFunctionAddInput(qf_massHex, "u", 1, CEED_EVAL_INTERP); 181 CeedQFunctionAddOutput(qf_massHex, "v", 1, CEED_EVAL_INTERP); 182 183 // -- Operators 184 CeedOperatorCreate(ceed, qf_setupHex, CEED_QFUNCTION_NONE, CEED_QFUNCTION_NONE, 185 &op_setupHex); 186 CeedOperatorSetField(op_setupHex, "_weight", ErestrictxiHex, bxHex, 187 CEED_VECTOR_NONE); 188 CeedOperatorSetField(op_setupHex, "dx", ErestrictxHex, bxHex, 189 CEED_VECTOR_ACTIVE); 190 CeedOperatorSetField(op_setupHex, "rho", ErestrictuiHex, 191 CEED_BASIS_COLLOCATED, qdataHex); 192 193 CeedOperatorCreate(ceed, qf_massHex, CEED_QFUNCTION_NONE, CEED_QFUNCTION_NONE, 194 &op_massHex); 195 CeedOperatorSetField(op_massHex, "rho", ErestrictuiHex, CEED_BASIS_COLLOCATED, 196 qdataHex); 197 CeedOperatorSetField(op_massHex, "u", ErestrictuHex, buHex, 198 CEED_VECTOR_ACTIVE); 199 CeedOperatorSetField(op_massHex, "v", ErestrictuHex, buHex, 200 CEED_VECTOR_ACTIVE); 201 202 // Composite Operators 203 CeedCompositeOperatorCreate(ceed, &op_setup); 204 CeedCompositeOperatorAddSub(op_setup, op_setupTet); 205 CeedCompositeOperatorAddSub(op_setup, op_setupHex); 206 207 CeedCompositeOperatorCreate(ceed, &op_mass); 208 CeedCompositeOperatorAddSub(op_mass, op_massTet); 209 CeedCompositeOperatorAddSub(op_mass, op_massHex); 210 211 // Apply Setup Operator 212 CeedOperatorApply(op_setup, X, CEED_VECTOR_NONE, CEED_REQUEST_IMMEDIATE); 213 214 // Apply Mass Operator 215 CeedVectorCreate(ceed, ndofs, &U); 216 CeedVectorSetValue(U, 1.0); 217 CeedVectorCreate(ceed, ndofs, &V); 218 CeedVectorSetValue(V, 0.0); 219 220 // Apply 221 CeedOperatorApplyAdd(op_mass, U, V, CEED_REQUEST_IMMEDIATE); 222 223 // Check output 224 CeedVectorGetArrayRead(V, CEED_MEM_HOST, &hv); 225 sum = 0.; 226 for (CeedInt i=0; i<ndofs; i++) 227 sum += hv[i]; 228 if (fabs(sum-1.)>1e-10) printf("Computed Area: %f != True Area: 1.0\n", sum); 229 CeedVectorRestoreArrayRead(V, &hv); 230 231 // Apply Add 232 CeedVectorSetValue(V, 1.0); 233 CeedOperatorApplyAdd(op_mass, U, V, CEED_REQUEST_IMMEDIATE); 234 235 // Check output 236 CeedVectorGetArrayRead(V, CEED_MEM_HOST, &hv); 237 sum = -ndofs; 238 for (CeedInt i=0; i<ndofs; i++) 239 sum += hv[i]; 240 if (fabs(sum-1.)>1e-10) printf("Computed Area: %f != True Area: 1.0\n", sum); 241 CeedVectorRestoreArrayRead(V, &hv); 242 243 // Cleanup 244 CeedQFunctionDestroy(&qf_setupTet); 245 CeedQFunctionDestroy(&qf_massTet); 246 CeedOperatorDestroy(&op_setupTet); 247 CeedOperatorDestroy(&op_massTet); 248 CeedQFunctionDestroy(&qf_setupHex); 249 CeedQFunctionDestroy(&qf_massHex); 250 CeedOperatorDestroy(&op_setupHex); 251 CeedOperatorDestroy(&op_massHex); 252 CeedOperatorDestroy(&op_setup); 253 CeedOperatorDestroy(&op_mass); 254 CeedElemRestrictionDestroy(&ErestrictuTet); 255 CeedElemRestrictionDestroy(&ErestrictxTet); 256 CeedElemRestrictionDestroy(&ErestrictuiTet); 257 CeedElemRestrictionDestroy(&ErestrictxiTet); 258 CeedElemRestrictionDestroy(&ErestrictuHex); 259 CeedElemRestrictionDestroy(&ErestrictxHex); 260 CeedElemRestrictionDestroy(&ErestrictuiHex); 261 CeedElemRestrictionDestroy(&ErestrictxiHex); 262 CeedBasisDestroy(&buTet); 263 CeedBasisDestroy(&bxTet); 264 CeedBasisDestroy(&buHex); 265 CeedBasisDestroy(&bxHex); 266 CeedVectorDestroy(&X); 267 CeedVectorDestroy(&U); 268 CeedVectorDestroy(&V); 269 CeedVectorDestroy(&qdataTet); 270 CeedVectorDestroy(&qdataHex); 271 CeedDestroy(&ceed); 272 return 0; 273 } 274