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