max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-16 16:44:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

changes req'd for R

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/phreeqc3/trunk@8684 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2014-04-29 23:29:04 +00:00
parent d77460e672
commit cfa58371fe
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
nvector_serial.cpp
View File

@ -801,10 +801,12 @@ N_VPrint_Serial(N_Vector x)
N = NV_LENGTH_S(x);
xd = NV_DATA_S(x);
#if !defined(R_SO)
for (i = 0; i < N; i++)
printf("%11.8g\n", (double) (*xd++));
printf("\n");
#endif
}

2
smalldense.cpp
View File

@ -257,6 +257,7 @@ denprint(realtype ** a, integertype n)
{
integertype i, j;
#if !defined(R_SO)
printf("\n");
for (i = 0; i < n; i++)
{
@ -267,4 +268,5 @@ denprint(realtype ** a, integertype n)
printf("\n");
}
printf("\n");
#endif
}