00001
00033 #ifndef _VPMG_H_
00034 #define _VPMG_H_
00035
00036 #include <punc/punc_base.h>
00037
00038 #include <punc/vf2c.h>
00039
00040
00041
00042
00043
00044
00045
00048 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);
00051 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);
00054 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);
00057 int buildband_(integer *key, integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, integer *ipcb, doublereal *rpcb, doublereal *acb);
00060 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);
00063 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);
00067 int buildg_(integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *numdia, doublereal *pcff, doublereal *acff, doublereal *ac);
00070 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);
00073 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);
00076 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);
00079 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);
00082 int buildp_trilin__(integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, doublereal *pc, doublereal *xf, doublereal *yf, doublereal *zf);
00085 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);
00088 int buildp_op7__(integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *pc);
00091 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);
00094 int buildp_op27__(integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *pc);
00097 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);
00100 int buildp_modop7__(integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *pc);
00103 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);
00106 int buildp_modop27__(integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *pc);
00109 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);
00119 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);
00122 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);
00125 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);
00144 int getpre_(integer *nx, integer *ny, integer *nz, integer *iz, integer *lev, integer *nlev_real__, doublereal *r__, doublereal *pc);
00147 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);
00163 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);
00166 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);
00169 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);
00172 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);
00175 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);
00180 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);
00183 int readit_(integer *iparm, doublereal *rparm, integer *nx, integer *ny, integer *nz, integer *nlev, integer *nrwk, integer *niwk, integer *key, integer *meth);
00186 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);
00190 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);
00193 int matvec_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y);
00196 int matvec7_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y);
00199 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);
00202 int matvec27_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y);
00205 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);
00208 int mresid_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__);
00211 int mresid7_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__);
00214 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__);
00217 int mresid27_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__);
00220 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__);
00223 int nmatvec_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y, doublereal *w1);
00226 int nmatvec7_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y, doublereal *w1);
00229 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);
00232 int nmatvec27_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *x, doublereal *y, doublereal *w1);
00235 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);
00238 int nmresid_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__, doublereal *w1);
00241 int nmresid7_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__, doublereal *w1);
00244 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);
00247 int nmresid27_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac, doublereal *cc, doublereal *fc, doublereal *x, doublereal *r__, doublereal *w1);
00250 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);
00253 int interp_(integer *nxc, integer *nyc, integer *nzc, integer *nxf, integer *nyf, integer *nzf, doublereal *xin, doublereal *xout, doublereal *pc);
00256 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);
00259 int restrc_(integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, doublereal *xin, doublereal *xout, doublereal *pc);
00262 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);
00265 int extrac_(integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, doublereal *xin, doublereal *xout);
00268 int interpz_(integer *nxc, integer *nyc, integer *nzc, integer *nxf, integer *nyf, integer *nzf, doublereal *xin, doublereal *xout);
00273 int restrcz_(integer *nxf, integer *nyf, integer *nzf, integer *nxc, integer *nyc, integer *nzc, doublereal *xin, doublereal *xout);
00276 int daxpy_(integer *n, doublereal *alpha, doublereal *x, integer *istep, doublereal *y, integer *jstep);
00279 int dcopy_(integer *n, doublereal *x, integer *istep, doublereal *y, integer *jstep);
00282 doublereal dasum_(integer *n, doublereal *x, integer *istep);
00285 doublereal dnrm1_(integer *n, doublereal *x, integer *istep);
00288 doublereal dnrm2_(integer *n, doublereal *x, integer *istep);
00291 doublereal dnrm8_(integer *n, doublereal *x, integer *istep);
00294 int dscal_(integer *n, doublereal *fac, doublereal *x, integer *istep);
00297 doublereal ddot_(integer *n, doublereal *x, integer *istep, doublereal *y, integer *jstep);
00300 integer idamax_(integer *n, doublereal *sx, integer *incx);
00303 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);
00326 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);
00329 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);
00332 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);
00335 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);
00357 int mgsize_(integer *mgcoar, integer *mgdisc, integer *mgsolv, integer *nx, integer *ny, integer *nz, integer *nlev);
00360 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);
00381 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);
00384 integer maxlev_(integer *n1, integer *n2, integer *n3);
00387 int mkcors_(integer *numlev, integer *nxold, integer *nyold, integer *nzold, integer *nxnew, integer *nynew, integer *nznew);
00390 int corsr_(integer *nold, integer *nnew);
00393 int mkfine_(integer *numlev, integer *nxold, integer *nyold, integer *nzold, integer *nxnew, integer *nynew, integer *nznew);
00396 int finer_(integer *nold, integer *nnew);
00399 integer ivariv_(integer *nu, integer *level);
00402 int prtini_(integer *istop);
00405 int prtstp_(integer *iok, integer *iters, doublereal *rsnrm, doublereal *rsden, doublereal *orsnrm);
00408 int buildstr_(integer *nx, integer *ny, integer *nz, integer *nlev, integer *iz);
00411 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);
00414 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);
00417 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);
00420 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);
00423 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);
00437 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);
00440 doublereal epsmac_(integer *idum);
00443 int tstart_(doublereal *before, doublereal *overhd);
00446 int tstop_(doublereal *before, doublereal *overhd, doublereal *cputme);
00449 int xaxpy_(integer *nx, integer *ny, integer *nz, doublereal *alpha, doublereal *x, doublereal *y);
00452 int xcopy_(integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *y);
00455 doublereal xnrm1_(integer *nx, integer *ny, integer *nz, doublereal *x);
00458 doublereal xnrm2_(integer *nx, integer *ny, integer *nz, doublereal *x);
00461 doublereal xnrm8_(integer *nx, integer *ny, integer *nz, doublereal *x);
00464 int xscal_(integer *nx, integer *ny, integer *nz, doublereal *fac, doublereal *x);
00467 doublereal xdot_(integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *y);
00470 doublereal xdot3_(integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *y);
00473 int zeros_(integer *nx, integer *ny, integer *nz, doublereal *x);
00476 int xrand_(integer *nx, integer *ny, integer *nz, doublereal *x);
00479 int cinit_(integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *value);
00482 int azeros_(integer *nx, integer *ny, integer *nz, doublereal *x);
00485 int axrand_(integer *nx, integer *ny, integer *nz, doublereal *x);
00488 int xcopy_small__(integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *y);
00491 int xcopy_large__(integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *y);
00494 int fbound_(integer *ibound, integer *nx, integer *ny, integer *nz, doublereal *x, doublereal *gxc, doublereal *gyc, doublereal *gzc);
00497 int fbound00_(integer *nx, integer *ny, integer *nz, doublereal *x);
00500 int xprint_(integer *nx, integer *ny, integer *nz, doublereal *x);
00503 int prtmatd_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *ac);
00506 int prtmatd7_(integer *nx, integer *ny, integer *nz, integer *ipc, doublereal *rpc, doublereal *oc, doublereal *oe, doublereal *on, doublereal *uc);
00509 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);
00512 int prtmatb_(doublereal *a, integer *n, integer *m, integer *lda);
00520 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);
00523 int dpbco_(doublereal *abd, integer *lda, integer *n, integer *m, doublereal *rcond, doublereal *z__, integer *info);
00526 int dpbfa_(doublereal *abd, integer *lda, integer *n, integer *m, integer *info);
00533 int dpbsl_(doublereal *abd, integer *lda, integer *n, integer *m, doublereal *b);
00542 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);
00545 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);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);
00550 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);
00574 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);
00577 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);
00593 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);
00596 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);
00599 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);
00620 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);
00623 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);
00626 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);
00629 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);
00636 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);
00639 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);
00642 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);
00645 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);
00668 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);
00671 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);
00674 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);
00680 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);
00683 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);
00686 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);
00692 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);
00695 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);
00698 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);
00701 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);
00724 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);
00731 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);
00734 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);
00737 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);
00744 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);
00747 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);
00750 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);
00753 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);
00776 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);
00779 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);
00782 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);
00789 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);
00792 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);
00795 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);
00798 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);
00821 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);
00824 doublereal c_scal__(doublereal *coef, doublereal *u, integer *ipkey);
00827 doublereal dc_scal__(doublereal *coef, doublereal *u, integer *ipkey);
00830 int c_vec__(doublereal *coef, doublereal *uin, doublereal *uout, integer *nx, integer *ny, integer *nz, integer *ipkey);
00833 int dc_vec__(doublereal *coef, doublereal *uin, doublereal *uout, integer *nx, integer *ny, integer *nz, integer *ipkey);
00836 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);
00839 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);
00842 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);
00854 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);
00857 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);
00860 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);
00865 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);
00873 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);
00876 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);
00879 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);
00884 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);
00887 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);
00890 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);
00895 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);
00896
00897
00898 #endif
00899
00900
