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

Make buildable.

Browse Source 
Pointy hat to: bska.
This commit is contained in:
Bård Skaflestad 2010-09-22 08:07:25 +00:00
parent 96c077f877
commit c81336db05
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hybsys.c
View File

@ -353,7 +353,7 @@ hybsys_well_schur_comp_symm(int nc, const int *cwpos, const int *cwells,
struct hybsys_well *wsys)
/* ---------------------------------------------------------------------- */
{
int c, i;
int c, i, ix;
i = 0;
for (c = 0; c < nc; c++) {
@ -499,12 +499,14 @@ hybsys_well_cellcontrib_symm(int c, int ngconn, int p1,
struct hybsys *sys, struct hybsys_well *wsys)
/* ---------------------------------------------------------------------- */
{
#if 0
/* w2r = F1(r)'*F2(w), r2w = w2r' */
dgemm_("Transpose", "No Transpose", &mm, &nn, &kk,
&a1, &sys->F1[p1], &ldF1, &wsys->F2[wp1], &ldWF2,
&a2, wsys->w2r, &ld_w2r);
/* w2w = F1(w)'*F2(w) */
#endif
}