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