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

added Kaczmarz capability

Browse Source
This commit is contained in:
vhenson 1997-08-08 23:19:17 +00:00
parent 5ef0670c50
commit fc000674ff
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -153,6 +153,7 @@ void cycle_(int *, int *, int *, int *, int *, int *, int *,
relax_(&Solve_err_flag,\
&ity[k], &ipt[k], &ieq[k], &iun[k],\
&imin[level],&imax[level],\
AMGDataVecTemp(amg_data),\
VectorData(U_array[level]),\
VectorData(F_array[level]),\
MatrixData(A_array[level]),\
@ -166,7 +167,7 @@ relax_(&Solve_err_flag,\
void relax_(int *, int *, int *, int *, int *, int *, int *,
double *, double *, double *,
double *, double *, double *, double *,
int *, int *, int *, int *, int *, int *, int *);

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

@ -153,6 +153,7 @@ void cycle_(int *, int *, int *, int *, int *, int *, int *,
relax_(&Solve_err_flag,\
&ity[k], &ipt[k], &ieq[k], &iun[k],\
&imin[level],&imax[level],\
AMGDataVecTemp(amg_data),\
VectorData(U_array[level]),\
VectorData(F_array[level]),\
MatrixData(A_array[level]),\
@ -166,7 +167,7 @@ relax_(&Solve_err_flag,\
void relax_(int *, int *, int *, int *, int *, int *, int *,
double *, double *, double *,
double *, double *, double *, double *,
int *, int *, int *, int *, int *, int *, int *);