1 // Copyright (c) 2017-2022, Lawrence Livermore National Security, LLC and other CEED contributors. 2 // All Rights Reserved. See the top-level LICENSE and NOTICE files for details. 3 // 4 // SPDX-License-Identifier: BSD-2-Clause 5 // 6 // This file is part of CEED: http://github.com/ceed 7 8 #include "ceed-magma.h" 9 10 #include <ceed.h> 11 #include <ceed/backend.h> 12 #include <stdlib.h> 13 #include <string.h> 14 15 #include "ceed-magma-common.h" 16 17 //------------------------------------------------------------------------------ 18 // Backend Init 19 //------------------------------------------------------------------------------ 20 static int CeedInit_Magma(const char *resource, Ceed ceed) { 21 Ceed ceed_ref; 22 Ceed_Magma *data; 23 const int nrc = 14; // number of characters in resource 24 25 CeedCheck(!strncmp(resource, "/gpu/cuda/magma", nrc) || !strncmp(resource, "/gpu/hip/magma", nrc), ceed, CEED_ERROR_BACKEND, 26 "Magma backend cannot use resource: %s", resource); 27 28 CeedCallBackend(CeedCalloc(1, &data)); 29 CeedCallBackend(CeedSetData(ceed, data)); 30 CeedCallBackend(CeedInit_Magma_common(ceed, resource)); 31 32 // Create reference Ceed that implementation will be dispatched through unless overridden 33 #ifdef CEED_MAGMA_USE_HIP 34 CeedCallBackend(CeedInit("/gpu/hip/ref", &ceed_ref)); 35 #else 36 CeedCallBackend(CeedInit("/gpu/cuda/ref", &ceed_ref)); 37 #endif 38 CeedCallBackend(CeedSetDelegate(ceed, ceed_ref)); 39 40 CeedCallBackend(CeedSetBackendFunction(ceed, "Ceed", ceed, "BasisCreateTensorH1", CeedBasisCreateTensorH1_Magma)); 41 CeedCallBackend(CeedSetBackendFunction(ceed, "Ceed", ceed, "BasisCreateH1", CeedBasisCreateH1_Magma)); 42 CeedCallBackend(CeedSetBackendFunction(ceed, "Ceed", ceed, "Destroy", CeedDestroy_Magma)); 43 return CEED_ERROR_SUCCESS; 44 } 45 46 //------------------------------------------------------------------------------ 47 // Backend Register 48 //------------------------------------------------------------------------------ 49 CEED_INTERN int CeedRegister_Magma(void) { 50 #ifdef CEED_MAGMA_USE_HIP 51 return CeedRegister("/gpu/hip/magma", CeedInit_Magma, 120); 52 #else 53 return CeedRegister("/gpu/cuda/magma", CeedInit_Magma, 120); 54 #endif 55 } 56 57 //------------------------------------------------------------------------------ 58