ITK: itpack.h Source File

00001 /*========================================================================= 00002 00003 Program: Insight Segmentation & Registration Toolkit 00004 Module: $RCSfile: itpack.h,v $ 00005 Language: C++ 00006 Date: $Date: 2003/09/10 14:29:44 $ 00007 Version: $Revision: 1.10 $ 00008 00009 Copyright (c) Insight Software Consortium. All rights reserved. 00010 See ITKCopyright.txt or http://www.itk.org/HTML/Copyright.htm for details. 00011 00012 This software is distributed WITHOUT ANY WARRANTY; without even 00013 the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR 00014 PURPOSE. See the above copyright notices for more information. 00015 00016 =========================================================================*/ 00017 00018 #ifndef __itpack_h 00019 #define __itpack_h 00020 00021 00022 extern "C" { 00023 00024 #include "f2c.h" 00025 00026 00076 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); 00077 00078 00095 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); 00096 00097 00114 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); 00115 00116 00133 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); 00134 00135 00152 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); 00153 00154 00171 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); 00172 00173 00190 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); 00191 00192 00206 extern int itjcg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *u1, doublereal *d__, doublereal *d1, doublereal *dtwd, doublereal *tri); 00207 00220 extern int itjsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *u1, doublereal *d__, integer *icnt); 00221 00222 00233 extern int itsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *wk); 00234 00235 00252 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); 00253 00254 00269 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); 00270 00271 00286 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); 00287 00288 00301 extern int itrssi_(integer *n, integer *nnb, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *ub, doublereal *ub1, doublereal *db); 00302 00303 00312 extern integer bisrch_(integer *n, integer *k, integer *l); 00313 00314 00324 extern doublereal cheby_(doublereal *qa, doublereal *qt, doublereal *rrr, integer *ip, doublereal *cme, doublereal *sme); 00325 00326 00337 extern int chgcon_(doublereal *tri, doublereal *gamold, doublereal *rhoold, integer *ibmth); 00338 00339 00348 extern int chgsi_(doublereal *dtnrm, integer *ibmth); 00349 00350 00357 extern logical chgsme_(doublereal *oldnrm, integer *icnt); 00358 00359 00369 extern int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 00370 00371 00380 extern int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 00381 00382 00391 extern doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 00392 00393 00401 extern doublereal determ_(integer *n, doublereal *tri, doublereal *xlmda); 00402 00403 00409 extern int dfault_(integer *iparm, doublereal *rparm); 00410 00425 extern int echall_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, integer *iparm, doublereal *rparm, integer *icall); 00426 00427 00441 extern int echout_(integer *iparm, doublereal *rparm, integer *imthd); 00442 00443 00453 extern doublereal eigvns_(integer *n, doublereal *tri, doublereal *d__, doublereal *e2, integer *ier); 00454 00455 00466 extern doublereal eigvss_(integer *n, doublereal *tri, doublereal *start, doublereal *zeta, integer *itmax, integer *ier); 00467 00468 00479 extern int eqrt1s_(doublereal *d__, doublereal *e2, integer *nn, integer *m, integer *isw, integer *ierr); 00480 00481 00487 extern integer ipstr_(doublereal *omega); 00488 00489 00506 extern int iterm_(integer *nn, doublereal *a, doublereal *u, doublereal *wk, integer *imthdd); 00507 00514 extern int ivfill_(integer *n, integer *iv, integer *ival); 00515 00516 00517 /* 00518 * FIXME: add doc 00519 */ 00520 extern int omeg_(doublereal *dnrm, integer *iflag); 00521 00522 00523 /* 00524 * FIXME: add doc 00525 */ 00526 extern logical omgchg_(integer *ndummy); 00527 00528 00529 /* 00530 * FIXME: add doc 00531 */ 00532 extern logical omgstr_(integer *ndummy); 00533 00534 00535 /* 00536 * FIXME: add doc 00537 */ 00538 extern int parcon_(doublereal *dtnrm, doublereal *c1, doublereal *c2, doublereal *c3, doublereal *c4, doublereal *gamold, doublereal *rhotmp, integer *ibmth); 00539 00540 00541 /* 00542 * FIXME: add doc 00543 */ 00544 extern int parsi_(doublereal *c1, doublereal *c2, doublereal *c3, integer *ibmth); 00545 00546 00547 /* 00548 * FIXME: add doc 00549 */ 00550 extern doublereal pbeta_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *v, doublereal *w1, doublereal *w2); 00551 00552 00553 /* 00554 * FIXME: add doc 00555 */ 00556 extern int pbsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs); 00557 00558 00559 /* 00560 * FIXME: add doc 00561 */ 00562 extern int permat_(integer *nn, integer *ia, integer *ja, doublereal *a, integer *p, integer *newia, integer *isym, integer *level, integer *nout, integer *ierr); 00563 00564 00565 /* 00566 * FIXME: add doc 00567 */ 00568 extern int perror_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *w, doublereal *digtt1, doublereal *digtt2, integer *idgtts); 00569 00570 00571 /* 00572 * FIXME: add doc 00573 */ 00574 extern int pervec_(integer *n, doublereal *v, integer *p); 00575 00576 00577 /* 00578 * FIXME: add doc 00579 */ 00580 extern int pfsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs); 00581 00582 00583 /* 00584 * FIXME: add doc 00585 */ 00586 extern int pfsor1_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs); 00587 00588 00589 /* 00590 * FIXME: add doc 00591 */ 00592 extern int pjac_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs); 00593 00594 00595 /* 00596 * FIXME: add doc 00597 */ 00598 extern int pmult_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *w); 00599 00600 00601 /* 00602 * FIXME: add doc 00603 */ 00604 extern int prbndx_(integer *nn, integer *nblack, integer *ia, integer *ja, integer *p, integer *ip, integer *level, integer *nout, integer *ier); 00605 00606 00607 /* 00608 * FIXME: add doc 00609 */ 00610 extern int prsblk_(integer *nnb, integer *nnr, integer *ia, integer *ja, doublereal *a, doublereal *ur, doublereal *vb); 00611 00612 00613 /* 00614 * FIXME: add doc 00615 */ 00616 extern int prsred_(integer *nnb, integer *nnr, integer *ia, integer *ja, doublereal *a, doublereal *ub, doublereal *vr); 00617 00618 00619 /* 00620 * FIXME: add doc 00621 */ 00622 extern int pssor1_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs, doublereal *fr, doublereal *br); 00623 00624 00625 /* 00626 * FIXME: add doc 00627 */ 00628 extern int pstop_(integer *n, doublereal *u, doublereal *dnrm, doublereal *ccon, integer *iflag, logical *q1); 00629 00630 00631 /* 00632 * FIXME: add doc 00633 */ 00634 extern doublereal pvtbv_(integer *n, integer *ia, integer *ja, doublereal *a, doublereal *v); 00635 00636 00637 /* 00638 * FIXME: add doc 00639 */ 00640 extern int qsort_(integer *nn, integer *key, doublereal *data, integer *error); 00641 00642 00646 extern int sbagn_(integer *n, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork, integer *levell, integer *noutt, integer *ierr); 00647 00648 00649 /* 00650 * FIXME: add doc 00651 */ 00652 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); 00653 00654 00664 extern int sbend_(integer *nn, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork); 00665 00666 00676 extern int sbini_(integer *nn, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork); 00677 00678 00695 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); 00696 00697 00698 /* 00699 * FIXME: add doc 00700 */ 00701 extern int scal_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *d__, integer *level, integer *nout, integer *ier); 00702 00703 00704 /* 00705 * FIXME: add doc 00706 */ 00707 extern int sum3_(integer *n, doublereal *c1, doublereal *x1, doublereal *c2, doublereal *x2, doublereal *c3, doublereal *x3); 00708 00709 00710 /* 00711 * FIXME: add doc 00712 */ 00713 extern doublereal tau_(integer *ii); 00714 00715 00716 /* 00717 * FIXME: add doc 00718 */ 00719 extern E_f timer_(real *timdmy); 00720 00721 00722 /* 00723 * FIXME: add doc 00724 */ 00725 extern logical tstchg_(integer *ibmth); 00726 00727 00728 /* 00729 * FIXME: add doc 00730 */ 00731 extern int unscal_(integer *n, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *d__); 00732 00733 00734 /* 00735 * FIXME: add doc 00736 */ 00737 extern int vevmw_(integer *n, doublereal *v, doublereal *w); 00738 00739 00740 /* 00741 * FIXME: add doc 00742 */ 00743 extern int vevpw_(integer *n, doublereal *v, doublereal *w); 00744 00745 00752 extern int vfill_(integer *n, doublereal *v, doublereal *val); 00753 00754 00755 /* 00756 * FIXME: add doc 00757 */ 00758 extern int vout_(integer *n, doublereal *v, integer *iswt, integer *noutt); 00759 00760 00761 /* 00762 * FIXME: add doc 00763 */ 00764 extern int wevmw_(integer *n, doublereal *v, doublereal *w); 00765 00766 00767 /* 00768 * FIXME: add doc 00769 */ 00770 extern int zbrent_(integer *n, doublereal *tri, doublereal *eps, integer *nsig, doublereal *aa, doublereal *bb, integer *maxfnn, integer *ier); 00771 00772 } 00773 00774 #endif // #ifndef __itpack_h