1 // Copyright (c) 2017-2024, 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.h> 9 #include <ceed/backend.h> 10 #include <ceed/jit-source/hip/hip-types.h> 11 #include <stddef.h> 12 13 #include "../hip/ceed-hip-common.h" 14 #include "../hip/ceed-hip-compile.h" 15 #include "ceed-hip-gen-operator-build.h" 16 #include "ceed-hip-gen.h" 17 18 //------------------------------------------------------------------------------ 19 // Destroy operator 20 //------------------------------------------------------------------------------ 21 static int CeedOperatorDestroy_Hip_gen(CeedOperator op) { 22 CeedOperator_Hip_gen *impl; 23 24 CeedCallBackend(CeedOperatorGetData(op, &impl)); 25 CeedCallBackend(CeedFree(&impl)); 26 return CEED_ERROR_SUCCESS; 27 } 28 29 //------------------------------------------------------------------------------ 30 // Apply and add to output 31 //------------------------------------------------------------------------------ 32 static int CeedOperatorApplyAdd_Hip_gen(CeedOperator op, CeedVector input_vec, CeedVector output_vec, CeedRequest *request) { 33 Ceed ceed; 34 CeedInt num_elem, num_input_fields, num_output_fields; 35 CeedEvalMode eval_mode; 36 CeedVector output_vecs[CEED_FIELD_MAX] = {NULL}; 37 CeedQFunctionField *qf_input_fields, *qf_output_fields; 38 CeedQFunction_Hip_gen *qf_data; 39 CeedQFunction qf; 40 CeedOperatorField *op_input_fields, *op_output_fields; 41 CeedOperator_Hip_gen *data; 42 43 CeedCallBackend(CeedOperatorGetCeed(op, &ceed)); 44 CeedCallBackend(CeedOperatorGetData(op, &data)); 45 CeedCallBackend(CeedOperatorGetQFunction(op, &qf)); 46 CeedCallBackend(CeedQFunctionGetData(qf, &qf_data)); 47 CeedCallBackend(CeedOperatorGetNumElements(op, &num_elem)); 48 CeedCallBackend(CeedOperatorGetFields(op, &num_input_fields, &op_input_fields, &num_output_fields, &op_output_fields)); 49 CeedCallBackend(CeedQFunctionGetFields(qf, NULL, &qf_input_fields, NULL, &qf_output_fields)); 50 51 // Check for tensor-product bases 52 { 53 bool has_tensor_bases; 54 55 CeedCallBackend(CeedOperatorHasTensorBases(op, &has_tensor_bases)); 56 // -- Fallback to ref if not all bases are tensor-product 57 if (!has_tensor_bases) { 58 CeedOperator op_fallback; 59 60 CeedDebug256(ceed, CEED_DEBUG_COLOR_SUCCESS, "Falling back to /gpu/hip/ref CeedOperator due to non-tensor bases"); 61 CeedCallBackend(CeedDestroy(&ceed)); 62 CeedCallBackend(CeedOperatorGetFallback(op, &op_fallback)); 63 CeedCallBackend(CeedOperatorApplyAdd(op_fallback, input_vec, output_vec, request)); 64 return CEED_ERROR_SUCCESS; 65 } 66 } 67 68 // Creation of the operator 69 CeedCallBackend(CeedOperatorBuildKernel_Hip_gen(op)); 70 71 // Input vectors 72 for (CeedInt i = 0; i < num_input_fields; i++) { 73 CeedCallBackend(CeedQFunctionFieldGetEvalMode(qf_input_fields[i], &eval_mode)); 74 if (eval_mode == CEED_EVAL_WEIGHT) { // Skip 75 data->fields.inputs[i] = NULL; 76 } else { 77 CeedVector vec; 78 79 // Get input vector 80 CeedCallBackend(CeedOperatorFieldGetVector(op_input_fields[i], &vec)); 81 if (vec == CEED_VECTOR_ACTIVE) vec = input_vec; 82 CeedCallBackend(CeedVectorGetArrayRead(vec, CEED_MEM_DEVICE, &data->fields.inputs[i])); 83 } 84 } 85 86 // Output vectors 87 for (CeedInt i = 0; i < num_output_fields; i++) { 88 CeedCallBackend(CeedQFunctionFieldGetEvalMode(qf_output_fields[i], &eval_mode)); 89 if (eval_mode == CEED_EVAL_WEIGHT) { // Skip 90 data->fields.outputs[i] = NULL; 91 } else { 92 CeedVector vec; 93 94 // Get output vector 95 CeedCallBackend(CeedOperatorFieldGetVector(op_output_fields[i], &vec)); 96 if (vec == CEED_VECTOR_ACTIVE) vec = output_vec; 97 output_vecs[i] = vec; 98 // Check for multiple output modes 99 CeedInt index = -1; 100 for (CeedInt j = 0; j < i; j++) { 101 if (vec == output_vecs[j]) { 102 index = j; 103 break; 104 } 105 } 106 if (index == -1) { 107 CeedCallBackend(CeedVectorGetArray(vec, CEED_MEM_DEVICE, &data->fields.outputs[i])); 108 } else { 109 data->fields.outputs[i] = data->fields.outputs[index]; 110 } 111 } 112 } 113 114 // Get context data 115 CeedCallBackend(CeedQFunctionGetInnerContextData(qf, CEED_MEM_DEVICE, &qf_data->d_c)); 116 117 // Apply operator 118 void *opargs[] = {(void *)&num_elem, &qf_data->d_c, &data->indices, &data->fields, &data->B, &data->G, &data->W}; 119 const CeedInt dim = data->dim; 120 const CeedInt Q_1d = data->Q_1d; 121 const CeedInt P_1d = data->max_P_1d; 122 const CeedInt thread_1d = CeedIntMax(Q_1d, P_1d); 123 CeedInt block_sizes[3]; 124 125 CeedCallBackend(BlockGridCalculate_Hip_gen(dim, num_elem, P_1d, Q_1d, block_sizes)); 126 if (dim == 1) { 127 CeedInt grid = num_elem / block_sizes[2] + ((num_elem / block_sizes[2] * block_sizes[2] < num_elem) ? 1 : 0); 128 CeedInt sharedMem = block_sizes[2] * thread_1d * sizeof(CeedScalar); 129 130 CeedCallBackend(CeedRunKernelDimShared_Hip(ceed, data->op, grid, block_sizes[0], block_sizes[1], block_sizes[2], sharedMem, opargs)); 131 } else if (dim == 2) { 132 CeedInt grid = num_elem / block_sizes[2] + ((num_elem / block_sizes[2] * block_sizes[2] < num_elem) ? 1 : 0); 133 CeedInt sharedMem = block_sizes[2] * thread_1d * thread_1d * sizeof(CeedScalar); 134 135 CeedCallBackend(CeedRunKernelDimShared_Hip(ceed, data->op, grid, block_sizes[0], block_sizes[1], block_sizes[2], sharedMem, opargs)); 136 } else if (dim == 3) { 137 CeedInt grid = num_elem / block_sizes[2] + ((num_elem / block_sizes[2] * block_sizes[2] < num_elem) ? 1 : 0); 138 CeedInt sharedMem = block_sizes[2] * thread_1d * thread_1d * sizeof(CeedScalar); 139 140 CeedCallBackend(CeedRunKernelDimShared_Hip(ceed, data->op, grid, block_sizes[0], block_sizes[1], block_sizes[2], sharedMem, opargs)); 141 } 142 143 // Restore input arrays 144 for (CeedInt i = 0; i < num_input_fields; i++) { 145 CeedCallBackend(CeedQFunctionFieldGetEvalMode(qf_input_fields[i], &eval_mode)); 146 if (eval_mode == CEED_EVAL_WEIGHT) { // Skip 147 } else { 148 CeedVector vec; 149 150 CeedCallBackend(CeedOperatorFieldGetVector(op_input_fields[i], &vec)); 151 if (vec == CEED_VECTOR_ACTIVE) vec = input_vec; 152 CeedCallBackend(CeedVectorRestoreArrayRead(vec, &data->fields.inputs[i])); 153 } 154 } 155 156 // Restore output arrays 157 for (CeedInt i = 0; i < num_output_fields; i++) { 158 CeedCallBackend(CeedQFunctionFieldGetEvalMode(qf_output_fields[i], &eval_mode)); 159 if (eval_mode == CEED_EVAL_WEIGHT) { // Skip 160 } else { 161 CeedVector vec; 162 163 CeedCallBackend(CeedOperatorFieldGetVector(op_output_fields[i], &vec)); 164 if (vec == CEED_VECTOR_ACTIVE) vec = output_vec; 165 // Check for multiple output modes 166 CeedInt index = -1; 167 for (CeedInt j = 0; j < i; j++) { 168 if (vec == output_vecs[j]) { 169 index = j; 170 break; 171 } 172 } 173 if (index == -1) { 174 CeedCallBackend(CeedVectorRestoreArray(vec, &data->fields.outputs[i])); 175 } 176 } 177 } 178 179 // Restore context data 180 CeedCallBackend(CeedQFunctionRestoreInnerContextData(qf, &qf_data->d_c)); 181 CeedCallBackend(CeedDestroy(&ceed)); 182 return CEED_ERROR_SUCCESS; 183 } 184 185 //------------------------------------------------------------------------------ 186 // Create operator 187 //------------------------------------------------------------------------------ 188 int CeedOperatorCreate_Hip_gen(CeedOperator op) { 189 Ceed ceed; 190 CeedOperator_Hip_gen *impl; 191 192 CeedCallBackend(CeedOperatorGetCeed(op, &ceed)); 193 CeedCallBackend(CeedCalloc(1, &impl)); 194 CeedCallBackend(CeedOperatorSetData(op, impl)); 195 CeedCallBackend(CeedSetBackendFunction(ceed, "Operator", op, "ApplyAdd", CeedOperatorApplyAdd_Hip_gen)); 196 CeedCallBackend(CeedSetBackendFunction(ceed, "Operator", op, "Destroy", CeedOperatorDestroy_Hip_gen)); 197 CeedCallBackend(CeedDestroy(&ceed)); 198 return CEED_ERROR_SUCCESS; 199 } 200 201 //------------------------------------------------------------------------------ 202