10c784865Scamierjs // Copyright (c) 2017-2018, Lawrence Livermore National Security, LLC. 20c784865Scamierjs // Produced at the Lawrence Livermore National Laboratory. LLNL-CODE-734707. 30c784865Scamierjs // All Rights reserved. See files LICENSE and NOTICE for details. 4ae3cba82Scamierjs // 5ae3cba82Scamierjs // This file is part of CEED, a collection of benchmarks, miniapps, software 6ae3cba82Scamierjs // libraries and APIs for efficient high-order finite element and spectral 7ae3cba82Scamierjs // element discretizations for exascale applications. For more information and 8ae3cba82Scamierjs // source code availability see http://github.com/ceed. 9ae3cba82Scamierjs // 10ae3cba82Scamierjs // The CEED research is supported by the Exascale Computing Project 17-SC-20-SC, 11ae3cba82Scamierjs // a collaborative effort of two U.S. Department of Energy organizations (Office 12ae3cba82Scamierjs // of Science and the National Nuclear Security Administration) responsible for 13ae3cba82Scamierjs // the planning and preparation of a capable exascale ecosystem, including 14ae3cba82Scamierjs // software, applications, hardware, advanced system engineering and early 15ae3cba82Scamierjs // testbed platforms, in support of the nation's exascale computing imperative. 16ae3cba82Scamierjs 17ec3da8bcSJed Brown #include <ceed/ceed.h> 18ec3da8bcSJed Brown #include <ceed/backend.h> 193d576824SJeremy L Thompson #include <string.h> 2021617c04Sjeremylt #include "ceed-ref.h" 21ae3cba82Scamierjs 22f10650afSjeremylt //------------------------------------------------------------------------------ 23f10650afSjeremylt // Backend Init 24f10650afSjeremylt //------------------------------------------------------------------------------ 25ae3cba82Scamierjs static int CeedInit_Ref(const char *resource, Ceed ceed) { 26fe2413ffSjeremylt int ierr; 276f7d248dSjeremylt if (strcmp(resource, "/cpu/self") && strcmp(resource, "/cpu/self/ref") 28856142e1Sjeremylt && strcmp(resource, "/cpu/self/ref/serial")) 29c042f62fSJeremy L Thompson // LCOV_EXCL_START 30e15f9bd0SJeremy L Thompson return CeedError(ceed, CEED_ERROR_BACKEND, 31e15f9bd0SJeremy L Thompson "Ref backend cannot use resource: %s", resource); 32c042f62fSJeremy L Thompson // LCOV_EXCL_STOP 33e15f9bd0SJeremy L Thompson ierr = CeedSetDeterministic(ceed, true); CeedChkBackend(ierr); 346f7d248dSjeremylt 35f8902d9eSjeremylt ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, "VectorCreate", 36e15f9bd0SJeremy L Thompson CeedVectorCreate_Ref); CeedChkBackend(ierr); 37fe2413ffSjeremylt ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, "BasisCreateTensorH1", 38e15f9bd0SJeremy L Thompson CeedBasisCreateTensorH1_Ref); CeedChkBackend(ierr); 39fe2413ffSjeremylt ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, "BasisCreateH1", 40e15f9bd0SJeremy L Thompson CeedBasisCreateH1_Ref); CeedChkBackend(ierr); 4150c301a5SRezgar Shakeri ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, "BasisCreateHdiv", 4250c301a5SRezgar Shakeri CeedBasisCreateHdiv_Ref); CeedChkBackend(ierr); 432f86a920SJeremy L Thompson ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, "TensorContractCreate", 44e15f9bd0SJeremy L Thompson CeedTensorContractCreate_Ref); CeedChkBackend(ierr); 45fe2413ffSjeremylt ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, "ElemRestrictionCreate", 46e15f9bd0SJeremy L Thompson CeedElemRestrictionCreate_Ref); CeedChkBackend(ierr); 471dfeef1dSjeremylt ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, 48*fc0567d9Srezgarshakeri "ElemRestrictionCreateOriented", 49*fc0567d9Srezgarshakeri CeedElemRestrictionCreateOriented_Ref); CeedChkBackend(ierr); 50*fc0567d9Srezgarshakeri ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, 511dfeef1dSjeremylt "ElemRestrictionCreateBlocked", 52e15f9bd0SJeremy L Thompson CeedElemRestrictionCreate_Ref); CeedChkBackend(ierr); 53fe2413ffSjeremylt ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, "QFunctionCreate", 54e15f9bd0SJeremy L Thompson CeedQFunctionCreate_Ref); CeedChkBackend(ierr); 55777ff853SJeremy L Thompson ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, "QFunctionContextCreate", 56e15f9bd0SJeremy L Thompson CeedQFunctionContextCreate_Ref); CeedChkBackend(ierr); 57fe2413ffSjeremylt ierr = CeedSetBackendFunction(ceed, "Ceed", ceed, "OperatorCreate", 58e15f9bd0SJeremy L Thompson CeedOperatorCreate_Ref); CeedChkBackend(ierr); 59e15f9bd0SJeremy L Thompson return CEED_ERROR_SUCCESS; 60ae3cba82Scamierjs } 61ae3cba82Scamierjs 62f10650afSjeremylt //------------------------------------------------------------------------------ 63f10650afSjeremylt // Backend Register 64f10650afSjeremylt //------------------------------------------------------------------------------ 651d013790SJed Brown CEED_INTERN int CeedRegister_Ref(void) { 661d013790SJed Brown return 679ddbf157Sjeremylt //! [Register] 68706bc5e6Sjeremylt CeedRegister("/cpu/self/ref/serial", CeedInit_Ref, 50); 699ddbf157Sjeremylt //! [Register] 70ae3cba82Scamierjs } 71f10650afSjeremylt //------------------------------------------------------------------------------ 72