58VEXTERNC
void Vsmooth(
int *nx,
int *ny,
int *nz,
59 int *ipc,
double *rpc,
60 double *ac,
double *cc,
double *fc,
61 double *x,
double *w1,
double *w2,
double *r,
62 int *itmax,
int *iters,
63 double *errtol,
double *omega,
64 int *iresid,
int *iadjoint,
int *meth) {
68 VABORT_MSG0(
"wjac not yet translated" );
70 }
else if (*meth == 1) {
78 }
else if (*meth == 2) {
79 VABORT_MSG0(
"sor not yet translated" );
81 }
else if (*meth == 3) {
82 VABORT_MSG0(
"rich not yet translated" );
84 }
else if (*meth == 4) {
93 VABORT_MSG1(
"Bad smoothing routine specified = %d", *meth);
98VEXTERNC
void Vnsmooth(
int *nx,
int *ny,
int *nz,
99 int *ipc,
double *rpc,
100 double *ac,
double *cc,
double *fc,
101 double *x,
double *w1,
double *w2,
double *r,
102 int *itmax,
int *iters,
103 double *errtol,
double *omega,
104 int *iresid,
int *iadjoint,
int *meth) {
110 VABORT_MSG0(
"nwjac not yet translated" );
112 }
else if (*meth == 1) {
113 VABORT_MSG0(
"ngsrb not yet translated" );
115 }
else if (*meth == 2) {
116 VABORT_MSG0(
"nsor not yet translated" );
118 }
else if (*meth == 3) {
119 VABORT_MSG0(
"nrich not yet translated" );
122 VABORT_MSG1(
"Bad smoothing routine specified: %d", *meth );
VPUBLIC void Vgsrb(int *nx, int *ny, int *nz, int *ipc, double *rpc, double *ac, double *cc, double *fc, double *x, double *w1, double *w2, double *r, int *itmax, int *iters, double *errtol, double *omega, int *iresid, int *iadjoint)
Guass-Seidel solver.
VEXTERNC void Vnsmooth(int *nx, int *ny, int *nz, int *ipc, double *rpc, double *ac, double *cc, double *fc, double *x, double *w1, double *w2, double *r, int *itmax, int *iters, double *errtol, double *omega, int *iresid, int *iadjoint, int *meth)
call the appropriate non-linear smoothing routine.
VPUBLIC void Vcghs(int *nx, int *ny, int *nz, int *ipc, double *rpc, double *ac, double *cc, double *fc, double *x, double *p, double *ap, double *r, int *itmax, int *iters, double *errtol, double *omega, int *iresid, int *iadjoint)
A collection of useful low-level routines (timing, etc).
VEXTERNC void Vsmooth(int *nx, int *ny, int *nz, int *ipc, double *rpc, double *ac, double *cc, double *fc, double *x, double *w1, double *w2, double *r, int *itmax, int *iters, double *errtol, double *omega, int *iresid, int *iadjoint, int *meth)
Multigrid smoothing functions.