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

fixed index problem in IV_array. Works right for systems.

Browse Source
This commit is contained in:
vhenson 1997-03-11 16:48:50 +00:00
parent db947afb50
commit 2bbe00742e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
seq_linear_solvers/amg/amg/amg_setup.c
View File

@ -434,7 +434,7 @@ void *data;
{
IU_array[j] = NewVectorInt(&iu[levv[j]-1], numv[j]);
IP_array[j] = NewVectorInt(&ip[levv[j]-1], numv[j]);
IV_array[j] = NewVectorInt(&iv[levp[j]-1],nump[j]);
IV_array[j] = NewVectorInt(&iv[levpi[j]-1],nump[j]+1);
ICG_array[j] = NewVectorInt(&icg[levv[j]-1], numv[j]);
}

2
seq_ls/amg/amg/amg_setup.c
View File

@ -434,7 +434,7 @@ void *data;
{
IU_array[j] = NewVectorInt(&iu[levv[j]-1], numv[j]);
IP_array[j] = NewVectorInt(&ip[levv[j]-1], numv[j]);
IV_array[j] = NewVectorInt(&iv[levp[j]-1],nump[j]);
IV_array[j] = NewVectorInt(&iv[levpi[j]-1],nump[j]+1);
ICG_array[j] = NewVectorInt(&icg[levv[j]-1], numv[j]);
}