ITK  4.8.0
Insight Segmentation and Registration Toolkit
itpack.h
Go to the documentation of this file.
1 /*=========================================================================
2  *
3  * Copyright Insight Software Consortium
4  *
5  * Licensed under the Apache License, Version 2.0 (the "License");
6  * you may not use this file except in compliance with the License.
7  * You may obtain a copy of the License at
8  *
9  * http://www.apache.org/licenses/LICENSE-2.0.txt
10  *
11  * Unless required by applicable law or agreed to in writing, software
12  * distributed under the License is distributed on an "AS IS" BASIS,
13  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14  * See the License for the specific language governing permissions and
15  * limitations under the License.
16  *
17  *=========================================================================*/
18 
19 #ifndef __itpack_h
20 #define __itpack_h
21 
22 #include "v3p_netlib.h"
23 
24 #include "v3p_f2c_mangle.h"
25 
26 extern "C" {
74 extern int jcg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
75  integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
76  integer *ierr);
77 
94 extern int jsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
95  integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
96  integer *ierr);
97 
114 extern int sor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
115  integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
116  integer *ierr);
117 
134 extern int ssorcg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
135  integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
136  integer *ierr);
137 
154 extern int ssorsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
155  integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
156  integer *ierr);
157 
174 extern int rscg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
175  integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
176  integer *ierr);
177 
194 extern int rssi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, integer *iwksp,
195  integer *nw, doublereal *wksp, integer *iparm, doublereal *rparm,
196  integer *ierr);
197 
211 extern int itjcg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *u1, doublereal *d__,
212  doublereal *d1, doublereal *dtwd,
213  doublereal *tri);
214 
227 extern int itjsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *u1,
228  doublereal *d__,
229  integer *icnt);
230 
241 extern int itsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *wk);
242 
259 extern int itsrcg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *u1,
260  doublereal *c__, doublereal *c1, doublereal *d__, doublereal *dl, doublereal *wk,
261  doublereal *tri);
262 
277 extern int itsrsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *u1,
278  doublereal *c__, doublereal *d__, doublereal *ctwd,
279  doublereal *wk);
280 
295 extern int itrscg_(integer *n, integer *nnb, integer *ia, integer *ja, doublereal *a, doublereal *ub, doublereal *ub1,
296  doublereal *db, doublereal *db1, doublereal *wb,
297  doublereal *tri);
298 
311 extern int itrssi_(integer *n, integer *nnb, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *ub,
312  doublereal *ub1,
313  doublereal *db);
314 
323 extern integer bisrch_(integer *n, integer *k, integer *l);
324 
334 extern doublereal cheby_(doublereal *qa, doublereal *qt, doublereal *rrr, integer *ip, doublereal *cme, doublereal *sme);
335 
346 extern int chgcon_(doublereal *tri, doublereal *gamold, doublereal *rhoold, integer *ibmth);
347 
356 extern int chgsi_(doublereal *dtnrm, integer *ibmth);
357 
364 extern logical chgsme_(doublereal *oldnrm, integer *icnt);
365 
375 extern int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
376 
385 extern int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
386 
395 extern doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
396 
404 extern doublereal determ_(integer *n, doublereal *tri, doublereal *xlmda);
405 
411 extern int dfault_(integer *iparm, doublereal *rparm);
412 
427 extern int echall_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, integer *iparm,
428  doublereal *rparm,
429  integer *icall);
430 
444 extern int echout_(integer *iparm, doublereal *rparm, integer *imthd);
445 
455 extern doublereal eigvns_(integer *n, doublereal *tri, doublereal *d__, doublereal *e2, integer *ier);
456 
467 extern doublereal eigvss_(integer *n, doublereal *tri, doublereal *start, doublereal *zeta, integer *itmax,
468  integer *ier);
469 
480 extern int eqrt1s_(doublereal *d__, doublereal *e2, integer *nn, integer *m, integer *isw, integer *ierr);
481 
487 extern integer ipstr_(doublereal *omega);
488 
505 extern int iterm_(integer *nn, doublereal *a, doublereal *u, doublereal *wk, integer *imthdd);
506 
513 extern int ivfill_(integer *n, integer *iv, integer *ival);
514 
515 /*
516  * FIXME: add doc
517  */
518 extern int omeg_(doublereal *dnrm, integer *iflag);
519 
520 /*
521  * FIXME: add doc
522  */
523 extern logical omgchg_(integer *ndummy);
524 
525 /*
526  * FIXME: add doc
527  */
528 extern logical omgstr_(integer *ndummy);
529 
530 /*
531  * FIXME: add doc
532  */
533 extern int parcon_(doublereal *dtnrm, doublereal *c1, doublereal *c2, doublereal *c3, doublereal *c4,
534  doublereal *gamold, doublereal *rhotmp,
535  integer *ibmth);
536 
537 /*
538  * FIXME: add doc
539  */
540 extern int parsi_(doublereal *c1, doublereal *c2, doublereal *c3, integer *ibmth);
541 
542 /*
543  * FIXME: add doc
544  */
545 extern doublereal pbeta_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *v, doublereal *w1,
546  doublereal *w2);
547 
548 /*
549  * FIXME: add doc
550  */
551 extern int pbsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);
552 
553 /*
554  * FIXME: add doc
555  */
556 extern int permat_(integer *nn, integer *ia, integer *ja, doublereal *a, integer *p, integer *newia, integer *isym,
557  integer *level, integer *nout,
558  integer *ierr);
559 
560 /*
561  * FIXME: add doc
562  */
563 extern int perror_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *w,
564  doublereal *digtt1, doublereal *digtt2,
565  integer *idgtts);
566 
567 /*
568  * FIXME: add doc
569  */
570 extern int pervec_(integer *n, doublereal *v, integer *p);
571 
572 /*
573  * FIXME: add doc
574  */
575 extern int pfsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);
576 
577 /*
578  * FIXME: add doc
579  */
580 extern int pfsor1_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);
581 
582 /*
583  * FIXME: add doc
584  */
585 extern int pjac_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);
586 
587 /*
588  * FIXME: add doc
589  */
590 extern int pmult_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *w);
591 
592 /*
593  * FIXME: add doc
594  */
595 extern int prbndx_(integer *nn, integer *nblack, integer *ia, integer *ja, integer *p, integer *ip, integer *level,
596  integer *nout,
597  integer *ier);
598 
599 /*
600  * FIXME: add doc
601  */
602 extern int prsblk_(integer *nnb, integer *nnr, integer *ia, integer *ja, doublereal *a, doublereal *ur, doublereal *vb);
603 
604 /*
605  * FIXME: add doc
606  */
607 extern int prsred_(integer *nnb, integer *nnr, integer *ia, integer *ja, doublereal *a, doublereal *ub, doublereal *vr);
608 
609 /*
610  * FIXME: add doc
611  */
612 extern int pssor1_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs, doublereal *fr,
613  doublereal *br);
614 
615 /*
616  * FIXME: add doc
617  */
618 extern int pstop_(integer *n, doublereal *u, doublereal *dnrm, doublereal *ccon, integer *iflag, logical *q1);
619 
620 /*
621  * FIXME: add doc
622  */
623 extern doublereal pvtbv_(integer *n, integer *ia, integer *ja, doublereal *a, doublereal *v);
624 
625 /*
626  * FIXME: add doc
627  */
628 extern int qsort_(integer *nn, integer *key, doublereal *data, integer *error);
629 
633 extern int sbagn_(integer *n, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork, integer *levell,
634  integer *noutt,
635  integer *ierr);
636 
637 /*
638  * FIXME: add doc
639  */
640 extern int sbelm_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, integer *iw, doublereal *rw,
641  doublereal *tol, integer *isym, integer *level, integer *nout,
642  integer *ier);
643 
653 extern int sbend_(integer *nn, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork);
654 
664 extern int sbini_(integer *nn, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork);
665 
682 extern int sbsij_(integer *nn, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork, integer *ii,
683  integer *jj, doublereal *vall, integer *mode, integer *levell, integer *noutt,
684  integer *ierr);
685 
686 /*
687  * FIXME: add doc
688  */
689 extern int scal_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *d__,
690  integer *level, integer *nout,
691  integer *ier);
692 
693 /*
694  * FIXME: add doc
695  */
696 extern int sum3_(integer *n, doublereal *c1, doublereal *x1, doublereal *c2, doublereal *x2, doublereal *c3,
697  doublereal *x3);
698 
699 /*
700  * FIXME: add doc
701  */
702 extern doublereal tau_(integer *ii);
703 
704 /*
705  * FIXME: add doc
706  */
707 extern E_f timer_(v3p_netlib_real *timdmy);
708 
709 /*
710  * FIXME: add doc
711  */
712 extern logical tstchg_(integer *ibmth);
713 
714 /*
715  * FIXME: add doc
716  */
717 extern int unscal_(integer *n, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *d__);
718 
719 /*
720  * FIXME: add doc
721  */
722 extern int vevmw_(integer *n, doublereal *v, doublereal *w);
723 
724 /*
725  * FIXME: add doc
726  */
727 extern int vevpw_(integer *n, doublereal *v, doublereal *w);
728 
735 extern int vfill_(integer *n, doublereal *v, doublereal *val);
736 
737 /*
738  * FIXME: add doc
739  */
740 extern int vout_(integer *n, doublereal *v, integer *iswt, integer *noutt);
741 
742 /*
743  * FIXME: add doc
744  */
745 extern int wevmw_(integer *n, doublereal *v, doublereal *w);
746 
747 /*
748  * FIXME: add doc
749  */
750 extern int zbrent_(integer *n, doublereal *tri, doublereal *eps, integer *nsig, doublereal *aa, doublereal *bb,
751  integer *maxfnn,
752  integer *ier);
753 
754 }
755 
756 #include "v3p_f2c_unmangle.h"
757 
758 #endif // #ifndef __itpack_h
int pstop_(integer *n, doublereal *u, doublereal *dnrm, doublereal *ccon, integer *iflag, logical *q1)
int eqrt1s_(doublereal *d__, doublereal *e2, integer *nn, integer *m, integer *isw, integer *ierr)
doublereal eigvns_(integer *n, doublereal *tri, doublereal *d__, doublereal *e2, integer *ier)
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)
int qsort_(integer *nn, integer *key, doublereal *data, integer *error)
int pmult_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *w)
int itrscg_(integer *n, integer *nnb, integer *ia, integer *ja, doublereal *a, doublereal *ub, doublereal *ub1, doublereal *db, doublereal *db1, doublereal *wb, doublereal *tri)
int pssor1_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs, doublereal *fr, doublereal *br)
integer bisrch_(integer *n, integer *k, integer *l)
doublereal eigvss_(integer *n, doublereal *tri, doublereal *start, doublereal *zeta, integer *itmax, integer *ier)
int dfault_(integer *iparm, doublereal *rparm)
logical omgstr_(integer *ndummy)
doublereal tau_(integer *ii)
int unscal_(integer *n, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *d__)
int sbini_(integer *nn, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork)
int wevmw_(integer *n, doublereal *v, doublereal *w)
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)
doublereal pbeta_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *v, doublereal *w1, doublereal *w2)
int pfsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs)
int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy)
int pbsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs)
int itjcg_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *u1, doublereal *d__, doublereal *d1, doublereal *dtwd, doublereal *tri)
int pjac_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs)
int scal_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *d__, integer *level, integer *nout, integer *ier)
int zbrent_(integer *n, doublereal *tri, doublereal *eps, integer *nsig, doublereal *aa, doublereal *bb, integer *maxfnn, integer *ier)
int itsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *wk)
int chgcon_(doublereal *tri, doublereal *gamold, doublereal *rhoold, integer *ibmth)
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)
int sbend_(integer *nn, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork)
int pervec_(integer *n, doublereal *v, integer *p)
int vfill_(integer *n, doublereal *v, doublereal *val)
doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy)
int pfsor1_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs)
int vout_(integer *n, doublereal *v, integer *iswt, integer *noutt)
int prbndx_(integer *nn, integer *nblack, integer *ia, integer *ja, integer *p, integer *ip, integer *level, integer *nout, integer *ier)
int ivfill_(integer *n, integer *iv, integer *ival)
int itrssi_(integer *n, integer *nnb, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *ub, doublereal *ub1, doublereal *db)
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)
int chgsi_(doublereal *dtnrm, integer *ibmth)
int prsred_(integer *nnb, integer *nnr, integer *ia, integer *ja, doublereal *a, doublereal *ub, doublereal *vr)
int prsblk_(integer *nnb, integer *nnr, integer *ia, integer *ja, doublereal *a, doublereal *ur, doublereal *vb)
logical omgchg_(integer *ndummy)
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)
int echout_(integer *iparm, doublereal *rparm, integer *imthd)
int sum3_(integer *n, doublereal *c1, doublereal *x1, doublereal *c2, doublereal *x2, doublereal *c3, doublereal *x3)
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)
E_f timer_(v3p_netlib_real *timdmy)
int omeg_(doublereal *dnrm, integer *iflag)
int permat_(integer *nn, integer *ia, integer *ja, doublereal *a, integer *p, integer *newia, integer *isym, integer *level, integer *nout, integer *ierr)
int itsrsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *u1, doublereal *c__, doublereal *d__, doublereal *ctwd, doublereal *wk)
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)
integer ipstr_(doublereal *omega)
int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy)
int sbagn_(integer *n, integer *nz, integer *ia, integer *ja, doublereal *a, integer *iwork, integer *levell, integer *noutt, integer *ierr)
doublereal cheby_(doublereal *qa, doublereal *qt, doublereal *rrr, integer *ip, doublereal *cme, doublereal *sme)
int vevpw_(integer *n, doublereal *v, doublereal *w)
doublereal pvtbv_(integer *n, integer *ia, integer *ja, doublereal *a, doublereal *v)
int perror_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *w, doublereal *digtt1, doublereal *digtt2, integer *idgtts)
int parsi_(doublereal *c1, doublereal *c2, doublereal *c3, integer *ibmth)
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)
int echall_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, integer *iparm, doublereal *rparm, integer *icall)
logical tstchg_(integer *ibmth)
int itjsi_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *u1, doublereal *d__, integer *icnt)
doublereal determ_(integer *n, doublereal *tri, doublereal *xlmda)
logical chgsme_(doublereal *oldnrm, integer *icnt)
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)
int vevmw_(integer *n, doublereal *v, doublereal *w)
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)
int iterm_(integer *nn, doublereal *a, doublereal *u, doublereal *wk, integer *imthdd)
int parcon_(doublereal *dtnrm, doublereal *c1, doublereal *c2, doublereal *c3, doublereal *c4, doublereal *gamold, doublereal *rhotmp, integer *ibmth)