CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleaned up some extraneous comments.

Browse Source
This commit is contained in:
vhenson 1996-11-18 19:26:59 +00:00
parent 005972d659
commit 8ad5361924
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
seq_linear_solvers/amg/amg/amgs01.c
View File

@ -69,7 +69,6 @@ Data *data;
int *levv;
int *levp;
int *levi;
/* veh test levpi */
int *levpi;
int *numa;
int *numb;
@ -213,8 +212,7 @@ Data *data;
* Shift index arrays
*----------------------------------------------------------*/
/* make room for `num(j)+1' entry in `ia' and `ib' */
/* veh also make room for `num(j)+1' entry in iv */
/* make room for `num(j)+1' entry in `ia', `ib', and `iv' */
for (j = num_levels-1; j > 0; j--)
{
for (k = numv[j]; k >= 0; k--)

4
seq_ls/amg/amg/amgs01.c
View File

@ -69,7 +69,6 @@ Data *data;
int *levv;
int *levp;
int *levi;
/* veh test levpi */
int *levpi;
int *numa;
int *numb;
@ -213,8 +212,7 @@ Data *data;
* Shift index arrays
*----------------------------------------------------------*/
/* make room for `num(j)+1' entry in `ia' and `ib' */
/* veh also make room for `num(j)+1' entry in iv */
/* make room for `num(j)+1' entry in `ia', `ib', and `iv' */
for (j = num_levels-1; j > 0; j--)
{
for (k = numv[j]; k >= 0; k--)