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

Catch debugging code up to field renames in cset cb524598a847.

Browse Source
This commit is contained in:
Bård Skaflestad 2011-06-14 18:27:42 +02:00
parent 11ae0c62ae
commit e15bdb5d51
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/coarse_sys.c
View File

@ -1698,13 +1698,13 @@ coarse_sys_compute_Binv(int nb,
a1 = 1.0; a1 = 1.0;
a2 = 0.0; a2 = 0.0;
dgemv_("No Transpose", &mm, &nn, &a1, dgemv_("No Transpose", &mm, &nn, &a1,
&sys->cell_ip[sys->ip_pos[b]], &ld, &sys->cell_ip[sys->cell_ip_pos[b]], &ld,
Lti, &incx, &a2, B, &incy); Lti, &incx, &a2, B, &incy);
fprintf(fp, "IP{%d} = [\n", b + 1); fprintf(fp, "IP{%d} = [\n", b + 1);
for (i2 = 0; i2 < nn; i2++) { for (i2 = 0; i2 < nn; i2++) {
for (i1 = 0; i1 < mm; i1++) { for (i1 = 0; i1 < mm; i1++) {
fprintf(fp, "%18.12e ", fprintf(fp, "%18.12e ",
sys->cell_ip[sys->ip_pos[b] + i1 + i2*mm]); sys->cell_ip[sys->cell_ip_pos[b] + i1 + i2*mm]);
} }
fprintf(fp, ";\n"); fprintf(fp, ";\n");
} }