OilfieldToolsNet/opm-core
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Don't expose a (presently) internal function.

Browse Source
This commit is contained in:
Bård Skaflestad 2012-05-09 18:58:17 +02:00
parent 8afc0571f9
commit fbb8ae77b1
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
opm/core/pressure/tpfa/ifs_tpfa.c
View File

@ -11,8 +11,12 @@
#include <opm/core/pressure/tpfa/ifs_tpfa.h>
void mult_csr_matrix(const struct CSRMatrix* A, const double* u, double* v) {
size_t i,j;
static void
mult_csr_matrix(const struct CSRMatrix* A,
const double* u,
double* v)
{
size_t i, j;
for (j = 0; j < A->m; ++j) {
v[j] = 0;
for (i = (size_t) (A->ia[j]); i < (size_t) (A->ia[j+1]); ++i) {
@ -761,7 +765,7 @@ ifs_tpfa_assemble_comprock_increment(struct UnstructuredGrid *G ,
mult_csr_matrix(h->A, prev_pressure, v);
/* We want to solve a Newton step for the residual
* (porevol(pressure)-porevol(initial_pressure))/dt + residual_for_imcompressible
* (porevol(pressure)-porevol(initial_pressure))/dt + residual_for_imcompressible
*
*/

3
opm/core/pressure/tpfa/ifs_tpfa.h
View File

@ -62,9 +62,6 @@ ifs_tpfa_construct(struct UnstructuredGrid *G,
struct Wells *W);
void mult_csr_matrix(const struct CSRMatrix* A, const double* u, double* v);
int
ifs_tpfa_assemble(struct UnstructuredGrid *G ,
const struct ifs_tpfa_forces *F ,