OilfieldToolsNet/opm-simulators
4
0
Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2024-12-28 02:00:59 -06:00
Code Issues Packages Projects Releases Wiki Activity

Backport to fix ChowPatelIlu

Browse Source
This commit is contained in:
Tong Dong Qiu 2022-06-22 14:29:03 +02:00
parent ac59429e01
commit c4ebed1718
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
opm/simulators/linalg/bda/opencl/BILU0.cpp
View File

@ -136,8 +136,8 @@ bool BILU0<block_size>::analyze_matrix(BlockedMatrix *mat, BlockedMatrix *jacMat
invDiagVals.resize(mat->Nb * bs * bs); invDiagVals.resize(mat->Nb * bs * bs);
#if CHOW_PATEL #if CHOW_PATEL
Lmat = std::make_unique<BlockedMatrix<block_size> >(mat->Nb, (mat->nnzbs - mat->Nb) / 2); Lmat = std::make_unique<BlockedMatrix>(mat->Nb, (mat->nnzbs - mat->Nb) / 2, block_size);
Umat = std::make_unique<BlockedMatrix<block_size> >(mat->Nb, (mat->nnzbs - mat->Nb) / 2); Umat = std::make_unique<BlockedMatrix>(mat->Nb, (mat->nnzbs - mat->Nb) / 2, block_size);
#endif #endif
s.invDiagVals = cl::Buffer(*context, CL_MEM_READ_WRITE, sizeof(double) * bs * bs * mat->Nb); s.invDiagVals = cl::Buffer(*context, CL_MEM_READ_WRITE, sizeof(double) * bs * bs * mat->Nb);
@ -223,9 +223,9 @@ bool BILU0<block_size>::create_preconditioner(BlockedMatrix *mat, BlockedMatrix
} }
#if CHOW_PATEL #if CHOW_PATEL
chowPatelIlu.decomposition(queue, context, chowPatelIlu.decomposition(queue.get(), context.get(),
LUmat.get(), Lmat.get(), Umat.get(), LUmat.get(), Lmat.get(), Umat.get(),
invDiagVals, diagIndex, invDiagVals.data(), diagIndex,
s.diagIndex, s.invDiagVals, s.diagIndex, s.invDiagVals,
s.Lvals, s.Lcols, s.Lrows, s.Lvals, s.Lcols, s.Lrows,
s.Uvals, s.Ucols, s.Urows); s.Uvals, s.Ucols, s.Urows);

1
opm/simulators/linalg/bda/opencl/kernels/ILU_apply1.cl
View File

@ -1,6 +1,7 @@
/// ILU apply part 1: forward substitution. /// ILU apply part 1: forward substitution.
/// Solves L*x=y where L is a lower triangular sparse blocked matrix. /// Solves L*x=y where L is a lower triangular sparse blocked matrix.
/// Here, L is it's own BSR matrix. /// Here, L is it's own BSR matrix.
/// Only used with ChowPatelIlu.
__kernel void ILU_apply1( __kernel void ILU_apply1(
__global const double *LUvals, __global const double *LUvals,
__global const unsigned int *LUcols, __global const unsigned int *LUcols,

1
opm/simulators/linalg/bda/opencl/kernels/ILU_apply2.cl
View File

@ -1,6 +1,7 @@
/// ILU apply part 2: backward substitution. /// ILU apply part 2: backward substitution.
/// Solves U*x=y where U is an upper triangular sparse blocked matrix. /// Solves U*x=y where U is an upper triangular sparse blocked matrix.
/// Here, U is it's own BSR matrix. /// Here, U is it's own BSR matrix.
/// Only used with ChowPatelIlu.
__kernel void ILU_apply2( __kernel void ILU_apply2(
__global const double *LUvals, __global const double *LUvals,
__global const int *LUcols, __global const int *LUcols,