14a2e7687Sjeremylt // Copyright (c) 2017-2018, Lawrence Livermore National Security, LLC. 24a2e7687Sjeremylt // Produced at the Lawrence Livermore National Laboratory. LLNL-CODE-734707. 34a2e7687Sjeremylt // All Rights reserved. See files LICENSE and NOTICE for details. 44a2e7687Sjeremylt // 54a2e7687Sjeremylt // This file is part of CEED, a collection of benchmarks, miniapps, software 64a2e7687Sjeremylt // libraries and APIs for efficient high-order finite element and spectral 74a2e7687Sjeremylt // element discretizations for exascale applications. For more information and 84a2e7687Sjeremylt // source code availability see http://github.com/ceed. 94a2e7687Sjeremylt // 104a2e7687Sjeremylt // The CEED research is supported by the Exascale Computing Project 17-SC-20-SC, 114a2e7687Sjeremylt // a collaborative effort of two U.S. Department of Energy organizations (Office 124a2e7687Sjeremylt // of Science and the National Nuclear Security Administration) responsible for 134a2e7687Sjeremylt // the planning and preparation of a capable exascale ecosystem, including 144a2e7687Sjeremylt // software, applications, hardware, advanced system engineering and early 154a2e7687Sjeremylt // testbed platforms, in support of the nation's exascale computing imperative. 164a2e7687Sjeremylt 174a2e7687Sjeremylt #include <ceed-impl.h> 184a2e7687Sjeremylt #include <string.h> 194a2e7687Sjeremylt #include "ceed-blocked.h" 204a2e7687Sjeremylt 214a2e7687Sjeremylt static int CeedInit_Blocked(const char *resource, Ceed ceed) { 22*4ce2993fSjeremylt int ierr; 234a2e7687Sjeremylt if (strcmp(resource, "/cpu/self") 244a2e7687Sjeremylt && strcmp(resource, "/cpu/self/blocked")) 254a2e7687Sjeremylt return CeedError(ceed, 1, "Blocked backend cannot use resource: %s", resource); 264a2e7687Sjeremylt 274a2e7687Sjeremylt Ceed ceedref; 284a2e7687Sjeremylt 294a2e7687Sjeremylt // Create refrence CEED that implementation will be dispatched 304a2e7687Sjeremylt // through unless overridden 314a2e7687Sjeremylt CeedInit("/cpu/self/ref", &ceedref); 32*4ce2993fSjeremylt ierr = CeedSetDelegate(ceed, &ceedref); CeedChk(ierr); 334a2e7687Sjeremylt 344a2e7687Sjeremylt ceed->BasisCreateTensorH1 = CeedBasisCreateTensorH1_Blocked; 354a2e7687Sjeremylt ceed->BasisCreateH1 = CeedBasisCreateH1_Blocked; 364a2e7687Sjeremylt ceed->OperatorCreate = CeedOperatorCreate_Blocked; 374a2e7687Sjeremylt 384a2e7687Sjeremylt return 0; 394a2e7687Sjeremylt } 404a2e7687Sjeremylt 414a2e7687Sjeremylt __attribute__((constructor)) 424a2e7687Sjeremylt static void Register(void) { 434a2e7687Sjeremylt CeedRegister("/cpu/self/blocked", CeedInit_Blocked, 10); 444a2e7687Sjeremylt } 45