00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 #ifndef __itpack_h
00019 #define __itpack_h
00020
00021 #include "v3p_netlib.h"
00022
00023 #include "v3p_f2c_mangle.h"
00024
00025 extern "C" {
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
00519
00520 extern int omeg_(doublereal *dnrm, integer *iflag);
00521
00522
00523
00524
00525
00526 extern logical omgchg_(integer *ndummy);
00527
00528
00529
00530
00531
00532 extern logical omgstr_(integer *ndummy);
00533
00534
00535
00536
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
00543
00544 extern int parsi_(doublereal *c1, doublereal *c2, doublereal *c3, integer *ibmth);
00545
00546
00547
00548
00549
00550 extern doublereal pbeta_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *v, doublereal *w1, doublereal *w2);
00551
00552
00553
00554
00555
00556 extern int pbsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);
00557
00558
00559
00560
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
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
00573
00574 extern int pervec_(integer *n, doublereal *v, integer *p);
00575
00576
00577
00578
00579
00580 extern int pfsor_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);
00581
00582
00583
00584
00585
00586 extern int pfsor1_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);
00587
00588
00589
00590
00591
00592 extern int pjac_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *rhs);
00593
00594
00595
00596
00597
00598 extern int pmult_(integer *nn, integer *ia, integer *ja, doublereal *a, doublereal *u, doublereal *w);
00599
00600
00601
00602
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
00609
00610 extern int prsblk_(integer *nnb, integer *nnr, integer *ia, integer *ja, doublereal *a, doublereal *ur, doublereal *vb);
00611
00612
00613
00614
00615
00616 extern int prsred_(integer *nnb, integer *nnr, integer *ia, integer *ja, doublereal *a, doublereal *ub, doublereal *vr);
00617
00618
00619
00620
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
00627
00628 extern int pstop_(integer *n, doublereal *u, doublereal *dnrm, doublereal *ccon, integer *iflag, logical *q1);
00629
00630
00631
00632
00633
00634 extern doublereal pvtbv_(integer *n, integer *ia, integer *ja, doublereal *a, doublereal *v);
00635
00636
00637
00638
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
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
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
00706
00707 extern int sum3_(integer *n, doublereal *c1, doublereal *x1, doublereal *c2, doublereal *x2, doublereal *c3, doublereal *x3);
00708
00709
00710
00711
00712
00713 extern doublereal tau_(integer *ii);
00714
00715
00716
00717
00718
00719 extern E_f timer_(v3p_netlib_real *timdmy);
00720
00721
00722
00723
00724
00725 extern logical tstchg_(integer *ibmth);
00726
00727
00728
00729
00730
00731 extern int unscal_(integer *n, integer *ia, integer *ja, doublereal *a, doublereal *rhs, doublereal *u, doublereal *d__);
00732
00733
00734
00735
00736
00737 extern int vevmw_(integer *n, doublereal *v, doublereal *w);
00738
00739
00740
00741
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
00757
00758 extern int vout_(integer *n, doublereal *v, integer *iswt, integer *noutt);
00759
00760
00761
00762
00763
00764 extern int wevmw_(integer *n, doublereal *v, doublereal *w);
00765
00766
00767
00768
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 #include "v3p_f2c_unmangle.h"
00775
00776 #endif // #ifndef __itpack_h
00777