OilfieldToolsNet/opm-simulators
4
0
Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Renamed fgpilu to ChowPatelIlu

Browse Source
This commit is contained in:
tqiu
2021-02-03 17:43:54 +01:00
parent a64a342104
commit c8dca99fad
5 changed files with 31 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
opm/simulators/linalg/bda/BILU0.cpp
View File

@@ -25,7 +25,7 @@
#include <opm/simulators/linalg/bda/BdaSolver.hpp>
#include <opm/simulators/linalg/bda/BILU0.hpp>
#include <opm/simulators/linalg/bda/fgpilu.hpp>
#include <opm/simulators/linalg/bda/ChowPatelIlu.hpp>
#include <opm/simulators/linalg/bda/Reorder.hpp>
@@ -276,7 +276,7 @@ namespace bda
// actual ILU decomposition
#if CHOW_PATEL_GPU
fgpilu.decomposition(queue, context,
chowPatelIlu.decomposition(queue, context,
Ut->rowPointers, Ut->colIndices, Ut->nnzValues, Ut->nnzbs,
Lmat->rowPointers, Lmat->colIndices, Lmat->nnzValues, Lmat->nnzbs,
LUmat->rowPointers, LUmat->colIndices, LUmat->nnzValues, LUmat->nnzbs,

4
opm/simulators/linalg/bda/BILU0.hpp
View File

@@ -24,7 +24,7 @@
#include <opm/simulators/linalg/bda/ILUReorder.hpp>
#include <opm/simulators/linalg/bda/opencl.hpp>
#include <opm/simulators/linalg/bda/fgpilu.hpp>
#include <opm/simulators/linalg/bda/ChowPatelIlu.hpp>
namespace bda
{
@@ -68,7 +68,7 @@ namespace bda
int lmem_per_work_group = 0;
bool pattern_uploaded = false;
FGPILU fgpilu;
ChowPatelIlu chowPatelIlu;
void chow_patel_decomposition();

39
opm/simulators/linalg/bda/fgpilu.cpp → opm/simulators/linalg/bda/ChowPatelIlu.cpp
View File

@@ -22,7 +22,7 @@
#include <opm/common/ErrorMacros.hpp>
#include <dune/common/timer.hh>
#include <opm/simulators/linalg/bda/fgpilu.hpp>
#include <opm/simulators/linalg/bda/ChowPatelIlu.hpp>
namespace bda
{
@@ -50,8 +50,7 @@ namespace bda
#define PARALLEL 0
#if PARALLEL
inline const char* fgpilu_sweep_s = R"(
inline const char* chow_patel_ilu_sweep_s = R"(
#pragma OPENCL EXTENSION cl_khr_fp64 : enable
@@ -137,7 +136,7 @@ void invert(
// all entries in L and U are updated once
// output is written to [LU]tmp
// aij and ujj are local arrays whose size is specified before kernel launch
__kernel void fgpilu_sweep(
__kernel void chow_patel_ilu_sweep(
__global const double * restrict Ut_vals,
__global const double * restrict L_vals,
__global const double * restrict LU_vals,
@@ -268,7 +267,7 @@ __kernel void fgpilu_sweep(
#else
inline const char* fgpilu_sweep_s = R"(
inline const char* chow_patel_ilu_sweep_s = R"(
#pragma OPENCL EXTENSION cl_khr_fp64 : enable
@@ -343,7 +342,7 @@ __kernel void inverter(
// all entries in L and U are updated once
// output is written to [LU]tmp
// aij and ujj are local arrays whose size is specified before kernel launch
__kernel void fgpilu_sweep(
__kernel void chow_patel_ilu_sweep(
__global const double * restrict Ut_vals,
__global const double * restrict L_vals,
__global const double * restrict LU_vals,
@@ -477,7 +476,7 @@ __kernel void fgpilu_sweep(
void FGPILU::decomposition(
void ChowPatelIlu::decomposition(
cl::CommandQueue *queue, cl::Context *context,
int *Ut_ptrs, int *Ut_idxs, double *Ut_vals, int Ut_nnzbs,
int *L_rows, int *L_cols, double *L_vals, int L_nnzbs,
@@ -489,22 +488,22 @@ void FGPILU::decomposition(
try {
// just put everything in the capture list
std::call_once(initialize_flag, [&](){
cl::Program::Sources source(1, std::make_pair(fgpilu_sweep_s, strlen(fgpilu_sweep_s))); // what does this '1' mean? cl::Program::Sources is of type 'std::vector<std::pair<const char*, long unsigned int> >'
cl::Program::Sources source(1, std::make_pair(chow_patel_ilu_sweep_s, strlen(chow_patel_ilu_sweep_s))); // what does this '1' mean? cl::Program::Sources is of type 'std::vector<std::pair<const char*, long unsigned int> >'
cl::Program program = cl::Program(*context, source, &err);
if (err != CL_SUCCESS) {
OPM_THROW(std::logic_error, "FGPILU OpenCL could not create Program");
OPM_THROW(std::logic_error, "ChowPatelIlu OpenCL could not create Program");
}
std::vector<cl::Device> devices = context->getInfo<CL_CONTEXT_DEVICES>();
program.build(devices);
fgpilu_sweep_k.reset(new cl::make_kernel<cl::Buffer&, cl::Buffer&, cl::Buffer&,
chow_patel_ilu_sweep_k.reset(new cl::make_kernel<cl::Buffer&, cl::Buffer&, cl::Buffer&,
cl::Buffer&, cl::Buffer&, cl::Buffer&,
cl::Buffer&, cl::Buffer&, cl::Buffer&,
cl::Buffer&, cl::Buffer&,
const int, cl::LocalSpaceArg, cl::LocalSpaceArg>(cl::Kernel(program, "fgpilu_sweep", &err)));
const int, cl::LocalSpaceArg, cl::LocalSpaceArg>(cl::Kernel(program, "chow_patel_ilu_sweep", &err)));
if (err != CL_SUCCESS) {
OPM_THROW(std::logic_error, "FGPILU OpenCL could not create Kernel");
OPM_THROW(std::logic_error, "ChowPatelIlu OpenCL could not create Kernel");
}
// allocate GPU memory
@@ -532,12 +531,12 @@ void FGPILU::decomposition(
events.clear();
if (verbosity >= 3){
std::ostringstream out;
out << "FGPILU copy sparsity pattern time: " << t_copy_pattern.stop() << " s";
out << "ChowPatelIlu copy sparsity pattern time: " << t_copy_pattern.stop() << " s";
OpmLog::info(out.str());
}
if (verbosity >= 2){
std::ostringstream out;
out << "FGPILU PARALLEL: " << PARALLEL;
out << "ChowPatelIlu PARALLEL: " << PARALLEL;
OpmLog::info(out.str());
}
});
@@ -553,12 +552,12 @@ void FGPILU::decomposition(
events.clear();
if (verbosity >= 3){
std::ostringstream out;
out << "FGPILU copy1 time: " << t_copy1.stop() << " s";
out << "ChowPatelIlu copy1 time: " << t_copy1.stop() << " s";
OpmLog::info(out.str());
}
if (err != CL_SUCCESS) {
// enqueueWriteBuffer is C and does not throw exceptions like C++ OpenCL
OPM_THROW(std::logic_error, "FGPILU OpenCL enqueueWriteBuffer error");
OPM_THROW(std::logic_error, "ChowPatelIlu OpenCL enqueueWriteBuffer error");
}
// call kernel
@@ -580,7 +579,7 @@ void FGPILU::decomposition(
int total_work_items = num_work_groups * work_group_size;
int lmem_per_work_group = work_group_size * block_size * block_size * sizeof(double);
Dune::Timer t_kernel;
event = (*fgpilu_sweep_k)(cl::EnqueueArgs(*queue, cl::NDRange(total_work_items), cl::NDRange(work_group_size)),
event = (*chow_patel_ilu_sweep_k)(cl::EnqueueArgs(*queue, cl::NDRange(total_work_items), cl::NDRange(work_group_size)),
*Uarg1, *Larg1, d_LU_vals,
d_Ut_ptrs, d_L_rows, d_LU_rows,
d_Ut_idxs, d_L_cols, d_LU_cols,
@@ -588,7 +587,7 @@ void FGPILU::decomposition(
event.wait();
if (verbosity >= 3){
std::ostringstream out;
out << "FGPILU sweep kernel time: " << t_kernel.stop() << " s";
out << "ChowPatelIlu sweep kernel time: " << t_kernel.stop() << " s";
OpmLog::info(out.str());
}
}
@@ -607,12 +606,12 @@ void FGPILU::decomposition(
events.clear();
if (verbosity >= 3){
std::ostringstream out;
out << "FGPILU copy2 time: " << t_copy2.stop() << " s";
out << "ChowPatelIlu copy2 time: " << t_copy2.stop() << " s";
OpmLog::info(out.str());
}
if (err != CL_SUCCESS) {
// enqueueReadBuffer is C and does not throw exceptions like C++ OpenCL
OPM_THROW(std::logic_error, "FGPILU OpenCL enqueueReadBuffer error");
OPM_THROW(std::logic_error, "ChowPatelIlu OpenCL enqueueReadBuffer error");
}
} catch (const cl::Error& error) {

12
opm/simulators/linalg/bda/fgpilu.hpp → opm/simulators/linalg/bda/ChowPatelIlu.hpp
View File

@@ -17,8 +17,8 @@
along with OPM. If not, see <http://www.gnu.org/licenses/>.
*/
#ifndef FGPILU_HEADER_INCLUDED
#define FGPILU_HEADER_INCLUDED
#ifndef CHOW_PATEL_ILU_HEADER_INCLUDED
#define CHOW_PATEL_ILU_HEADER_INCLUDED
#include <mutex>
@@ -33,7 +33,7 @@ namespace bda
// FINE-GRAINED PARALLEL INCOMPLETE LU FACTORIZATION, E. Chow and A. Patel, SIAM 2015, https://doi.org/10.1137/140968896
// only blocksize == 3 is supported
// decomposition() allocates the cl::Buffers on the first call, these are C++ objects that deallocate automatically
class FGPILU
class ChowPatelIlu
{
private:
cl::Buffer d_Ut_vals, d_L_vals, d_LU_vals;
@@ -51,10 +51,10 @@ namespace bda
cl::Buffer&, cl::Buffer&, cl::Buffer&,
cl::Buffer&, cl::Buffer&, cl::Buffer&,
cl::Buffer&, cl::Buffer&,
const int, cl::LocalSpaceArg, cl::LocalSpaceArg> > fgpilu_sweep_k;
const int, cl::LocalSpaceArg, cl::LocalSpaceArg> > chow_patel_ilu_sweep_k;
public:
/// Executes the FGPILU sweeps
/// Executes the ChowPatelIlu sweeps
/// also copies data from CPU to GPU and GPU to CPU
/// \param[in] queue OpenCL commandqueue
/// \param[in] context OpenCL context
@@ -84,4 +84,4 @@ namespace bda
} // end namespace bda
#endif // FGPILU_HEADER_INCLUDED
#endif // CHOW_PATEL_ILU_HEADER_INCLUDED