53 int *ipc,
double *rpc,
54 double *ac,
double *cc,
double *fc,
55 double *x,
double *w1,
double *w2,
double *r,
56 int *
itmax,
int *iters,
57 double *
errtol,
double *omega,
58 int *iresid,
int *iadjoint,
int *
meth) {
62 VABORT_MSG0(
"wjac not yet translated" );
64 }
else if (*meth == 1) {
72 }
else if (*meth == 2) {
73 VABORT_MSG0(
"sor not yet translated" );
75 }
else if (*meth == 3) {
76 VABORT_MSG0(
"rich not yet translated" );
78 }
else if (*meth == 4) {
87 VABORT_MSG1(
"Bad smoothing routine specified = %d", *meth);
93 int *ipc,
double *rpc,
94 double *ac,
double *cc,
double *fc,
95 double *x,
double *w1,
double *w2,
double *r,
96 int *
itmax,
int *iters,
97 double *
errtol,
double *omega,
98 int *iresid,
int *iadjoint,
int *
meth) {
104 VABORT_MSG0(
"nwjac not yet translated" );
106 }
else if (*meth == 1) {
107 VABORT_MSG0(
"ngsrb not yet translated" );
109 }
else if (*meth == 2) {
110 VABORT_MSG0(
"nsor not yet translated" );
112 }
else if (*meth == 3) {
113 VABORT_MSG0(
"nrich not yet translated" );
116 VABORT_MSG1(
"Bad smoothing routine specified: %d", *meth );
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.
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.
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 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.