1*ec3da8bcSJed Brown // Copyright (c) 2017, Lawrence Livermore National Security, LLC. Produced at 2*ec3da8bcSJed Brown // the Lawrence Livermore National Laboratory. LLNL-CODE-734707. All Rights 3*ec3da8bcSJed Brown // reserved. See files LICENSE and NOTICE for details. 4*ec3da8bcSJed Brown // 5*ec3da8bcSJed Brown // This file is part of CEED, a collection of benchmarks, miniapps, software 6*ec3da8bcSJed Brown // libraries and APIs for efficient high-order finite element and spectral 7*ec3da8bcSJed Brown // element discretizations for exascale applications. For more information and 8*ec3da8bcSJed Brown // source code availability see http://github.com/ceed. 9*ec3da8bcSJed Brown // 10*ec3da8bcSJed Brown // The CEED research is supported by the Exascale Computing Project 17-SC-20-SC, 11*ec3da8bcSJed Brown // a collaborative effort of two U.S. Department of Energy organizations (Office 12*ec3da8bcSJed Brown // of Science and the National Nuclear Security Administration) responsible for 13*ec3da8bcSJed Brown // the planning and preparation of a capable exascale ecosystem, including 14*ec3da8bcSJed Brown // software, applications, hardware, advanced system engineering and early 15*ec3da8bcSJed Brown // testbed platforms, in support of the nation's exascale computing imperative. 16*ec3da8bcSJed Brown 17*ec3da8bcSJed Brown /// @file 18*ec3da8bcSJed Brown /// Public header for backend components of libCEED 19*ec3da8bcSJed Brown #ifndef _ceed_backend_h 20*ec3da8bcSJed Brown #define _ceed_backend_h 21*ec3da8bcSJed Brown 22*ec3da8bcSJed Brown #include <ceed/ceed.h> 23*ec3da8bcSJed Brown #include <stdbool.h> 24*ec3da8bcSJed Brown 25*ec3da8bcSJed Brown #define CEED_INTERN CEED_EXTERN __attribute__((visibility ("hidden"))) 26*ec3da8bcSJed Brown #define CEED_UNUSED __attribute__((unused)) 27*ec3da8bcSJed Brown 28*ec3da8bcSJed Brown #define CEED_MAX_RESOURCE_LEN 1024 29*ec3da8bcSJed Brown #define CEED_ALIGN 64 30*ec3da8bcSJed Brown #define CEED_COMPOSITE_MAX 16 31*ec3da8bcSJed Brown #define CEED_EPSILON 1E-16 32*ec3da8bcSJed Brown 33*ec3da8bcSJed Brown /// CEED_DEBUG_COLOR default value, forward CeedDebug* declarations & macros 34*ec3da8bcSJed Brown #ifndef CEED_DEBUG_COLOR 35*ec3da8bcSJed Brown #define CEED_DEBUG_COLOR 0 36*ec3da8bcSJed Brown #endif 37*ec3da8bcSJed Brown CEED_EXTERN void CeedDebugImpl(const Ceed,const char *,...); 38*ec3da8bcSJed Brown CEED_EXTERN void CeedDebugImpl256(const Ceed,const unsigned char,const char *, 39*ec3da8bcSJed Brown ...); 40*ec3da8bcSJed Brown #define CeedDebug1(ceed,format, ...) CeedDebugImpl(ceed,format, ## __VA_ARGS__) 41*ec3da8bcSJed Brown #define CeedDebug256(ceed,color, ...) CeedDebugImpl256(ceed,color, ## __VA_ARGS__) 42*ec3da8bcSJed Brown #define CeedDebug(...) CeedDebug256(ceed,(unsigned char)CEED_DEBUG_COLOR, ## __VA_ARGS__) 43*ec3da8bcSJed Brown 44*ec3da8bcSJed Brown /// Handle for object handling TensorContraction 45*ec3da8bcSJed Brown /// @ingroup CeedBasis 46*ec3da8bcSJed Brown typedef struct CeedTensorContract_private *CeedTensorContract; 47*ec3da8bcSJed Brown 48*ec3da8bcSJed Brown /* In the next 3 functions, p has to be the address of a pointer type, i.e. p 49*ec3da8bcSJed Brown has to be a pointer to a pointer. */ 50*ec3da8bcSJed Brown CEED_INTERN int CeedMallocArray(size_t n, size_t unit, void *p); 51*ec3da8bcSJed Brown CEED_INTERN int CeedCallocArray(size_t n, size_t unit, void *p); 52*ec3da8bcSJed Brown CEED_INTERN int CeedReallocArray(size_t n, size_t unit, void *p); 53*ec3da8bcSJed Brown CEED_INTERN int CeedFree(void *p); 54*ec3da8bcSJed Brown 55*ec3da8bcSJed Brown #define CeedChk(ierr) do { int ierr_ = ierr; if (ierr_) return ierr_; } while (0) 56*ec3da8bcSJed Brown #define CeedChkBackend(ierr) do { int ierr_ = ierr; if (ierr_) { if (ierr_ > CEED_ERROR_SUCCESS) return CEED_ERROR_BACKEND; else return ierr_; } } while (0) 57*ec3da8bcSJed Brown /* Note that CeedMalloc and CeedCalloc will, generally, return pointers with 58*ec3da8bcSJed Brown different memory alignments: CeedMalloc returns pointers aligned at 59*ec3da8bcSJed Brown CEED_ALIGN bytes, while CeedCalloc uses the alignment of calloc. */ 60*ec3da8bcSJed Brown #define CeedMalloc(n, p) CeedMallocArray((n), sizeof(**(p)), p) 61*ec3da8bcSJed Brown #define CeedCalloc(n, p) CeedCallocArray((n), sizeof(**(p)), p) 62*ec3da8bcSJed Brown #define CeedRealloc(n, p) CeedReallocArray((n), sizeof(**(p)), p) 63*ec3da8bcSJed Brown 64*ec3da8bcSJed Brown /// Handle for object describing CeedQFunction fields 65*ec3da8bcSJed Brown /// @ingroup CeedQFunctionBackend 66*ec3da8bcSJed Brown typedef struct CeedQFunctionField_private *CeedQFunctionField; 67*ec3da8bcSJed Brown /// Handle for object describing CeedOperator fields 68*ec3da8bcSJed Brown /// @ingroup CeedOperatorBackend 69*ec3da8bcSJed Brown typedef struct CeedOperatorField_private *CeedOperatorField; 70*ec3da8bcSJed Brown 71*ec3da8bcSJed Brown CEED_EXTERN int CeedRegister(const char *prefix, 72*ec3da8bcSJed Brown int (*init)(const char *, Ceed), 73*ec3da8bcSJed Brown unsigned int priority); 74*ec3da8bcSJed Brown 75*ec3da8bcSJed Brown CEED_EXTERN int CeedIsDebug(Ceed ceed, bool *isDebug); 76*ec3da8bcSJed Brown CEED_EXTERN int CeedGetParent(Ceed ceed, Ceed *parent); 77*ec3da8bcSJed Brown CEED_EXTERN int CeedGetDelegate(Ceed ceed, Ceed *delegate); 78*ec3da8bcSJed Brown CEED_EXTERN int CeedSetDelegate(Ceed ceed, Ceed delegate); 79*ec3da8bcSJed Brown CEED_EXTERN int CeedGetObjectDelegate(Ceed ceed, Ceed *delegate, 80*ec3da8bcSJed Brown const char *objname); 81*ec3da8bcSJed Brown CEED_EXTERN int CeedSetObjectDelegate(Ceed ceed, Ceed delegate, 82*ec3da8bcSJed Brown const char *objname); 83*ec3da8bcSJed Brown CEED_EXTERN int CeedGetOperatorFallbackResource(Ceed ceed, 84*ec3da8bcSJed Brown const char **resource); 85*ec3da8bcSJed Brown CEED_EXTERN int CeedSetOperatorFallbackResource(Ceed ceed, 86*ec3da8bcSJed Brown const char *resource); 87*ec3da8bcSJed Brown CEED_EXTERN int CeedGetOperatorFallbackParentCeed(Ceed ceed, Ceed *parent); 88*ec3da8bcSJed Brown CEED_EXTERN int CeedSetDeterministic(Ceed ceed, bool isDeterministic); 89*ec3da8bcSJed Brown CEED_EXTERN int CeedSetBackendFunction(Ceed ceed, 90*ec3da8bcSJed Brown const char *type, void *object, 91*ec3da8bcSJed Brown const char *fname, int (*f)()); 92*ec3da8bcSJed Brown CEED_EXTERN int CeedGetData(Ceed ceed, void *data); 93*ec3da8bcSJed Brown CEED_EXTERN int CeedSetData(Ceed ceed, void *data); 94*ec3da8bcSJed Brown 95*ec3da8bcSJed Brown CEED_EXTERN int CeedVectorGetCeed(CeedVector vec, Ceed *ceed); 96*ec3da8bcSJed Brown CEED_EXTERN int CeedVectorGetState(CeedVector vec, uint64_t *state); 97*ec3da8bcSJed Brown CEED_EXTERN int CeedVectorAddReference(CeedVector vec); 98*ec3da8bcSJed Brown CEED_EXTERN int CeedVectorGetData(CeedVector vec, void *data); 99*ec3da8bcSJed Brown CEED_EXTERN int CeedVectorSetData(CeedVector vec, void *data); 100*ec3da8bcSJed Brown 101*ec3da8bcSJed Brown CEED_EXTERN int CeedElemRestrictionGetCeed(CeedElemRestriction rstr, 102*ec3da8bcSJed Brown Ceed *ceed); 103*ec3da8bcSJed Brown CEED_EXTERN int CeedElemRestrictionGetStrides(CeedElemRestriction rstr, 104*ec3da8bcSJed Brown CeedInt (*strides)[3]); 105*ec3da8bcSJed Brown CEED_EXTERN int CeedElemRestrictionGetOffsets(CeedElemRestriction rstr, 106*ec3da8bcSJed Brown CeedMemType mtype, const CeedInt **offsets); 107*ec3da8bcSJed Brown CEED_EXTERN int CeedElemRestrictionRestoreOffsets(CeedElemRestriction rstr, 108*ec3da8bcSJed Brown const CeedInt **offsets); 109*ec3da8bcSJed Brown CEED_EXTERN int CeedElemRestrictionIsStrided(CeedElemRestriction rstr, 110*ec3da8bcSJed Brown bool *isstrided); 111*ec3da8bcSJed Brown CEED_EXTERN int CeedElemRestrictionHasBackendStrides( CeedElemRestriction rstr, 112*ec3da8bcSJed Brown bool *hasbackendstrides); 113*ec3da8bcSJed Brown CEED_EXTERN int CeedElemRestrictionGetELayout(CeedElemRestriction rstr, 114*ec3da8bcSJed Brown CeedInt (*layout)[3]); 115*ec3da8bcSJed Brown CEED_EXTERN int CeedElemRestrictionSetELayout(CeedElemRestriction rstr, 116*ec3da8bcSJed Brown CeedInt layout[3]); 117*ec3da8bcSJed Brown CEED_EXTERN int CeedElemRestrictionGetData(CeedElemRestriction rstr, 118*ec3da8bcSJed Brown void *data); 119*ec3da8bcSJed Brown CEED_EXTERN int CeedElemRestrictionSetData(CeedElemRestriction rstr, 120*ec3da8bcSJed Brown void *data); 121*ec3da8bcSJed Brown 122*ec3da8bcSJed Brown CEED_EXTERN int CeedBasisGetCollocatedGrad(CeedBasis basis, 123*ec3da8bcSJed Brown CeedScalar *colograd1d); 124*ec3da8bcSJed Brown CEED_EXTERN int CeedHouseholderApplyQ(CeedScalar *A, const CeedScalar *Q, 125*ec3da8bcSJed Brown const CeedScalar *tau, CeedTransposeMode tmode, CeedInt m, CeedInt n, 126*ec3da8bcSJed Brown CeedInt k, CeedInt row, CeedInt col); 127*ec3da8bcSJed Brown CEED_EXTERN int CeedBasisGetCeed(CeedBasis basis, Ceed *ceed); 128*ec3da8bcSJed Brown CEED_EXTERN int CeedBasisIsTensor(CeedBasis basis, bool *istensor); 129*ec3da8bcSJed Brown CEED_EXTERN int CeedBasisGetData(CeedBasis basis, void *data); 130*ec3da8bcSJed Brown CEED_EXTERN int CeedBasisSetData(CeedBasis basis, void *data); 131*ec3da8bcSJed Brown 132*ec3da8bcSJed Brown CEED_EXTERN int CeedBasisGetTopologyDimension(CeedElemTopology topo, 133*ec3da8bcSJed Brown CeedInt *dim); 134*ec3da8bcSJed Brown 135*ec3da8bcSJed Brown CEED_EXTERN int CeedBasisGetTensorContract(CeedBasis basis, 136*ec3da8bcSJed Brown CeedTensorContract *contract); 137*ec3da8bcSJed Brown CEED_EXTERN int CeedBasisSetTensorContract(CeedBasis basis, 138*ec3da8bcSJed Brown CeedTensorContract *contract); 139*ec3da8bcSJed Brown CEED_EXTERN int CeedTensorContractCreate(Ceed ceed, CeedBasis basis, 140*ec3da8bcSJed Brown CeedTensorContract *contract); 141*ec3da8bcSJed Brown CEED_EXTERN int CeedTensorContractApply(CeedTensorContract contract, CeedInt A, 142*ec3da8bcSJed Brown CeedInt B, CeedInt C, CeedInt J, 143*ec3da8bcSJed Brown const CeedScalar *__restrict__ t, 144*ec3da8bcSJed Brown CeedTransposeMode tmode, 145*ec3da8bcSJed Brown const CeedInt Add, 146*ec3da8bcSJed Brown const CeedScalar *__restrict__ u, 147*ec3da8bcSJed Brown CeedScalar *__restrict__ v); 148*ec3da8bcSJed Brown CEED_EXTERN int CeedTensorContractGetCeed(CeedTensorContract contract, 149*ec3da8bcSJed Brown Ceed *ceed); 150*ec3da8bcSJed Brown CEED_EXTERN int CeedTensorContractGetData(CeedTensorContract contract, 151*ec3da8bcSJed Brown void *data); 152*ec3da8bcSJed Brown CEED_EXTERN int CeedTensorContractSetData(CeedTensorContract contract, 153*ec3da8bcSJed Brown void *data); 154*ec3da8bcSJed Brown CEED_EXTERN int CeedTensorContractDestroy(CeedTensorContract *contract); 155*ec3da8bcSJed Brown 156*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionRegister(const char *, const char *, CeedInt, 157*ec3da8bcSJed Brown CeedQFunctionUser, int (*init)(Ceed, const char *, CeedQFunction)); 158*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionSetFortranStatus(CeedQFunction qf, bool status); 159*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionGetCeed(CeedQFunction qf, Ceed *ceed); 160*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionGetVectorLength(CeedQFunction qf, 161*ec3da8bcSJed Brown CeedInt *vlength); 162*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionGetNumArgs(CeedQFunction qf, 163*ec3da8bcSJed Brown CeedInt *numinputfields, 164*ec3da8bcSJed Brown CeedInt *numoutputfields); 165*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionGetSourcePath(CeedQFunction qf, char **source); 166*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionGetUserFunction(CeedQFunction qf, 167*ec3da8bcSJed Brown CeedQFunctionUser *f); 168*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionGetContext(CeedQFunction qf, 169*ec3da8bcSJed Brown CeedQFunctionContext *ctx); 170*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionGetInnerContext(CeedQFunction qf, 171*ec3da8bcSJed Brown CeedQFunctionContext *ctx); 172*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionIsIdentity(CeedQFunction qf, bool *isidentity); 173*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionGetData(CeedQFunction qf, void *data); 174*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionSetData(CeedQFunction qf, void *data); 175*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionGetFields(CeedQFunction qf, 176*ec3da8bcSJed Brown CeedQFunctionField **inputfields, 177*ec3da8bcSJed Brown CeedQFunctionField **outputfields); 178*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionFieldGetName(CeedQFunctionField qffield, 179*ec3da8bcSJed Brown char **fieldname); 180*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionFieldGetSize(CeedQFunctionField qffield, 181*ec3da8bcSJed Brown CeedInt *size); 182*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionFieldGetEvalMode(CeedQFunctionField qffield, 183*ec3da8bcSJed Brown CeedEvalMode *emode); 184*ec3da8bcSJed Brown 185*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionContextGetCeed(CeedQFunctionContext cxt, 186*ec3da8bcSJed Brown Ceed *ceed); 187*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionContextGetState(CeedQFunctionContext ctx, 188*ec3da8bcSJed Brown uint64_t *state); 189*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionContextGetContextSize(CeedQFunctionContext ctx, 190*ec3da8bcSJed Brown size_t *ctxsize); 191*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionContextGetBackendData(CeedQFunctionContext ctx, 192*ec3da8bcSJed Brown void *data); 193*ec3da8bcSJed Brown CEED_EXTERN int CeedQFunctionContextSetBackendData(CeedQFunctionContext ctx, 194*ec3da8bcSJed Brown void *data); 195*ec3da8bcSJed Brown 196*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorGetCeed(CeedOperator op, Ceed *ceed); 197*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorGetNumElements(CeedOperator op, CeedInt *numelem); 198*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorGetNumQuadraturePoints(CeedOperator op, 199*ec3da8bcSJed Brown CeedInt *numqpts); 200*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorGetNumArgs(CeedOperator op, CeedInt *numargs); 201*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorIsSetupDone(CeedOperator op, bool *issetupdone); 202*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorGetQFunction(CeedOperator op, CeedQFunction *qf); 203*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorIsComposite(CeedOperator op, bool *iscomposite); 204*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorGetNumSub(CeedOperator op, CeedInt *numsub); 205*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorGetSubList(CeedOperator op, 206*ec3da8bcSJed Brown CeedOperator **suboperators); 207*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorGetData(CeedOperator op, void *data); 208*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorSetData(CeedOperator op, void *data); 209*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorSetSetupDone(CeedOperator op); 210*ec3da8bcSJed Brown 211*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorGetFields(CeedOperator op, 212*ec3da8bcSJed Brown CeedOperatorField **inputfields, 213*ec3da8bcSJed Brown CeedOperatorField **outputfields); 214*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorFieldGetElemRestriction(CeedOperatorField opfield, 215*ec3da8bcSJed Brown CeedElemRestriction *rstr); 216*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorFieldGetBasis(CeedOperatorField opfield, 217*ec3da8bcSJed Brown CeedBasis *basis); 218*ec3da8bcSJed Brown CEED_EXTERN int CeedOperatorFieldGetVector(CeedOperatorField opfield, 219*ec3da8bcSJed Brown CeedVector *vec); 220*ec3da8bcSJed Brown 221*ec3da8bcSJed Brown CEED_INTERN int CeedMatrixMultiply(Ceed ceed, const CeedScalar *matA, 222*ec3da8bcSJed Brown const CeedScalar *matB, CeedScalar *matC, 223*ec3da8bcSJed Brown CeedInt m, CeedInt n, CeedInt kk); 224*ec3da8bcSJed Brown 225*ec3da8bcSJed Brown #endif 226