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

Indexing into IV fixed. Runs systems now

Browse Source
This commit is contained in:
vhenson 1996-11-18 19:10:21 +00:00
parent ba3e97ca7d
commit 005972d659
6 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,6 +69,8 @@ Data *data;
int *levv;
int *levp;
int *levi;
/* veh test levpi */
int *levpi;
int *numa;
int *numb;
int *numv;
@ -175,6 +177,7 @@ Data *data;
levv = ctalloc(int, num_levels);
levp = ctalloc(int, num_levels);
levi = ctalloc(int, num_levels);
levpi = ctalloc(int, num_levels);
numa = ctalloc(int, num_levels);
numb = ctalloc(int, num_levels);
numv = ctalloc(int, num_levels);
@ -185,6 +188,7 @@ Data *data;
levb[j] = ib[imin[j]-1];
levv[j] = imin[j];
levp[j] = ipmn[j];
levpi[j] = ipmn[j] + j;
levi[j] = imin[j] + j;
numa[j] = ia[imax[j]+1-1]-ia[imin[j]-1];
numb[j] = ib[imax[j]+1-1]-ib[imin[j]-1];
@ -197,7 +201,8 @@ Data *data;
AMGS01DataLevA(amgs01_data) = leva;
AMGS01DataLevB(amgs01_data) = levb;
AMGS01DataLevV(amgs01_data) = levv;
AMGS01DataLevP(amgs01_data) = levp;
AMGS01DataLevP(amgs01_data) = levp;
AMGS01DataLevPI(amgs01_data) = levpi;
AMGS01DataLevI(amgs01_data) = levi;
AMGS01DataNumA(amgs01_data) = numa;
AMGS01DataNumB(amgs01_data) = numb;
@ -209,6 +214,7 @@ Data *data;
*----------------------------------------------------------*/
/* make room for `num(j)+1' entry in `ia' and `ib' */
/* veh also make room for `num(j)+1' entry in iv */
for (j = num_levels-1; j > 0; j--)
{
for (k = numv[j]; k >= 0; k--)
@ -216,6 +222,10 @@ Data *data;
ia[levi[j]+k-1] = ia[levv[j]+k-1];
ib[levi[j]+k-1] = ib[levv[j]+k-1];
}
for (k = nump[j]; k >= 0; k--)
{
iv[levpi[j]+k-1] = iv[levp[j]+k-1];
}
}
/* shift `ja' and `jb' */
@ -262,7 +272,7 @@ Data *data;
decr = numv[0];
for (j = 1; j < num_levels; j++)
{
for (k = levp[j]; k < levp[j] + nump[j]; k++)
for (k = levpi[j]; k < levpi[j] + nump[j] + 1; k++)
{
iv[k-1] -= decr;
}

2
seq_linear_solvers/amg/amg/amgs01.h
View File

@ -72,6 +72,7 @@ typedef struct
int *levb;
int *levv;
int *levp;
int *levpi;
int *levi;
int *numa;
int *numb;
@ -129,6 +130,7 @@ typedef struct
#define AMGS01DataLevB(amgs01_data) ((amgs01_data) -> levb)
#define AMGS01DataLevV(amgs01_data) ((amgs01_data) -> levv)
#define AMGS01DataLevP(amgs01_data) ((amgs01_data) -> levp)
#define AMGS01DataLevPI(amgs01_data) ((amgs01_data) -> levpi)
#define AMGS01DataLevI(amgs01_data) ((amgs01_data) -> levi)
#define AMGS01DataNumA(amgs01_data) ((amgs01_data) -> numa)
#define AMGS01DataNumB(amgs01_data) ((amgs01_data) -> numb)

2
seq_linear_solvers/amg/amg/fortran.h
View File

@ -101,7 +101,7 @@ void setup_(int *, int *, double *, int *, double *, int *,
AMGS01DataLevA(amgs01_data),\
AMGS01DataLevB(amgs01_data),\
AMGS01DataLevV(amgs01_data),\
AMGS01DataLevP(amgs01_data),\
AMGS01DataLevPI(amgs01_data),\
AMGS01DataLevI(amgs01_data),\
AMGS01DataNumA(amgs01_data),\
AMGS01DataNumB(amgs01_data),\

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

@ -69,6 +69,8 @@ Data *data;
int *levv;
int *levp;
int *levi;
/* veh test levpi */
int *levpi;
int *numa;
int *numb;
int *numv;
@ -175,6 +177,7 @@ Data *data;
levv = ctalloc(int, num_levels);
levp = ctalloc(int, num_levels);
levi = ctalloc(int, num_levels);
levpi = ctalloc(int, num_levels);
numa = ctalloc(int, num_levels);
numb = ctalloc(int, num_levels);
numv = ctalloc(int, num_levels);
@ -185,6 +188,7 @@ Data *data;
levb[j] = ib[imin[j]-1];
levv[j] = imin[j];
levp[j] = ipmn[j];
levpi[j] = ipmn[j] + j;
levi[j] = imin[j] + j;
numa[j] = ia[imax[j]+1-1]-ia[imin[j]-1];
numb[j] = ib[imax[j]+1-1]-ib[imin[j]-1];
@ -197,7 +201,8 @@ Data *data;
AMGS01DataLevA(amgs01_data) = leva;
AMGS01DataLevB(amgs01_data) = levb;
AMGS01DataLevV(amgs01_data) = levv;
AMGS01DataLevP(amgs01_data) = levp;
AMGS01DataLevP(amgs01_data) = levp;
AMGS01DataLevPI(amgs01_data) = levpi;
AMGS01DataLevI(amgs01_data) = levi;
AMGS01DataNumA(amgs01_data) = numa;
AMGS01DataNumB(amgs01_data) = numb;
@ -209,6 +214,7 @@ Data *data;
*----------------------------------------------------------*/
/* make room for `num(j)+1' entry in `ia' and `ib' */
/* veh also make room for `num(j)+1' entry in iv */
for (j = num_levels-1; j > 0; j--)
{
for (k = numv[j]; k >= 0; k--)
@ -216,6 +222,10 @@ Data *data;
ia[levi[j]+k-1] = ia[levv[j]+k-1];
ib[levi[j]+k-1] = ib[levv[j]+k-1];
}
for (k = nump[j]; k >= 0; k--)
{
iv[levpi[j]+k-1] = iv[levp[j]+k-1];
}
}
/* shift `ja' and `jb' */
@ -262,7 +272,7 @@ Data *data;
decr = numv[0];
for (j = 1; j < num_levels; j++)
{
for (k = levp[j]; k < levp[j] + nump[j]; k++)
for (k = levpi[j]; k < levpi[j] + nump[j] + 1; k++)
{
iv[k-1] -= decr;
}

2
seq_ls/amg/amg/amgs01.h
View File

@ -72,6 +72,7 @@ typedef struct
int *levb;
int *levv;
int *levp;
int *levpi;
int *levi;
int *numa;
int *numb;
@ -129,6 +130,7 @@ typedef struct
#define AMGS01DataLevB(amgs01_data) ((amgs01_data) -> levb)
#define AMGS01DataLevV(amgs01_data) ((amgs01_data) -> levv)
#define AMGS01DataLevP(amgs01_data) ((amgs01_data) -> levp)
#define AMGS01DataLevPI(amgs01_data) ((amgs01_data) -> levpi)
#define AMGS01DataLevI(amgs01_data) ((amgs01_data) -> levi)
#define AMGS01DataNumA(amgs01_data) ((amgs01_data) -> numa)
#define AMGS01DataNumB(amgs01_data) ((amgs01_data) -> numb)

2
seq_ls/amg/amg/fortran.h
View File

@ -101,7 +101,7 @@ void setup_(int *, int *, double *, int *, double *, int *,
AMGS01DataLevA(amgs01_data),\
AMGS01DataLevB(amgs01_data),\
AMGS01DataLevV(amgs01_data),\
AMGS01DataLevP(amgs01_data),\
AMGS01DataLevPI(amgs01_data),\
AMGS01DataLevI(amgs01_data),\
AMGS01DataNumA(amgs01_data),\
AMGS01DataNumB(amgs01_data),\