-
Notifications
You must be signed in to change notification settings - Fork 6
/
initialise_chunk_kernel_ocl.C
98 lines (77 loc) · 3.4 KB
/
initialise_chunk_kernel_ocl.C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
/*Crown Copyright 2012 AWE.
*
* This file is part of CloverLeaf.
*
* CloverLeaf is free software: you can redistribute it and/or modify it under
* the terms of the GNU General Public License as published by the
* Free Software Foundation, either version 3 of the License, or (at your option)
* any later version.
*
* CloverLeaf is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
* details.
*
* You should have received a copy of the GNU General Public License along with
* CloverLeaf. If not, see http://www.gnu.org/licenses/. */
/**
* @brief OCL host-side initialise chunk kernel.
* @author Andrew Mallinson, David Beckingsale
* @details Launches the OCL device-side initialise chunk kernel
*/
#include "CloverCL.h"
#include <sys/time.h>
extern "C" void initialise_chunk_kernel_ocl_(int *x_min, int *x_max,
int *y_min, int *y_max,
double *xmin, double *ymin,
double *dx, double *dy);
void initialise_chunk_kernel_ocl_(int *x_min, int *x_max,
int *y_min, int *y_max,
double *xmin, double *ymin,
double *dx, double *dy)
{
#if PROFILE_OCL_KERNELS
timeval t_start;
gettimeofday(&t_start, NULL);
#endif
try {
CloverCL::initialise_chunk_cell_x_knl.setArg(0, *dx);
} catch(cl::Error err) {
CloverCL::reportError(err, "initialise chunk setting arguments cell x kernel");
}
try {
CloverCL::initialise_chunk_cell_y_knl.setArg(0, *dy);
} catch(cl::Error err) {
CloverCL::reportError(err, "initialise chunk setting arguments cell y kernel");
}
try {
CloverCL::initialise_chunk_vertex_x_knl.setArg(0, *xmin);
CloverCL::initialise_chunk_vertex_x_knl.setArg(1, *dx);
} catch(cl::Error err) {
CloverCL::reportError(err, "initialise chunk setting arguments vertex x kernel");
}
try {
CloverCL::initialise_chunk_vertex_y_knl.setArg(0, *ymin);
CloverCL::initialise_chunk_vertex_y_knl.setArg(1, *dy);
} catch(cl::Error err) {
CloverCL::reportError(err, "initialise chunk setting arguments vertex y kernel");
}
try {
CloverCL::initialise_chunk_volume_area_knl.setArg(0, *dx);
CloverCL::initialise_chunk_volume_area_knl.setArg(1, *dy);
} catch(cl::Error err) {
CloverCL::reportError(err, "initialise chunk setting arguments volume area kernel");
}
CloverCL::enqueueKernel( CloverCL::initialise_chunk_vertex_x_knl, *x_min, *x_max+5);
CloverCL::enqueueKernel( CloverCL::initialise_chunk_vertex_y_knl, *y_min, *y_max+5);
CloverCL::enqueueKernel( CloverCL::initialise_chunk_cell_x_knl, *x_min, *x_max+4);
CloverCL::enqueueKernel( CloverCL::initialise_chunk_cell_y_knl, *y_min, *y_max+4);
CloverCL::enqueueKernel_nooffsets_localwg( CloverCL::initialise_chunk_volume_area_knl, *x_max+4, *y_max+4, 64, 2);
#if PROFILE_OCL_KERNELS
timeval t_end;
CloverCL::queue.finish();
gettimeofday(&t_end, NULL);
CloverCL::initialise_chunk_time += (t_end.tv_sec * 1.0E6 + t_end.tv_usec) - (t_start.tv_sec * 1.0E6 + t_start.tv_usec);
CloverCL::initialise_chunk_count++;
#endif
}