vpmg.h File Reference

The primary header for PMG. More...

#include <punc/punc_base.h>
#include <punc/vf2c.h>

Include dependency graph for vpmg.h:

Go to the source code of this file.

Functions

int builda_ (integer *nx, integer *ny, integer *nz, integer *ipkey, integer *mgdisc, integer *numdia, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf)
 Library VPMG prototypes.
int builda_fv__ (integer *nx, integer *ny, integer *nz, integer *ipkey, integer *numdia, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf)
 Library VPMG prototypes.
int builda_fe__ (integer *nx, integer *ny, integer *nz, integer *ipkey, integer *numdia, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf)
 Library VPMG prototypes.
int buildband_ (integer *key, integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, integer *ipcb, doublereal *rpcb, doublereal *acb)
 Library VPMG prototypes.
int buildband1_7__ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, integer *ipcb, doublereal *rpcb, doublereal *acb, integer *n, integer *m, integer *lda)
 Library VPMG prototypes.
int buildband1_27__ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, integer *ipcb, doublereal *rpcb, doublereal *acb, integer *n, integer *m, integer *lda)
 Library VPMG prototypes.
int buildg_ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *numdia, doublereal *pcff, doublereal *acff, doublereal *ac)
 Library VPMG prototypes *.
int buildg_1__ (integer *nxf, integer *nyf, integer *nzf, integer *nx, integer *ny, integer *nz, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw, doublereal *oc, doublereal *xoc, doublereal *xoe, doublereal *xon, doublereal *xuc, doublereal *xone, doublereal *xonw, doublereal *xue, doublereal *xuw, doublereal *xun, doublereal *xus, doublereal *xune, doublereal *xunw, doublereal *xuse, doublereal *xusw)
 Library VPMG prototypes.
int buildg_7__ (integer *nxf, integer *nyf, integer *nzf, integer *nx, integer *ny, integer *nz, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *xoc, doublereal *xoe, doublereal *xon, doublereal *xuc, doublereal *xone, doublereal *xonw, doublereal *xue, doublereal *xuw, doublereal *xun, doublereal *xus, doublereal *xune, doublereal *xunw, doublereal *xuse, doublereal *xusw)
 Library VPMG prototypes.
int buildg_27__ (integer *nxf, integer *nyf, integer *nzf, integer *nx, integer *ny, integer *nz, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *xoc, doublereal *xoe, doublereal *xon, doublereal *xuc, doublereal *xone, doublereal *xonw, doublereal *xue, doublereal *xuw, doublereal *xun, doublereal *xus, doublereal *xune, doublereal *xunw, doublereal *xuse, doublereal *xusw)
 Library VPMG prototypes.
int buildp_ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *mgprol, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *xf, doublereal *yf, doublereal *zf)
 Library VPMG prototypes.
int buildp_trilin__ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, doublereal *pc, doublereal *xf, doublereal *yf, doublereal *zf)
 Library VPMG prototypes.
int buildpb_trilin__ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw, doublereal *xf, doublereal *yf, doublereal *zf)
 Library VPMG prototypes.
int buildp_op7__ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *pc)
 Library VPMG prototypes.
int buildpb_op7__ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw)
 Library VPMG prototypes.
int buildp_op27__ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *pc)
 Library VPMG prototypes.
int buildpb_op27__ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw)
 Library VPMG prototypes.
int buildp_modop7__ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *pc)
 Library VPMG prototypes.
int buildpb_modop7__ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw)
 Library VPMG prototypes.
int buildp_modop27__ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *pc)
 Library VPMG prototypes.
int buildpb_modop27__ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw)
 Library VPMG prototypes.
int cghs_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *p, doublereal *ap, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes
:ref: mresid_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: xscal_ 14 5 4 4 4 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7.
int fcgmg_ (integer *nx, integer *ny, integer *nz, doublereal *x, integer *iz, doublereal *w0, doublereal *w1, doublereal *w2, doublereal *w3, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *nlev, integer *ilev, integer *nlev_real__, integer *mgsolv, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *nu1, integer *nu2, integer *mgsmoo, doublereal *w4, doublereal *w5, doublereal *w6, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int cgmg_ (integer *nx, integer *ny, integer *nz, doublereal *x, integer *iz, doublereal *w0, doublereal *w1, doublereal *w2, doublereal *w3, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *nlev, integer *ilev, integer *nlev_real__, integer *mgsolv, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *nu1, integer *nu2, integer *mgsmoo, doublereal *rr, doublereal *zz, doublereal *pp, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int getpre_ (integer *nx, integer *ny, integer *nz, integer *iz, integer *lev, integer *nlev_real__, doublereal *r__, doublereal *pc)
 Library VPMG prototypes :ref: mkcors_ 14 7 4 4 4 4 4 4 4
:ref: mkfine_ 14 7 4 4 4 4 4 4 4
:ref: interp_ 14 9 4 4 4 4 4 4 7 7 7
:ref: prtini_ 14 1 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: mresid_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: azeros_ 14 4 4 4 4 7 *
:ref: mvcs_ 14 32 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: xscal_ 14 5 4 4 4 7 7
:ref: restrc_ 14 9 4 4 4 4 4 4 7 7 7.
int cgmgdriv_ (integer *iparm, doublereal *rparm, integer *iwork, doublereal *rwork, doublereal *u, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int cgmgdriv2_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, doublereal *u, integer *iz, doublereal *w1, doublereal *w2, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes
:ref: maxlev_ 4 3 4 4 4
:ref: mgsz_ 14 19 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: buildalg_ 14 14 4 4 4 4 4 4 4 7 7 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: cgmg_ 14 35 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 7 7 7 4 7 7 7 7 7 7
:ref: fcgmg_ 14 35 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 7 7 7 4 7 7 7 7 7 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7.
int delget_ (integer *nx, integer *ny, integer *nz, doublereal *xmin, doublereal *xmax, doublereal *ymin, doublereal *ymax, doublereal *zmin, doublereal *zmax, doublereal *epsin, doublereal *epsout, doublereal *rionst, doublereal *temper, integer *ncrgpt, integer *iepsmap, integer *idebmap, integer *icrgpos, doublereal *crg, doublereal *phi)
 Library VPMG prototypes.
int gsrb_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int gsrb7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int gsrb27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int gsrb7x_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes
:ref: mresid7_1s__ 14 13 4 4 4 4 7 7 7 7 7 7 7 7 7
:ref: mresid27_1s__ 14 23 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.
int readit_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, integer *nlev, integer *nrwk, integer *niwk, integer *key, integer *meth)
 Library VPMG prototypes.
int packmg_ (integer *iparm, doublereal *rparm, integer *nrwk, integer *niwk, integer *nx, integer *ny, integer *nz, integer *nlev, integer *nu1, integer *nu2, integer *mgkey, integer *itmax, integer *istop, integer *ipcon, integer *nonlin, integer *mgsmoo, integer *mgprol, integer *mgcoar, integer *mgsolv, integer *mgdisc, integer *iinfo, doublereal *errtol, integer *ipkey, doublereal *omegal, doublereal *omegan, integer *irite, integer *iperf)
 Library VPMG prototypes.
int writit_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, doublereal *u, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf, integer *key)
 Library VPMG prototypes
:ref: fillco_ 14 17 4 7 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7.
int matvec_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y)
 Library VPMG prototypes.
int matvec7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y)
 Library VPMG prototypes.
int matvec7_1s__ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *y)
 Library VPMG prototypes.
int matvec27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y)
 Library VPMG prototypes.
int matvec27_1s__ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *y)
 Library VPMG prototypes.
int mresid_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__)
 Library VPMG prototypes.
int mresid7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__)
 Library VPMG prototypes.
int mresid7_1s__ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *r__)
 Library VPMG prototypes.
int mresid27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__)
 Library VPMG prototypes.
int mresid27_1s__ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *r__)
 Library VPMG prototypes.
int nmatvec_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y, doublereal *w1)
 Library VPMG prototypes.
int nmatvec7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y, doublereal *w1)
 Library VPMG prototypes.
int nmatvecd7_1s__ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *y, doublereal *w1)
 Library VPMG prototypes.
int nmatvec27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y, doublereal *w1)
 Library VPMG prototypes.
int nmatvecd27_1s__ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *y, doublereal *w1)
 Library VPMG prototypes.
int nmresid_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__, doublereal *w1)
 Library VPMG prototypes.
int nmresid7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__, doublereal *w1)
 Library VPMG prototypes.
int nmresid7_1s__ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *r__, doublereal *w1)
 Library VPMG prototypes.
int nmresid27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__, doublereal *w1)
 Library VPMG prototypes.
int nmresid27_1s__ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *r__, doublereal *w1)
 Library VPMG prototypes.
int interp_ (integer *nxc, integer *nyc, integer *nzc, integer *nxf, integer *nyf, integer *nzf, doublereal *xin, doublereal *xout, doublereal *pc)
 Library VPMG prototypes.
int interp2_ (integer *nxc, integer *nyc, integer *nzc, integer *nxf, integer *nyf, integer *nzf, doublereal *xin, doublereal *xout, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw)
 Library VPMG prototypes.
int restrc_ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, doublereal *xin, doublereal *xout, doublereal *pc)
 Library VPMG prototypes.
int restrc2_ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, doublereal *xin, doublereal *xout, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw)
 Library VPMG prototypes.
int extrac_ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, doublereal *xin, doublereal *xout)
 Library VPMG prototypes.
int interpz_ (integer *nxc, integer *nyc, integer *nzc, integer *nxf, integer *nyf, integer *nzf, doublereal *xin, doublereal *xout)
 Library VPMG prototypes.
int restrcz_ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, doublereal *xin, doublereal *xout)
 Library VPMG prototypes
:ref: c_vec__ 14 7 7 7 7 4 4 4 4
:ref: fbound00_ 14 4 4 4 4 7.
int daxpy_ (integer *n, doublereal *alpha, doublereal *x, integer *istep, doublereal *y, integer *jstep)
 Library VPMG prototypes.
int dcopy_ (integer *n, doublereal *x, integer *istep, doublereal *y, integer *jstep)
 Library VPMG prototypes.
doublereal dasum_ (integer *n, doublereal *x, integer *istep)
 Library VPMG prototypes.
doublereal dnrm1_ (integer *n, doublereal *x, integer *istep)
 Library VPMG prototypes.
doublereal dnrm2_ (integer *n, doublereal *x, integer *istep)
 Library VPMG prototypes.
doublereal dnrm8_ (integer *n, doublereal *x, integer *istep)
 Library VPMG prototypes.
int dscal_ (integer *n, doublereal *fac, doublereal *x, integer *istep)
 Library VPMG prototypes.
doublereal ddot_ (integer *n, doublereal *x, integer *istep, doublereal *y, integer *jstep)
 Library VPMG prototypes.
integer idamax_ (integer *n, doublereal *sx, integer *incx)
 Library VPMG prototypes.
int fmvcs_ (integer *nx, integer *ny, integer *nz, doublereal *x, integer *iz, doublereal *w0, doublereal *w1, doublereal *w2, doublereal *w3, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *nlev, integer *ilev, integer *nlev_real__, integer *mgsolv, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *nu1, integer *nu2, integer *mgsmoo, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int mvcs_ (integer *nx, integer *ny, integer *nz, doublereal *x, integer *iz, doublereal *w0, doublereal *w1, doublereal *w2, doublereal *w3, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *nlev, integer *ilev, integer *nlev_real__, integer *mgsolv, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *nu1, integer *nu2, integer *mgsmoo, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes
:ref: mkcors_ 14 7 4 4 4 4 4 4 4
:ref: mkfine_ 14 7 4 4 4 4 4 4 4
:ref: interp_ 14 9 4 4 4 4 4 4 7 7 7
:ref: prtini_ 14 1 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: azeros_ 14 4 4 4 4 7
:ref: smooth_ 14 19 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4 4
:ref: xcopy_small__ 14 5 4 4 4 7 7
:ref: dpbsl_ 14 5 7 4 4 4 7
:ref: xcopy_large__ 14 5 4 4 4 7 7
:ref: fbound00_ 14 4 4 4 4 7
:ref: mresid_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: ivariv_ 4 2 4 4
:ref: restrc_ 14 9 4 4 4 4 4 4 7 7 7.
int mgdriv_ (integer *iparm, doublereal *rparm, integer *iwork, doublereal *rwork, doublereal *u, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int mgdriv2_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, doublereal *u, integer *iz, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int mgsz_ (integer *mgcoar, integer *mgdisc, integer *mgsolv, integer *nx, integer *ny, integer *nz, integer *nlev, integer *nxc, integer *nyc, integer *nzc, integer *nf, integer *nc, integer *narr, integer *narrc, integer *n_rpc__, integer *n_iz__, integer *n_ipc__, integer *iretot, integer *iintot)
 Library VPMG prototypes.
int mgsize_ (integer *mgcoar, integer *mgdisc, integer *mgsolv, integer *nx, integer *ny, integer *nz, integer *nlev)
 Library VPMG prototypes
:ref: maxlev_ 4 3 4 4 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: epsmac_ 7 1 4
:ref: mkcors_ 14 7 4 4 4 4 4 4 4
:ref: power_ 14 19 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 4 4 4
:ref: azeros_ 14 4 4 4 4 7
:ref: ipower_ 14 33 4 4 4 7 4 7 7 7 7 7 7 7 7 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7
:ref: mpower_ 14 33 4 4 4 7 4 7 7 7 7 7 7 7 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: buildalg_ 14 14 4 4 4 4 4 4 4 7 7 7 7 7 7 7
:ref: fbound00_ 14 4 4 4 4 7
:ref: mvcs_ 14 32 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: fmvcs_ 14 32 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: mvfas_ 14 33 4 4 4 7 4 7 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: fmvfas_ 14 33 4 4 4 7 4 7 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7.
int fmvfas_ (integer *nx, integer *ny, integer *nz, doublereal *x, integer *iz, doublereal *w0, doublereal *w1, doublereal *w2, doublereal *w3, doublereal *w4, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *nlev, integer *ilev, integer *nlev_real__, integer *mgsolv, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *nu1, integer *nu2, integer *mgsmoo, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int mvfas_ (integer *nx, integer *ny, integer *nz, doublereal *x, integer *iz, doublereal *w0, doublereal *w1, doublereal *w2, doublereal *w3, doublereal *w4, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *nlev, integer *ilev, integer *nlev_real__, integer *mgsolv, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *nu1, integer *nu2, integer *mgsmoo, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes
:ref: mkcors_ 14 7 4 4 4 4 4 4 4
:ref: mkfine_ 14 7 4 4 4 4 4 4 4
:ref: interp_ 14 9 4 4 4 4 4 4 7 7 7
:ref: prtini_ 14 1 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: nsmooth_ 14 19 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4 4
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: ivariv_ 4 2 4 4
:ref: restrc_ 14 9 4 4 4 4 4 4 7 7 7
:ref: extrac_ 14 8 4 4 4 4 4 4 7 7
:ref: linesearch_ 14 15 4 4 4 7 4 7 7 7 7 7 7 7 7 7 7.
integer maxlev_ (integer *n1, integer *n2, integer *n3)
 Library VPMG prototypes.
int mkcors_ (integer *numlev, integer *nxold, integer *nyold, integer *nzold, integer *nxnew, integer *nynew, integer *nznew)
 Library VPMG prototypes.
int corsr_ (integer *nold, integer *nnew)
 Library VPMG prototypes.
int mkfine_ (integer *numlev, integer *nxold, integer *nyold, integer *nzold, integer *nxnew, integer *nynew, integer *nznew)
 Library VPMG prototypes.
int finer_ (integer *nold, integer *nnew)
 Library VPMG prototypes.
integer ivariv_ (integer *nu, integer *level)
 Library VPMG prototypes.
int prtini_ (integer *istop)
 Library VPMG prototypes.
int prtstp_ (integer *iok, integer *iters, doublereal *rsnrm, doublereal *rsden, doublereal *orsnrm)
 Library VPMG prototypes.
int buildstr_ (integer *nx, integer *ny, integer *nz, integer *nlev, integer *iz)
 Library VPMG prototypes.
int buildops_ (integer *nx, integer *ny, integer *nz, integer *nlev, integer *ipkey, integer *iinfo, integer *ido, integer *iz, integer *mgprol, integer *mgcoar, integer *mgsolv, integer *mgdisc, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int buildcopy0_ (integer *nx, integer *ny, integer *nz, integer *nxf, integer *nyf, integer *nzf, doublereal *xc, doublereal *yc, doublereal *zc, doublereal *gxc, doublereal *gyc, doublereal *gzc, doublereal *a1c, doublereal *a2c, doublereal *a3c, doublereal *cc, doublereal *fc, doublereal *tc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int buildharm0_ (integer *nx, integer *ny, integer *nz, integer *nxf, integer *nyf, integer *nzf, doublereal *xc, doublereal *yc, doublereal *zc, doublereal *gxc, doublereal *gyc, doublereal *gzc, doublereal *a1c, doublereal *a2c, doublereal *a3c, doublereal *cc, doublereal *fc, doublereal *tc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int buildgaler0_ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipkey, integer *numdia, doublereal *pcff, integer *ipcff, doublereal *rpcff, doublereal *acff, doublereal *ccff, doublereal *fcff, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc)
 Library VPMG prototypes.
int buildgaler1_ (integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *numdia, doublereal *pcff, integer *ipcff, doublereal *rpcff, doublereal *ccff, integer *ipc, doublereal *rpc, doublereal *cc)
 Library VPMG prototypes.
int buildalg_ (integer *nx, integer *ny, integer *nz, integer *mode, integer *nlev, integer *iz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *y, doublereal *tmp)
 Library VPMG prototypes
:ref: tstart_ 14 2 7 7
:ref: tstop_ 14 3 7 7 7
:ref: builda_ 14 22 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: prtmatd_ 14 6 4 4 4 4 7 7
:ref: buildp_ 14 14 4 4 4 4 4 4 4 4 7 7 7 7 7 7
:ref: extrac_ 14 8 4 4 4 4 4 4 7 7
:ref: buildband_ 14 10 4 4 4 4 4 7 7 4 7 7
:ref: buildg_ 14 10 4 4 4 4 4 4 4 7 7 7
:ref: restrc_ 14 9 4 4 4 4 4 4 7 7 7
:ref: nmatvec_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7.
doublereal epsmac_ (integer *idum)
 Library VPMG prototypes.
int tstart_ (doublereal *before, doublereal *overhd)
 Library VPMG prototypes.
int tstop_ (doublereal *before, doublereal *overhd, doublereal *cputme)
 Library VPMG prototypes.
int xaxpy_ (integer *nx, integer *ny, integer *nz, doublereal *alpha, doublereal *x, doublereal *y)
 Library VPMG prototypes.
int xcopy_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *y)
 Library VPMG prototypes.
doublereal xnrm1_ (integer *nx, integer *ny, integer *nz, doublereal *x)
 Library VPMG prototypes.
doublereal xnrm2_ (integer *nx, integer *ny, integer *nz, doublereal *x)
 Library VPMG prototypes.
doublereal xnrm8_ (integer *nx, integer *ny, integer *nz, doublereal *x)
 Library VPMG prototypes.
int xscal_ (integer *nx, integer *ny, integer *nz, doublereal *fac, doublereal *x)
 Library VPMG prototypes.
doublereal xdot_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *y)
 Library VPMG prototypes.
doublereal xdot3_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *y)
 Library VPMG prototypes.
int zeros_ (integer *nx, integer *ny, integer *nz, doublereal *x)
 Library VPMG prototypes.
int xrand_ (integer *nx, integer *ny, integer *nz, doublereal *x)
 Library VPMG prototypes.
int cinit_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *value)
 Library VPMG prototypes.
int azeros_ (integer *nx, integer *ny, integer *nz, doublereal *x)
 Library VPMG prototypes.
int axrand_ (integer *nx, integer *ny, integer *nz, doublereal *x)
 Library VPMG prototypes.
int xcopy_small__ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *y)
 Library VPMG prototypes.
int xcopy_large__ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *y)
 Library VPMG prototypes.
int fbound_ (integer *ibound, integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *gxc, doublereal *gyc, doublereal *gzc)
 Library VPMG prototypes.
int fbound00_ (integer *nx, integer *ny, integer *nz, doublereal *x)
 Library VPMG prototypes.
int xprint_ (integer *nx, integer *ny, integer *nz, doublereal *x)
 Library VPMG prototypes.
int prtmatd_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac)
 Library VPMG prototypes.
int prtmatd7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc)
 Library VPMG prototypes.
int prtmatd27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw)
 Library VPMG prototypes.
int prtmatb_ (doublereal *a, integer *n, integer *m, integer *lda)
 Library VPMG prototypes.
int linesearch_ (integer *nx, integer *ny, integer *nz, doublereal *alpha, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *p, doublereal *x, doublereal *r__, doublereal *ap, doublereal *zk, doublereal *zkp1)
 Library VPMG prototypes
:ref: tsecnd_ 7 0
:ref: rand_ 6 1 4
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: c_vec__ 14 7 7 7 7 4 4 4 4
:ref: dc_vec__ 14 7 7 7 7 4 4 4 4.
int dpbco_ (doublereal *abd, integer *lda, integer *n, integer *m, doublereal *rcond, doublereal *z__, integer *info)
 Library VPMG prototypes.
int dpbfa_ (doublereal *abd, integer *lda, integer *n, integer *m, integer *info)
 Library VPMG prototypes.
int dpbsl_ (doublereal *abd, integer *lda, integer *n, integer *m, doublereal *b)
 Library VPMG prototypes
:ref: dasum_ 7 3 4 7 4
:ref: dscal_ 14 4 4 7 7 4
:ref: daxpy_ 14 6 4 7 7 4 7 4
:ref: ddot_ 7 5 4 7 4 7 4.
int ncghs_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *p, doublereal *ap, doublereal *r__, doublereal *zk, doublereal *zkp1, doublereal *tmp, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: xscal_ 14 5 4 4 4 7 7
:ref: linesearch_ 14 15 4 4 4 7 4 7 7 7 7 7 7 7 7 7 7.
int ncghsdriv_ (integer *iparm, doublereal *rparm, integer *iwork, doublereal *rwork, doublereal *u, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int ncghsdriv2_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, doublereal *u, integer *iz, doublereal *w0, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int ncghsgo_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *r__, doublereal *p, doublereal *ap, doublereal *zk, doublereal *zkp1, doublereal *tmp, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int cghsgo_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *r__, doublereal *p, doublereal *ap, doublereal *zk, doublereal *zkp1, doublereal *tmp, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7
:ref: prtini_ 14 1 4
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: xscal_ 14 5 4 4 4 7 7
:ref: linesearch_ 14 15 4 4 4 7 4 7 7 7 7 7 7 7 7 7 7
:ref: mresid_ 14 10 4 4 4 4 7 7 7 7 7 7.
int newdriv_ (integer *iparm, doublereal *rparm, integer *iwork, doublereal *rwork, doublereal *u, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int newdriv2_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, doublereal *u, integer *iz, doublereal *w1, doublereal *w2, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes
:ref: maxlev_ 4 3 4 4 4
:ref: mgsz_ 14 19 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: buildalg_ 14 14 4 4 4 4 4 4 4 7 7 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: newton_ 14 35 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 7 7 7 4 7 7 7 7 7 7
:ref: fnewton_ 14 35 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 7 7 7 4 7 7 7 7 7 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7.
int fnewton_ (integer *nx, integer *ny, integer *nz, doublereal *x, integer *iz, doublereal *w0, doublereal *w1, doublereal *w2, doublereal *w3, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *nlev, integer *ilev, integer *nlev_real__, integer *mgsolv, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *nu1, integer *nu2, integer *mgsmoo, doublereal *cprime, doublereal *rhs, doublereal *xtmp, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int newton_ (integer *nx, integer *ny, integer *nz, doublereal *x, integer *iz, doublereal *w0, doublereal *w1, doublereal *w2, doublereal *w3, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *nlev, integer *ilev, integer *nlev_real__, integer *mgsolv, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *nu1, integer *nu2, integer *mgsmoo, doublereal *cprime, doublereal *rhs, doublereal *xtmp, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int getjac_ (integer *nx, integer *ny, integer *nz, integer *nlev_real__, integer *iz, integer *lev, integer *ipkey, doublereal *x, doublereal *r__, doublereal *cprime, doublereal *rhs, doublereal *cc, doublereal *pc)
 Library VPMG prototypes
:ref: mkcors_ 14 7 4 4 4 4 4 4 4
:ref: mkfine_ 14 7 4 4 4 4 4 4 4
:ref: interp_ 14 9 4 4 4 4 4 4 7 7 7
:ref: prtini_ 14 1 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: mvcs_ 14 32 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: power_ 14 19 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 4 4 4
:ref: ipower_ 14 33 4 4 4 7 4 7 7 7 7 7 7 7 7 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7
:ref: dc_vec__ 14 7 7 7 7 4 4 4 4
:ref: restrc_ 14 9 4 4 4 4 4 4 7 7 7.
int ngsrb_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int ngsrb7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int ngsrb27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int ngsrb7x_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes
:ref: c_scal__ 7 3 7 7 4
:ref: dc_scal__ 7 3 7 7 4
:ref: nmresid7_1s__ 14 14 4 4 4 4 7 7 7 7 7 7 7 7 7 7
:ref: nmresid27_1s__ 14 24 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.
int ngsrbdriv_ (integer *iparm, doublereal *rparm, integer *iwork, doublereal *rwork, doublereal *u, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int ngsrbdriv2_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, doublereal *u, integer *iz, doublereal *w0, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int ngsrbgo_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *r__, doublereal *w1, doublereal *w2, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int gsrbgo_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *r__, doublereal *w1, doublereal *w2, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7
:ref: prtini_ 14 1 4
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: ngsrb_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: gsrb_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.
int ninterp_ (integer *nxc, integer *nyc, integer *nzc, integer *nxf, integer *nyf, integer *nzf, doublereal *xin, doublereal *xout, doublereal *pc, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc)
 Library VPMG prototypes.
int ninterp7_ (integer *nxc, integer *nyc, integer *nzc, integer *nxf, integer *nyf, integer *nzf, doublereal *xin, doublereal *xout, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *cc, doublereal *fc)
 Library VPMG prototypes.
int ninterp27_ (integer *nxc, integer *nyc, integer *nzc, integer *nxf, integer *nyf, integer *nzf, doublereal *xin, doublereal *xout, doublereal *opc, doublereal *opn, doublereal *ops, doublereal *ope, doublereal *opw, doublereal *opne, doublereal *opnw, doublereal *opse, doublereal *opsw, doublereal *upc, doublereal *upn, doublereal *ups, doublereal *upe, doublereal *upw, doublereal *upne, doublereal *upnw, doublereal *upse, doublereal *upsw, doublereal *dpc, doublereal *dpn, doublereal *dps, doublereal *dpe, doublereal *dpw, doublereal *dpne, doublereal *dpnw, doublereal *dpse, doublereal *dpsw, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *cc, doublereal *fc)
 Library VPMG prototypes
:ref: fbound00_ 14 4 4 4 4 7
:ref: c_scal__ 7 3 7 7 4
:ref: dc_scal__ 7 3 7 7 4.
int nrich_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int nrich7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int nrich27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes
:ref: nmresid7_1s__ 14 14 4 4 4 4 7 7 7 7 7 7 7 7 7 7
:ref: mresid27_1s__ 14 23 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: nmresid27_1s__ 14 24 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.
int nrichdriv_ (integer *iparm, doublereal *rparm, integer *iwork, doublereal *rwork, doublereal *u, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int nrichdriv2_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, doublereal *u, integer *iz, doublereal *w0, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int nrichgo_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *r__, doublereal *w1, doublereal *w2, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int richgo_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *r__, doublereal *w1, doublereal *w2, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7
:ref: prtini_ 14 1 4
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: nrich_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: rich_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.
int nsmooth_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint, integer *meth)
 Library VPMG prototypes
:ref: nwjac_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: ngsrb_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: nsor_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: nrich_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.
int nsor_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int nsor7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int nsor27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes
/*:ref: c_scal__ 7 3 7 7 4
/*:ref: dc_scal__ 7 3 7 7 4
/*:ref: nmresid7_1s__ 14 14 4 4 4 4 7 7 7 7 7 7 7 7 7 7
/*:ref: nmresid27_1s__ 14 24 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.
int nsordriv_ (integer *iparm, doublereal *rparm, integer *iwork, doublereal *rwork, doublereal *u, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int nsordriv2_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, doublereal *u, integer *iz, doublereal *w0, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int nsorgo_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *r__, doublereal *w1, doublereal *w2, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int sorgo_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *r__, doublereal *w1, doublereal *w2, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7
:ref: prtini_ 14 1 4
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: nsor_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: sor_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.
int nwjac_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int nwjac7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int nwjac27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes
:ref: c_scal__ 7 3 7 7 4
:ref: dc_scal__ 7 3 7 7 4
:ref: nmresid7_1s__ 14 14 4 4 4 4 7 7 7 7 7 7 7 7 7 7
:ref: nmresid27_1s__ 14 24 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.
int nwjacdriv_ (integer *iparm, doublereal *rparm, integer *iwork, doublereal *rwork, doublereal *u, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int nwjacdriv2_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, doublereal *u, integer *iz, doublereal *w0, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int nwjacgo_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *r__, doublereal *w1, doublereal *w2, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes.
int wjacgo_ (integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *r__, doublereal *w1, doublereal *w2, integer *istop, integer *itmax, integer *iters, integer *ierror, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7
:ref: prtini_ 14 1 4
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: nwjac_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: wjac_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.
doublereal c_scal__ (doublereal *coef, doublereal *u, integer *ipkey)
 Library VPMG prototypes.
doublereal dc_scal__ (doublereal *coef, doublereal *u, integer *ipkey)
 Library VPMG prototypes.
int c_vec__ (doublereal *coef, doublereal *uin, doublereal *uout, integer *nx, integer *ny, integer *nz, integer *ipkey)
 Library VPMG prototypes.
int dc_vec__ (doublereal *coef, doublereal *uin, doublereal *uout, integer *nx, integer *ny, integer *nz, integer *ipkey)
 Library VPMG prototypes.
int fillco_ (integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, doublereal *xf, doublereal *yf, doublereal *zf, doublereal *gxcf, doublereal *gycf, doublereal *gzcf, doublereal *a1cf, doublereal *a2cf, doublereal *a3cf, doublereal *ccf, doublereal *fcf, doublereal *tcf)
 Library VPMG prototypes.
int power_ (integer *nx, integer *ny, integer *nz, integer *iz, integer *ilev, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *w1, doublereal *w2, doublereal *w3, doublereal *w4, doublereal *eigmax, doublereal *eigmax_model__, doublereal *tol, integer *itmax, integer *iters, integer *iinfo)
 Library VPMG prototypes.
int ipower_ (integer *nx, integer *ny, integer *nz, doublereal *u, integer *iz, doublereal *w0, doublereal *w1, doublereal *w2, doublereal *w3, doublereal *w4, doublereal *eigmin, doublereal *eigmin_model__, doublereal *tol, integer *itmax, integer *iters, integer *nlev, integer *ilev, integer *nlev_real__, integer *mgsolv, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *nu1, integer *nu2, integer *mgsmoo, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *tru)
 Library VPMG prototypes.
int mpower_ (integer *nx, integer *ny, integer *nz, doublereal *u, integer *iz, doublereal *w0, doublereal *w1, doublereal *w2, doublereal *w3, doublereal *w4, doublereal *eigmax, doublereal *tol, integer *itmax, integer *iters, integer *nlev, integer *ilev, integer *nlev_real__, integer *mgsolv, integer *iok, integer *iinfo, doublereal *epsiln, doublereal *errtol, doublereal *omega, integer *nu1, integer *nu2, integer *mgsmoo, integer *ipc, doublereal *rpc, doublereal *pc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *tru)
 Library VPMG prototypes
:ref: axrand_ 14 4 4 4 4 7
:ref: azeros_ 14 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xscal_ 14 5 4 4 4 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: mvcs_ 14 32 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7.
int rich_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int rich7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int rich27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes
:ref: mresid7_1s__ 14 13 4 4 4 4 7 7 7 7 7 7 7 7 7
:ref: mresid27_1s__ 14 23 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.
int smooth_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint, integer *meth)
 Library VPMG prototypes
:ref: wjac_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: gsrb_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: sor_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: rich_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: cghs_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.
int sor_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int sor7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int sor27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes
:ref: mresid7_1s__ 14 13 4 4 4 4 7 7 7 7 7 7 7 7 7
:ref: mresid27_1s__ 14 23 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.
int wjac_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int wjac7_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes.
int wjac27_ (integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *cc, doublereal *fc, doublereal *oe, doublereal *on, doublereal *uc, doublereal *one, doublereal *onw, doublereal *ue, doublereal *uw, doublereal *un, doublereal *us, doublereal *une, doublereal *unw, doublereal *use, doublereal *usw, doublereal *x, doublereal *w1, doublereal *w2, doublereal *r__, integer *itmax, integer *iters, doublereal *errtol, doublereal *omega, integer *iresid, integer *iadjoint)
 Library VPMG prototypes
:ref: mresid7_1s__ 14 13 4 4 4 4 7 7 7 7 7 7 7 7 7
:ref: mresid27_1s__ 14 23 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.


Detailed Description

The primary header for PMG.

Note:
We provide this header whether or not we provide the BLAS library itself. This gives us some compile-time type-checking even for architecture-dependent assembly-coded BLAS.
Version:
Id
vpmg.h,v 1.6 2008/05/01 00:55:52 fetk Exp
Author:
Michael Holst
Attention:
 *
 * PUNC = < Portable Understructure for Numerical Computing >
 * Copyright (C) 1994--2008 Michael Holst
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 * 
 *  

Function Documentation

int axrand_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x 
)

Library VPMG prototypes.

Author:
Michael Holst

int azeros_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x 
)

Library VPMG prototypes.

Author:
Michael Holst

int builda_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipkey,
integer *  mgdisc,
integer *  numdia,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int builda_fe__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipkey,
integer *  numdia,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int builda_fv__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipkey,
integer *  numdia,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildalg_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  mode,
integer *  nlev,
integer *  iz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  y,
doublereal *  tmp 
)

Library VPMG prototypes
:ref: tstart_ 14 2 7 7
:ref: tstop_ 14 3 7 7 7
:ref: builda_ 14 22 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: prtmatd_ 14 6 4 4 4 4 7 7
:ref: buildp_ 14 14 4 4 4 4 4 4 4 4 7 7 7 7 7 7
:ref: extrac_ 14 8 4 4 4 4 4 4 7 7
:ref: buildband_ 14 10 4 4 4 4 4 7 7 4 7 7
:ref: buildg_ 14 10 4 4 4 4 4 4 4 7 7 7
:ref: restrc_ 14 9 4 4 4 4 4 4 7 7 7
:ref: nmatvec_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7.

Author:
Michael Holst

int buildband1_27__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
integer *  ipcb,
doublereal *  rpcb,
doublereal *  acb,
integer *  n,
integer *  m,
integer *  lda 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildband1_7__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
integer *  ipcb,
doublereal *  rpcb,
doublereal *  acb,
integer *  n,
integer *  m,
integer *  lda 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildband_ ( integer *  key,
integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
integer *  ipcb,
doublereal *  rpcb,
doublereal *  acb 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildcopy0_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  nxf,
integer *  nyf,
integer *  nzf,
doublereal *  xc,
doublereal *  yc,
doublereal *  zc,
doublereal *  gxc,
doublereal *  gyc,
doublereal *  gzc,
doublereal *  a1c,
doublereal *  a2c,
doublereal *  a3c,
doublereal *  cc,
doublereal *  fc,
doublereal *  tc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildg_ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  numdia,
doublereal *  pcff,
doublereal *  acff,
doublereal *  ac 
)

Library VPMG prototypes *.

Note:
:ref: dpbfa_ 14 5 7 4 4 4 4
Author:
Michael Holst

int buildg_1__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw,
doublereal *  oc,
doublereal *  xoc,
doublereal *  xoe,
doublereal *  xon,
doublereal *  xuc,
doublereal *  xone,
doublereal *  xonw,
doublereal *  xue,
doublereal *  xuw,
doublereal *  xun,
doublereal *  xus,
doublereal *  xune,
doublereal *  xunw,
doublereal *  xuse,
doublereal *  xusw 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildg_27__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  xoc,
doublereal *  xoe,
doublereal *  xon,
doublereal *  xuc,
doublereal *  xone,
doublereal *  xonw,
doublereal *  xue,
doublereal *  xuw,
doublereal *  xun,
doublereal *  xus,
doublereal *  xune,
doublereal *  xunw,
doublereal *  xuse,
doublereal *  xusw 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildg_7__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  xoc,
doublereal *  xoe,
doublereal *  xon,
doublereal *  xuc,
doublereal *  xone,
doublereal *  xonw,
doublereal *  xue,
doublereal *  xuw,
doublereal *  xun,
doublereal *  xus,
doublereal *  xune,
doublereal *  xunw,
doublereal *  xuse,
doublereal *  xusw 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildgaler0_ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  ipkey,
integer *  numdia,
doublereal *  pcff,
integer *  ipcff,
doublereal *  rpcff,
doublereal *  acff,
doublereal *  ccff,
doublereal *  fcff,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildgaler1_ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  numdia,
doublereal *  pcff,
integer *  ipcff,
doublereal *  rpcff,
doublereal *  ccff,
integer *  ipc,
doublereal *  rpc,
doublereal *  cc 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildharm0_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  nxf,
integer *  nyf,
integer *  nzf,
doublereal *  xc,
doublereal *  yc,
doublereal *  zc,
doublereal *  gxc,
doublereal *  gyc,
doublereal *  gzc,
doublereal *  a1c,
doublereal *  a2c,
doublereal *  a3c,
doublereal *  cc,
doublereal *  fc,
doublereal *  tc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildops_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  nlev,
integer *  ipkey,
integer *  iinfo,
integer *  ido,
integer *  iz,
integer *  mgprol,
integer *  mgcoar,
integer *  mgsolv,
integer *  mgdisc,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildp_ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  mgprol,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildp_modop27__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  pc 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildp_modop7__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  pc 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildp_op27__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  pc 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildp_op7__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  pc 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildp_trilin__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
doublereal *  pc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildpb_modop27__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildpb_modop7__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildpb_op27__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildpb_op7__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildpb_trilin__ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf 
)

Library VPMG prototypes.

Author:
Michael Holst

int buildstr_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  nlev,
integer *  iz 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal c_scal__ ( doublereal *  coef,
doublereal *  u,
integer *  ipkey 
)

Library VPMG prototypes.

Author:
Michael Holst

int c_vec__ ( doublereal *  coef,
doublereal *  uin,
doublereal *  uout,
integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipkey 
)

Library VPMG prototypes.

Author:
Michael Holst

int cghs_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  p,
doublereal *  ap,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes
:ref: mresid_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: xscal_ 14 5 4 4 4 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7.

Author:
Michael Holst

int cghsgo_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  r__,
doublereal *  p,
doublereal *  ap,
doublereal *  zk,
doublereal *  zkp1,
doublereal *  tmp,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7
:ref: prtini_ 14 1 4
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: xscal_ 14 5 4 4 4 7 7
:ref: linesearch_ 14 15 4 4 4 7 4 7 7 7 7 7 7 7 7 7 7
:ref: mresid_ 14 10 4 4 4 4 7 7 7 7 7 7.

Author:
Michael Holst

int cgmg_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
integer *  iz,
doublereal *  w0,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  nlev,
integer *  ilev,
integer *  nlev_real__,
integer *  mgsolv,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  nu1,
integer *  nu2,
integer *  mgsmoo,
doublereal *  rr,
doublereal *  zz,
doublereal *  pp,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int cgmgdriv2_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
integer *  iz,
doublereal *  w1,
doublereal *  w2,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes
:ref: maxlev_ 4 3 4 4 4
:ref: mgsz_ 14 19 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: buildalg_ 14 14 4 4 4 4 4 4 4 7 7 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: cgmg_ 14 35 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 7 7 7 4 7 7 7 7 7 7
:ref: fcgmg_ 14 35 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 7 7 7 4 7 7 7 7 7 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7.

Author:
Michael Holst

int cgmgdriv_ ( integer *  iparm,
doublereal *  rparm,
integer *  iwork,
doublereal *  rwork,
doublereal *  u,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int cinit_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  value 
)

Library VPMG prototypes.

Author:
Michael Holst

int corsr_ ( integer *  nold,
integer *  nnew 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal dasum_ ( integer *  n,
doublereal *  x,
integer *  istep 
)

Library VPMG prototypes.

Author:
Michael Holst

int daxpy_ ( integer *  n,
doublereal *  alpha,
doublereal *  x,
integer *  istep,
doublereal *  y,
integer *  jstep 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal dc_scal__ ( doublereal *  coef,
doublereal *  u,
integer *  ipkey 
)

Library VPMG prototypes.

Author:
Michael Holst

int dc_vec__ ( doublereal *  coef,
doublereal *  uin,
doublereal *  uout,
integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipkey 
)

Library VPMG prototypes.

Author:
Michael Holst

int dcopy_ ( integer *  n,
doublereal *  x,
integer *  istep,
doublereal *  y,
integer *  jstep 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal ddot_ ( integer *  n,
doublereal *  x,
integer *  istep,
doublereal *  y,
integer *  jstep 
)

Library VPMG prototypes.

Author:
Michael Holst

int delget_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  xmin,
doublereal *  xmax,
doublereal *  ymin,
doublereal *  ymax,
doublereal *  zmin,
doublereal *  zmax,
doublereal *  epsin,
doublereal *  epsout,
doublereal *  rionst,
doublereal *  temper,
integer *  ncrgpt,
integer *  iepsmap,
integer *  idebmap,
integer *  icrgpos,
doublereal *  crg,
doublereal *  phi 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal dnrm1_ ( integer *  n,
doublereal *  x,
integer *  istep 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal dnrm2_ ( integer *  n,
doublereal *  x,
integer *  istep 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal dnrm8_ ( integer *  n,
doublereal *  x,
integer *  istep 
)

Library VPMG prototypes.

Author:
Michael Holst

int dpbco_ ( doublereal *  abd,
integer *  lda,
integer *  n,
integer *  m,
doublereal *  rcond,
doublereal *  z__,
integer *  info 
)

Library VPMG prototypes.

Author:
Michael Holst

int dpbfa_ ( doublereal *  abd,
integer *  lda,
integer *  n,
integer *  m,
integer *  info 
)

Library VPMG prototypes.

Author:
Michael Holst

int dpbsl_ ( doublereal *  abd,
integer *  lda,
integer *  n,
integer *  m,
doublereal *  b 
)

Library VPMG prototypes
:ref: dasum_ 7 3 4 7 4
:ref: dscal_ 14 4 4 7 7 4
:ref: daxpy_ 14 6 4 7 7 4 7 4
:ref: ddot_ 7 5 4 7 4 7 4.

Author:
Michael Holst

int dscal_ ( integer *  n,
doublereal *  fac,
doublereal *  x,
integer *  istep 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal epsmac_ ( integer *  idum  ) 

Library VPMG prototypes.

Author:
Michael Holst

int extrac_ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
doublereal *  xin,
doublereal *  xout 
)

Library VPMG prototypes.

Author:
Michael Holst

int fbound00_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x 
)

Library VPMG prototypes.

Author:
Michael Holst

int fbound_ ( integer *  ibound,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  gxc,
doublereal *  gyc,
doublereal *  gzc 
)

Library VPMG prototypes.

Author:
Michael Holst

int fcgmg_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
integer *  iz,
doublereal *  w0,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  nlev,
integer *  ilev,
integer *  nlev_real__,
integer *  mgsolv,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  nu1,
integer *  nu2,
integer *  mgsmoo,
doublereal *  w4,
doublereal *  w5,
doublereal *  w6,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int fillco_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int finer_ ( integer *  nold,
integer *  nnew 
)

Library VPMG prototypes.

Author:
Michael Holst

int fmvcs_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
integer *  iz,
doublereal *  w0,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  nlev,
integer *  ilev,
integer *  nlev_real__,
integer *  mgsolv,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  nu1,
integer *  nu2,
integer *  mgsmoo,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int fmvfas_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
integer *  iz,
doublereal *  w0,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
doublereal *  w4,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  nlev,
integer *  ilev,
integer *  nlev_real__,
integer *  mgsolv,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  nu1,
integer *  nu2,
integer *  mgsmoo,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int fnewton_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
integer *  iz,
doublereal *  w0,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  nlev,
integer *  ilev,
integer *  nlev_real__,
integer *  mgsolv,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  nu1,
integer *  nu2,
integer *  mgsmoo,
doublereal *  cprime,
doublereal *  rhs,
doublereal *  xtmp,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int getjac_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  nlev_real__,
integer *  iz,
integer *  lev,
integer *  ipkey,
doublereal *  x,
doublereal *  r__,
doublereal *  cprime,
doublereal *  rhs,
doublereal *  cc,
doublereal *  pc 
)

Library VPMG prototypes
:ref: mkcors_ 14 7 4 4 4 4 4 4 4
:ref: mkfine_ 14 7 4 4 4 4 4 4 4
:ref: interp_ 14 9 4 4 4 4 4 4 7 7 7
:ref: prtini_ 14 1 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: mvcs_ 14 32 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: power_ 14 19 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 4 4 4
:ref: ipower_ 14 33 4 4 4 7 4 7 7 7 7 7 7 7 7 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7
:ref: dc_vec__ 14 7 7 7 7 4 4 4 4
:ref: restrc_ 14 9 4 4 4 4 4 4 7 7 7.

Author:
Michael Holst

int getpre_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  iz,
integer *  lev,
integer *  nlev_real__,
doublereal *  r__,
doublereal *  pc 
)

Library VPMG prototypes :ref: mkcors_ 14 7 4 4 4 4 4 4 4
:ref: mkfine_ 14 7 4 4 4 4 4 4 4
:ref: interp_ 14 9 4 4 4 4 4 4 7 7 7
:ref: prtini_ 14 1 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: mresid_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: azeros_ 14 4 4 4 4 7 *
:ref: mvcs_ 14 32 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: xscal_ 14 5 4 4 4 7 7
:ref: restrc_ 14 9 4 4 4 4 4 4 7 7 7.

Author:
Michael Holst

int gsrb27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int gsrb7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int gsrb7x_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes
:ref: mresid7_1s__ 14 13 4 4 4 4 7 7 7 7 7 7 7 7 7
:ref: mresid27_1s__ 14 23 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int gsrb_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int gsrbgo_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  r__,
doublereal *  w1,
doublereal *  w2,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7
:ref: prtini_ 14 1 4
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: ngsrb_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: gsrb_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.

Author:
Michael Holst

integer idamax_ ( integer *  n,
doublereal *  sx,
integer *  incx 
)

Library VPMG prototypes.

Author:
Michael Holst

int interp2_ ( integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  nxf,
integer *  nyf,
integer *  nzf,
doublereal *  xin,
doublereal *  xout,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw 
)

Library VPMG prototypes.

Author:
Michael Holst

int interp_ ( integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  nxf,
integer *  nyf,
integer *  nzf,
doublereal *  xin,
doublereal *  xout,
doublereal *  pc 
)

Library VPMG prototypes.

Author:
Michael Holst

int interpz_ ( integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  nxf,
integer *  nyf,
integer *  nzf,
doublereal *  xin,
doublereal *  xout 
)

Library VPMG prototypes.

Author:
Michael Holst

int ipower_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
integer *  iz,
doublereal *  w0,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
doublereal *  w4,
doublereal *  eigmin,
doublereal *  eigmin_model__,
doublereal *  tol,
integer *  itmax,
integer *  iters,
integer *  nlev,
integer *  ilev,
integer *  nlev_real__,
integer *  mgsolv,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  nu1,
integer *  nu2,
integer *  mgsmoo,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

integer ivariv_ ( integer *  nu,
integer *  level 
)

Library VPMG prototypes.

Author:
Michael Holst

int linesearch_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  alpha,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  p,
doublereal *  x,
doublereal *  r__,
doublereal *  ap,
doublereal *  zk,
doublereal *  zkp1 
)

Library VPMG prototypes
:ref: tsecnd_ 7 0
:ref: rand_ 6 1 4
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: c_vec__ 14 7 7 7 7 4 4 4 4
:ref: dc_vec__ 14 7 7 7 7 4 4 4 4.

Author:
Michael Holst

int matvec27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

int matvec27_1s__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

int matvec7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

int matvec7_1s__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

int matvec_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

integer maxlev_ ( integer *  n1,
integer *  n2,
integer *  n3 
)

Library VPMG prototypes.

Author:
Michael Holst

int mgdriv2_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
integer *  iz,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int mgdriv_ ( integer *  iparm,
doublereal *  rparm,
integer *  iwork,
doublereal *  rwork,
doublereal *  u,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int mgsize_ ( integer *  mgcoar,
integer *  mgdisc,
integer *  mgsolv,
integer *  nx,
integer *  ny,
integer *  nz,
integer *  nlev 
)

Library VPMG prototypes
:ref: maxlev_ 4 3 4 4 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: epsmac_ 7 1 4
:ref: mkcors_ 14 7 4 4 4 4 4 4 4
:ref: power_ 14 19 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 4 4 4
:ref: azeros_ 14 4 4 4 4 7
:ref: ipower_ 14 33 4 4 4 7 4 7 7 7 7 7 7 7 7 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7
:ref: mpower_ 14 33 4 4 4 7 4 7 7 7 7 7 7 7 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: buildalg_ 14 14 4 4 4 4 4 4 4 7 7 7 7 7 7 7
:ref: fbound00_ 14 4 4 4 4 7
:ref: mvcs_ 14 32 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: fmvcs_ 14 32 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: mvfas_ 14 33 4 4 4 7 4 7 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: fmvfas_ 14 33 4 4 4 7 4 7 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7.

Author:
Michael Holst

int mgsz_ ( integer *  mgcoar,
integer *  mgdisc,
integer *  mgsolv,
integer *  nx,
integer *  ny,
integer *  nz,
integer *  nlev,
integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  nf,
integer *  nc,
integer *  narr,
integer *  narrc,
integer *  n_rpc__,
integer *  n_iz__,
integer *  n_ipc__,
integer *  iretot,
integer *  iintot 
)

Library VPMG prototypes.

Author:
Michael Holst

int mkcors_ ( integer *  numlev,
integer *  nxold,
integer *  nyold,
integer *  nzold,
integer *  nxnew,
integer *  nynew,
integer *  nznew 
)

Library VPMG prototypes.

Author:
Michael Holst

int mkfine_ ( integer *  numlev,
integer *  nxold,
integer *  nyold,
integer *  nzold,
integer *  nxnew,
integer *  nynew,
integer *  nznew 
)

Library VPMG prototypes.

Author:
Michael Holst

int mpower_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
integer *  iz,
doublereal *  w0,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
doublereal *  w4,
doublereal *  eigmax,
doublereal *  tol,
integer *  itmax,
integer *  iters,
integer *  nlev,
integer *  ilev,
integer *  nlev_real__,
integer *  mgsolv,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  nu1,
integer *  nu2,
integer *  mgsmoo,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes
:ref: axrand_ 14 4 4 4 4 7
:ref: azeros_ 14 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xscal_ 14 5 4 4 4 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: mvcs_ 14 32 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 4 7 7 7 7 7 7.

Author:
Michael Holst

int mresid27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  r__ 
)

Library VPMG prototypes.

Author:
Michael Holst

int mresid27_1s__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  r__ 
)

Library VPMG prototypes.

Author:
Michael Holst

int mresid7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  r__ 
)

Library VPMG prototypes.

Author:
Michael Holst

int mresid7_1s__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  r__ 
)

Library VPMG prototypes.

Author:
Michael Holst

int mresid_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  r__ 
)

Library VPMG prototypes.

Author:
Michael Holst

int mvcs_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
integer *  iz,
doublereal *  w0,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  nlev,
integer *  ilev,
integer *  nlev_real__,
integer *  mgsolv,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  nu1,
integer *  nu2,
integer *  mgsmoo,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes
:ref: mkcors_ 14 7 4 4 4 4 4 4 4
:ref: mkfine_ 14 7 4 4 4 4 4 4 4
:ref: interp_ 14 9 4 4 4 4 4 4 7 7 7
:ref: prtini_ 14 1 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: azeros_ 14 4 4 4 4 7
:ref: smooth_ 14 19 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4 4
:ref: xcopy_small__ 14 5 4 4 4 7 7
:ref: dpbsl_ 14 5 7 4 4 4 7
:ref: xcopy_large__ 14 5 4 4 4 7 7
:ref: fbound00_ 14 4 4 4 4 7
:ref: mresid_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: ivariv_ 4 2 4 4
:ref: restrc_ 14 9 4 4 4 4 4 4 7 7 7.

Author:
Michael Holst

int mvfas_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
integer *  iz,
doublereal *  w0,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
doublereal *  w4,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  nlev,
integer *  ilev,
integer *  nlev_real__,
integer *  mgsolv,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  nu1,
integer *  nu2,
integer *  mgsmoo,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes
:ref: mkcors_ 14 7 4 4 4 4 4 4 4
:ref: mkfine_ 14 7 4 4 4 4 4 4 4
:ref: interp_ 14 9 4 4 4 4 4 4 7 7 7
:ref: prtini_ 14 1 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: nsmooth_ 14 19 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4 4
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: ivariv_ 4 2 4 4
:ref: restrc_ 14 9 4 4 4 4 4 4 7 7 7
:ref: extrac_ 14 8 4 4 4 4 4 4 7 7
:ref: linesearch_ 14 15 4 4 4 7 4 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int ncghs_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  p,
doublereal *  ap,
doublereal *  r__,
doublereal *  zk,
doublereal *  zkp1,
doublereal *  tmp,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: xscal_ 14 5 4 4 4 7 7
:ref: linesearch_ 14 15 4 4 4 7 4 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int ncghsdriv2_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
integer *  iz,
doublereal *  w0,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int ncghsdriv_ ( integer *  iparm,
doublereal *  rparm,
integer *  iwork,
doublereal *  rwork,
doublereal *  u,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int ncghsgo_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  r__,
doublereal *  p,
doublereal *  ap,
doublereal *  zk,
doublereal *  zkp1,
doublereal *  tmp,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int newdriv2_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
integer *  iz,
doublereal *  w1,
doublereal *  w2,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes
:ref: maxlev_ 4 3 4 4 4
:ref: mgsz_ 14 19 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: buildalg_ 14 14 4 4 4 4 4 4 4 7 7 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: newton_ 14 35 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 7 7 7 4 7 7 7 7 7 7
:ref: fnewton_ 14 35 4 4 4 7 4 7 7 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 4 4 4 7 7 7 4 7 7 7 7 7 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7.

Author:
Michael Holst

int newdriv_ ( integer *  iparm,
doublereal *  rparm,
integer *  iwork,
doublereal *  rwork,
doublereal *  u,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int newton_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
integer *  iz,
doublereal *  w0,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  nlev,
integer *  ilev,
integer *  nlev_real__,
integer *  mgsolv,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  nu1,
integer *  nu2,
integer *  mgsmoo,
doublereal *  cprime,
doublereal *  rhs,
doublereal *  xtmp,
integer *  ipc,
doublereal *  rpc,
doublereal *  pc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int ngsrb27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int ngsrb7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int ngsrb7x_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes
:ref: c_scal__ 7 3 7 7 4
:ref: dc_scal__ 7 3 7 7 4
:ref: nmresid7_1s__ 14 14 4 4 4 4 7 7 7 7 7 7 7 7 7 7
:ref: nmresid27_1s__ 14 24 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int ngsrb_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int ngsrbdriv2_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
integer *  iz,
doublereal *  w0,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int ngsrbdriv_ ( integer *  iparm,
doublereal *  rparm,
integer *  iwork,
doublereal *  rwork,
doublereal *  u,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int ngsrbgo_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  r__,
doublereal *  w1,
doublereal *  w2,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int ninterp27_ ( integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  nxf,
integer *  nyf,
integer *  nzf,
doublereal *  xin,
doublereal *  xout,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  cc,
doublereal *  fc 
)

Library VPMG prototypes
:ref: fbound00_ 14 4 4 4 4 7
:ref: c_scal__ 7 3 7 7 4
:ref: dc_scal__ 7 3 7 7 4.

Author:
Michael Holst

int ninterp7_ ( integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  nxf,
integer *  nyf,
integer *  nzf,
doublereal *  xin,
doublereal *  xout,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  cc,
doublereal *  fc 
)

Library VPMG prototypes.

Author:
Michael Holst

int ninterp_ ( integer *  nxc,
integer *  nyc,
integer *  nzc,
integer *  nxf,
integer *  nyf,
integer *  nzf,
doublereal *  xin,
doublereal *  xout,
doublereal *  pc,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc 
)

Library VPMG prototypes.

Author:
Michael Holst

int nmatvec27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  x,
doublereal *  y,
doublereal *  w1 
)

Library VPMG prototypes.

Author:
Michael Holst

int nmatvec7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  x,
doublereal *  y,
doublereal *  w1 
)

Library VPMG prototypes.

Author:
Michael Holst

int nmatvec_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  x,
doublereal *  y,
doublereal *  w1 
)

Library VPMG prototypes.

Author:
Michael Holst

int nmatvecd27_1s__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  y,
doublereal *  w1 
)

Library VPMG prototypes.

Author:
Michael Holst

int nmatvecd7_1s__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  y,
doublereal *  w1 
)

Library VPMG prototypes.

Author:
Michael Holst

int nmresid27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  r__,
doublereal *  w1 
)

Library VPMG prototypes.

Author:
Michael Holst

int nmresid27_1s__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  r__,
doublereal *  w1 
)

Library VPMG prototypes.

Author:
Michael Holst

int nmresid7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  r__,
doublereal *  w1 
)

Library VPMG prototypes.

Author:
Michael Holst

int nmresid7_1s__ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  r__,
doublereal *  w1 
)

Library VPMG prototypes.

Author:
Michael Holst

int nmresid_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  r__,
doublereal *  w1 
)

Library VPMG prototypes.

Author:
Michael Holst

int nrich27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes
:ref: nmresid7_1s__ 14 14 4 4 4 4 7 7 7 7 7 7 7 7 7 7
:ref: mresid27_1s__ 14 23 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: nmresid27_1s__ 14 24 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int nrich7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int nrich_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int nrichdriv2_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
integer *  iz,
doublereal *  w0,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int nrichdriv_ ( integer *  iparm,
doublereal *  rparm,
integer *  iwork,
doublereal *  rwork,
doublereal *  u,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int nrichgo_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  r__,
doublereal *  w1,
doublereal *  w2,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int nsmooth_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint,
integer *  meth 
)

Library VPMG prototypes
:ref: nwjac_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: ngsrb_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: nsor_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: nrich_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.

Author:
Michael Holst

int nsor27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes
/*:ref: c_scal__ 7 3 7 7 4
/*:ref: dc_scal__ 7 3 7 7 4
/*:ref: nmresid7_1s__ 14 14 4 4 4 4 7 7 7 7 7 7 7 7 7 7
/*:ref: nmresid27_1s__ 14 24 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int nsor7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int nsor_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int nsordriv2_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
integer *  iz,
doublereal *  w0,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int nsordriv_ ( integer *  iparm,
doublereal *  rparm,
integer *  iwork,
doublereal *  rwork,
doublereal *  u,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int nsorgo_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  r__,
doublereal *  w1,
doublereal *  w2,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int nwjac27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes
:ref: c_scal__ 7 3 7 7 4
:ref: dc_scal__ 7 3 7 7 4
:ref: nmresid7_1s__ 14 14 4 4 4 4 7 7 7 7 7 7 7 7 7 7
:ref: nmresid27_1s__ 14 24 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int nwjac7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int nwjac_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int nwjacdriv2_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
integer *  iz,
doublereal *  w0,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int nwjacdriv_ ( integer *  iparm,
doublereal *  rparm,
integer *  iwork,
doublereal *  rwork,
doublereal *  u,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf 
)

Library VPMG prototypes.

Author:
Michael Holst

int nwjacgo_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  r__,
doublereal *  w1,
doublereal *  w2,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes.

Author:
Michael Holst

int packmg_ ( integer *  iparm,
doublereal *  rparm,
integer *  nrwk,
integer *  niwk,
integer *  nx,
integer *  ny,
integer *  nz,
integer *  nlev,
integer *  nu1,
integer *  nu2,
integer *  mgkey,
integer *  itmax,
integer *  istop,
integer *  ipcon,
integer *  nonlin,
integer *  mgsmoo,
integer *  mgprol,
integer *  mgcoar,
integer *  mgsolv,
integer *  mgdisc,
integer *  iinfo,
doublereal *  errtol,
integer *  ipkey,
doublereal *  omegal,
doublereal *  omegan,
integer *  irite,
integer *  iperf 
)

Library VPMG prototypes.

Author:
Michael Holst

int power_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  iz,
integer *  ilev,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  w1,
doublereal *  w2,
doublereal *  w3,
doublereal *  w4,
doublereal *  eigmax,
doublereal *  eigmax_model__,
doublereal *  tol,
integer *  itmax,
integer *  iters,
integer *  iinfo 
)

Library VPMG prototypes.

Author:
Michael Holst

int prtini_ ( integer *  istop  ) 

Library VPMG prototypes.

Author:
Michael Holst

int prtmatb_ ( doublereal *  a,
integer *  n,
integer *  m,
integer *  lda 
)

Library VPMG prototypes.

Author:
Michael Holst

int prtmatd27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw 
)

Library VPMG prototypes.

Author:
Michael Holst

int prtmatd7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc 
)

Library VPMG prototypes.

Author:
Michael Holst

int prtmatd_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac 
)

Library VPMG prototypes.

Author:
Michael Holst

int prtstp_ ( integer *  iok,
integer *  iters,
doublereal *  rsnrm,
doublereal *  rsden,
doublereal *  orsnrm 
)

Library VPMG prototypes.

Author:
Michael Holst

int readit_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
integer *  nlev,
integer *  nrwk,
integer *  niwk,
integer *  key,
integer *  meth 
)

Library VPMG prototypes.

Author:
Michael Holst

int restrc2_ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
doublereal *  xin,
doublereal *  xout,
doublereal *  opc,
doublereal *  opn,
doublereal *  ops,
doublereal *  ope,
doublereal *  opw,
doublereal *  opne,
doublereal *  opnw,
doublereal *  opse,
doublereal *  opsw,
doublereal *  upc,
doublereal *  upn,
doublereal *  ups,
doublereal *  upe,
doublereal *  upw,
doublereal *  upne,
doublereal *  upnw,
doublereal *  upse,
doublereal *  upsw,
doublereal *  dpc,
doublereal *  dpn,
doublereal *  dps,
doublereal *  dpe,
doublereal *  dpw,
doublereal *  dpne,
doublereal *  dpnw,
doublereal *  dpse,
doublereal *  dpsw 
)

Library VPMG prototypes.

Author:
Michael Holst

int restrc_ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
doublereal *  xin,
doublereal *  xout,
doublereal *  pc 
)

Library VPMG prototypes.

Author:
Michael Holst

int restrcz_ ( integer *  nxf,
integer *  nyf,
integer *  nzf,
integer *  nxc,
integer *  nyc,
integer *  nzc,
doublereal *  xin,
doublereal *  xout 
)

Library VPMG prototypes
:ref: c_vec__ 14 7 7 7 7 4 4 4 4
:ref: fbound00_ 14 4 4 4 4 7.

Author:
Michael Holst

int rich27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes
:ref: mresid7_1s__ 14 13 4 4 4 4 7 7 7 7 7 7 7 7 7
:ref: mresid27_1s__ 14 23 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int rich7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int rich_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int richgo_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  r__,
doublereal *  w1,
doublereal *  w2,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7
:ref: prtini_ 14 1 4
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: nrich_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: rich_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.

Author:
Michael Holst

int smooth_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint,
integer *  meth 
)

Library VPMG prototypes
:ref: wjac_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: gsrb_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: sor_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: rich_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: cghs_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.

Author:
Michael Holst

int sor27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes
:ref: mresid7_1s__ 14 13 4 4 4 4 7 7 7 7 7 7 7 7 7
:ref: mresid27_1s__ 14 23 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int sor7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int sor_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int sorgo_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  r__,
doublereal *  w1,
doublereal *  w2,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7
:ref: prtini_ 14 1 4
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: nsor_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: sor_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.

Author:
Michael Holst

int tstart_ ( doublereal *  before,
doublereal *  overhd 
)

Library VPMG prototypes.

Author:
Michael Holst

int tstop_ ( doublereal *  before,
doublereal *  overhd,
doublereal *  cputme 
)

Library VPMG prototypes.

Author:
Michael Holst

int wjac27_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  one,
doublereal *  onw,
doublereal *  ue,
doublereal *  uw,
doublereal *  un,
doublereal *  us,
doublereal *  une,
doublereal *  unw,
doublereal *  use,
doublereal *  usw,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes
:ref: mresid7_1s__ 14 13 4 4 4 4 7 7 7 7 7 7 7 7 7
:ref: mresid27_1s__ 14 23 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int wjac7_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  oc,
doublereal *  cc,
doublereal *  fc,
doublereal *  oe,
doublereal *  on,
doublereal *  uc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int wjac_ ( integer *  nx,
integer *  ny,
integer *  nz,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  x,
doublereal *  w1,
doublereal *  w2,
doublereal *  r__,
integer *  itmax,
integer *  iters,
doublereal *  errtol,
doublereal *  omega,
integer *  iresid,
integer *  iadjoint 
)

Library VPMG prototypes.

Author:
Michael Holst

int wjacgo_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  r__,
doublereal *  w1,
doublereal *  w2,
integer *  istop,
integer *  itmax,
integer *  iters,
integer *  ierror,
integer *  iok,
integer *  iinfo,
doublereal *  epsiln,
doublereal *  errtol,
doublereal *  omega,
integer *  ipc,
doublereal *  rpc,
doublereal *  ac,
doublereal *  cc,
doublereal *  fc,
doublereal *  tru 
)

Library VPMG prototypes
:ref: prtstp_ 14 5 4 4 7 7 7
:ref: buildstr_ 14 5 4 4 4 4 4
:ref: tstart_ 14 2 7 7
:ref: buildops_ 14 30 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
:ref: tstop_ 14 3 7 7 7
:ref: nmatvec_ 14 10 4 4 4 4 7 7 7 7 7 7
:ref: matvec_ 14 9 4 4 4 4 7 7 7 7 7
:ref: epsmac_ 7 1 4
:ref: fbound00_ 14 4 4 4 4 7
:ref: fbound_ 14 8 4 4 4 4 7 7 7 7
:ref: prtini_ 14 1 4
:ref: azeros_ 14 4 4 4 4 7
:ref: nmresid_ 14 11 4 4 4 4 7 7 7 7 7 7 7
:ref: xnrm1_ 7 4 4 4 4 7
:ref: xnrm2_ 7 4 4 4 4 7
:ref: xdot_ 7 5 4 4 4 7 7
:ref: xcopy_ 14 5 4 4 4 7 7
:ref: nwjac_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4
:ref: xaxpy_ 14 6 4 4 4 7 7 7
:ref: wjac_ 14 18 4 4 4 4 7 7 7 7 7 7 7 7 4 4 7 7 4 4.

Author:
Michael Holst

int writit_ ( integer *  iparm,
doublereal *  rparm,
integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  u,
doublereal *  xf,
doublereal *  yf,
doublereal *  zf,
doublereal *  gxcf,
doublereal *  gycf,
doublereal *  gzcf,
doublereal *  a1cf,
doublereal *  a2cf,
doublereal *  a3cf,
doublereal *  ccf,
doublereal *  fcf,
doublereal *  tcf,
integer *  key 
)

Library VPMG prototypes
:ref: fillco_ 14 17 4 7 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7.

Author:
Michael Holst

int xaxpy_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  alpha,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

int xcopy_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

int xcopy_large__ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

int xcopy_small__ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal xdot3_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal xdot_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x,
doublereal *  y 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal xnrm1_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal xnrm2_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x 
)

Library VPMG prototypes.

Author:
Michael Holst

doublereal xnrm8_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x 
)

Library VPMG prototypes.

Author:
Michael Holst

int xprint_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x 
)

Library VPMG prototypes.

Author:
Michael Holst

int xrand_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x 
)

Library VPMG prototypes.

Author:
Michael Holst

int xscal_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  fac,
doublereal *  x 
)

Library VPMG prototypes.

Author:
Michael Holst

int zeros_ ( integer *  nx,
integer *  ny,
integer *  nz,
doublereal *  x 
)

Library VPMG prototypes.

Author:
Michael Holst


Generated on Mon Aug 9 11:13:11 2010 for PUNC by  doxygen 1.5.6