itpack.h

Go to the documentation of this file.

/*=========================================================================
 *
 *  Copyright Insight Software Consortium
 *
 *  Licensed under the Apache License, Version 2.0 (the "License");
 *  you may not use this file except in compliance with the License.
 *  You may obtain a copy of the License at
 *
 *         http://www.apache.org/licenses/LICENSE-2.0.txt
 *
 *  Unless required by applicable law or agreed to in writing, software
 *  distributed under the License is distributed on an "AS IS" BASIS,
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 *  See the License for the specific language governing permissions and
 *  limitations under the License.
 *
 *=========================================================================*/

#ifndef __itpack_h
#define __itpack_h

#include "v3p_netlib.h"

#include "v3p_f2c_mangle.h"

extern "C" {
extern int jcg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
                integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
                integer *ierr);

extern int jsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
                integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
                integer *ierr);

extern int sor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
                integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
                integer *ierr);

extern int ssorcg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
                   integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
                   integer *ierr);

extern int ssorsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
                   integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
                   integer *ierr);

extern int rscg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
                 integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
                 integer *ierr);

extern int rssi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
                 integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
                 integer *ierr);

extern int itjcg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *u1, doublereal *d__,
                  doublereal *d1, doublereal *dtwd,
                  doublereal *tri);

extern int itjsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *u1,
                  doublereal *d__,
                  integer *icnt);

extern int itsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *wk);

extern int itsrcg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *u1,
                   doublereal *c__, doublereal *c1, doublereal *d__, doublereal *dl, doublereal *wk,
                   doublereal *tri);

extern int itsrsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *u1,
                   doublereal *c__, doublereal *d__, doublereal *ctwd,
                   doublereal *wk);

extern int itrscg_(integer *n, integer *nnb, integer *ia, integer *ja, doublereal *a, doublereal *ub, doublereal *ub1,
                   doublereal *db, doublereal *db1, doublereal *wb,
                   doublereal *tri);

extern int itrssi_(integer *n, integer *nnb, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *ub,
                   doublereal *ub1,
                   doublereal *db);

extern integer bisrch_(integer *n, integer *k, integer *l);

extern doublereal cheby_(doublereal *qa, doublereal *qt, doublereal *rrr, integer *ip, doublereal *cme, doublereal *sme);

extern int chgcon_(doublereal *tri, doublereal *gamold, doublereal *rhoold, integer *ibmth);

extern int chgsi_(doublereal *dtnrm, integer *ibmth);

extern logical chgsme_(doublereal *oldnrm, integer *icnt);

extern int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy);

extern int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);

extern doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);

extern doublereal determ_(integer *n, doublereal *tri, doublereal *xlmda);

extern int dfault_(integer *iparm, doublereal *rparm);

extern int echall_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, integer *iparm,
                   doublereal *rparm,
                   integer *icall);

extern int echout_(integer *iparm, doublereal *rparm, integer *imthd);

extern doublereal eigvns_(integer *n, doublereal *tri, doublereal *d__, doublereal *e2, integer *ier);

extern doublereal eigvss_(integer *n, doublereal *tri, doublereal *start, doublereal *zeta, integer *itmax,
                          integer *ier);

extern int eqrt1s_(doublereal *d__, doublereal *e2, integer *nn, integer *m, integer *isw, integer *ierr);

extern integer ipstr_(doublereal *omega);

extern int iterm_(integer *nn, doublereal *a, doublereal *u, doublereal *wk, integer *imthdd);

extern int ivfill_(integer *n, integer *iv, integer *ival);

/*
 * FIXME: add doc
 */
extern int omeg_(doublereal *dnrm, integer *iflag);

/*
 * FIXME: add doc
 */
extern logical omgchg_(integer *ndummy);

/*
 * FIXME: add doc
 */
extern logical omgstr_(integer *ndummy);

/*
 * FIXME: add doc
 */
extern int parcon_(doublereal *dtnrm, doublereal *c1, doublereal *c2, doublereal *c3, doublereal *c4,
                   doublereal *gamold, doublereal *rhotmp,
                   integer *ibmth);

/*
 * FIXME: add doc
 */
extern int parsi_(doublereal *c1, doublereal *c2, doublereal *c3, integer *ibmth);

/*
 * FIXME: add doc
 */
extern doublereal pbeta_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *v, doublereal *w1,
                         doublereal *w2);

/*
 * FIXME: add doc
 */
extern int pbsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);

/*
 * FIXME: add doc
 */
extern int permat_(integer *nn, integer *ia, integer *ja, doublereal *a, integer *p, integer *newia, integer *isym,
                   integer *level, integer *nout,
                   integer *ierr);

/*
 * FIXME: add doc
 */
extern int perror_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *w,
                   doublereal *digtt1, doublereal *digtt2,
                   integer *idgtts);

/*
 * FIXME: add doc
 */
extern int pervec_(integer *n, doublereal *v, integer *p);

/*
 * FIXME: add doc
 */
extern int pfsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);

/*
 * FIXME: add doc
 */
extern int pfsor1_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);

/*
 * FIXME: add doc
 */
extern int pjac_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);

/*
 * FIXME: add doc
 */
extern int pmult_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *w);

/*
 * FIXME: add doc
 */
extern int prbndx_(integer *nn, integer *nblack, integer *ia, integer *ja, integer *p, integer *ip, integer *level,
                   integer *nout,
                   integer *ier);

/*
 * FIXME: add doc
 */
extern int prsblk_(integer *nnb, integer *nnr, integer *ia, integer *ja, doublereal *a, doublereal *ur, doublereal *vb);

/*
 * FIXME: add doc
 */
extern int prsred_(integer *nnb, integer *nnr, integer *ia, integer *ja, doublereal *a, doublereal *ub, doublereal *vr);

/*
 * FIXME: add doc
 */
extern int pssor1_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs, doublereal *fr,
                   doublereal *br);

/*
 * FIXME: add doc
 */
extern int pstop_(integer *n, doublereal *u, doublereal *dnrm, doublereal *ccon, integer *iflag, logical *q1);

/*
 * FIXME: add doc
 */
extern doublereal pvtbv_(integer *n, integer *ia, integer *ja, doublereal *a, doublereal *v);

/*
 * FIXME: add doc
 */
extern int qsort_(integer *nn, integer *key, doublereal *data, integer *error);

extern int sbagn_(integer *n, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork, integer *levell,
                  integer *noutt,
                  integer *ierr);

/*
 * FIXME: add doc
 */
extern int sbelm_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, integer *iw, doublereal *rw,
                  doublereal *tol, integer *isym, integer *level, integer *nout,
                  integer *ier);

extern int sbend_(integer *nn, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork);

extern int sbini_(integer *nn, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork);

extern int sbsij_(integer *nn, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork, integer *ii,
                  integer *jj, doublereal *vall, integer *mode, integer *levell, integer *noutt,
                  integer *ierr);

/*
 * FIXME: add doc
 */
extern int scal_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *d__,
                 integer *level, integer *nout,
                 integer *ier);

/*
 * FIXME: add doc
 */
extern int sum3_(integer *n, doublereal *c1, doublereal *x1, doublereal *c2, doublereal *x2, doublereal *c3,
                 doublereal *x3);

/*
 * FIXME: add doc
 */
extern doublereal tau_(integer *ii);

/*
 * FIXME: add doc
 */
extern E_f timer_(v3p_netlib_real *timdmy);

/*
 * FIXME: add doc
 */
extern logical tstchg_(integer *ibmth);

/*
 * FIXME: add doc
 */
extern int unscal_(integer *n, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *d__);

/*
 * FIXME: add doc
 */
extern int vevmw_(integer *n, doublereal *v, doublereal *w);

/*
 * FIXME: add doc
 */
extern int vevpw_(integer *n, doublereal *v, doublereal *w);

extern int vfill_(integer *n, doublereal *v, doublereal *val);

/*
 * FIXME: add doc
 */
extern int vout_(integer *n, doublereal *v, integer *iswt, integer *noutt);

/*
 * FIXME: add doc
 */
extern int wevmw_(integer *n, doublereal *v, doublereal *w);

/*
 * FIXME: add doc
 */
extern int zbrent_(integer *n, doublereal *tri, doublereal *eps, integer *nsig, doublereal *aa, doublereal *bb,
                   integer *maxfnn,
                   integer *ier);

}

#include "v3p_f2c_unmangle.h"

#endif // #ifndef __itpack_h