mathlib-arpack.c
1 //! @file mathlib-arpack.c
2 //
3 //! @section copyright
4 //
5 // This file is part of VIF - vintage fortran compiler.
6 // Copyright 2020-2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
7 //
8 //! @section license
9 //
10 // This program is free software; you can redistribute it and/or modify it
11 // under the terms of the gnu general public license as published by the
12 // free software foundation; either version 3 of the license, or
13 // (at your option) any later version.
14 //
15 // This program is distributed in the hope that it will be useful, but
16 // without any warranty; without even the implied warranty of merchantability
17 // or fitness for a particular purpose. See the GNU general public license for
18 // more details. you should have received a copy of the GNU general public
19 // license along with this program. If not, see <http://www.gnu.org/licenses/>.
20 //
21 //! @Synopsis
22 //
23 //! 82 subprograms from ARPACK
24
25 // Compiled from Fortran source code by VIF.
26 // Selected subprograms are:
27 //
28 // CGETV0 CSORTC DNAUPD DSAUPD DSTATN IVOUT SNAUPD SSAUPD SSTATN ZNAUP2
29 // CMOUT CSTATN DNCONV DSCONV DSTATS SECOND SNCONV SSCONV SSTATS ZNAUPD
30 // CNAITR CVOUT DNEIGH DSEIGT DSTQRB SGETV0 SNEIGH SSEIGT SSTQRB ZNEIGH
31 // CNAPPS DGETV0 DNEUPD DSESRT DVOUT SLAQRB SNEUPD SSESRT SVOUT ZNEUPD
32 // CNAUP2 DLAQRB DNGETS DSEUPD ICNTEQ SMOUT SNGETS SSEUPD ZGETV0 ZNGETS
33 // CNAUPD DMOUT DSAITR DSGETS ICOPY SNAITR SSAITR SSGETS ZMOUT ZSORTC
34 // CNEIGH DNAITR DSAPPS DSORTC ISET SNAPPS SSAPPS SSORTC ZNAITR ZSTATN
35 // CNEUPD DNAPPS DSAUP2 DSORTR ISWAP SNAUP2 SSAUP2 SSORTR ZNAPPS ZVOUT
36 // CNGETS DNAUP2
37
38 // ARPACK, the ARnoldi PACKage, is a numerical software library written in FORTRAN
39 // 77 for solving large scale eigenvalue problems. The package is designed to
40 // compute a few eigenvalues and corresponding eigenvectors of large sparse or
41 // structured matrices, using the Implicitly Restarted Arnoldi Method (IRAM) or,
42 // in the case of symmetric matrices, the corresponding variant of the Lanczos
43 // algorithm. It is used by many popular numerical computing environments such as
44 // SciPy, Mathematica, GNU Octave and MATLAB to provide this functionality.
45
46 // The license for ARPACK Fortran source code is:
47 //
48 // BSD Software License
49 //
50 // Pertains to ARPACK and P_ARPACK
51 //
52 // Copyright (c) 1996-2008 Rice University.
53 // Developed by D.C. Sorensen, R.B. Lehoucq, C. Yang, and K. Maschhoff.
54 // All rights reserved.
55 //
56 // Redistribution and use in source and binary forms, with or without
57 // modification, are permitted provided that the following conditions are
58 // met:
59 //
60 // - Redistributions of source code must retain the above copyright
61 // notice, this list of conditions and the following disclaimer.
62 //
63 // - Redistributions in binary form must reproduce the above copyright
64 // notice, this list of conditions and the following disclaimer listed
65 // in this license in the documentation and/or other materials
66 // provided with the distribution.
67 //
68 // - Neither the name of the copyright holders nor the names of its
69 // contributors may be used to endorse or promote products derived from
70 // this software without specific prior written permission.
71 //
72 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
73 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
74 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
75 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
76 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
77 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
78 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
79 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
80 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
81 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
82 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
83
84 /*
85 Generated by VIF - experimental VIntage Fortran compiler.
86 VIF release 1.2.12
87 */
374 static CALLS __calls[__ncalls] = {
375 {"cgetv0", 0}, // subroutine
376 {"cmout", 0}, // subroutine
377 {"cnaitr", 0}, // subroutine
378 {"cnapps", 0}, // subroutine
379 {"cnaup2", 0}, // subroutine
380 {"cnaupd", 0}, // subroutine
381 {"cneigh", 0}, // subroutine
382 {"cneupd", 0}, // subroutine
383 {"cngets", 0}, // subroutine
384 {"csortc", 0}, // subroutine
385 {"cstatn", 0}, // subroutine
386 {"cvout", 0}, // subroutine
387 {"dgetv0", 0}, // subroutine
388 {"dlaqrb", 0}, // subroutine
389 {"dmout", 0}, // subroutine
390 {"dnaitr", 0}, // subroutine
391 {"dnapps", 0}, // subroutine
392 {"dnaup2", 0}, // subroutine
393 {"dnaupd", 0}, // subroutine
394 {"dnconv", 0}, // subroutine
395 {"dneigh", 0}, // subroutine
396 {"dneupd", 0}, // subroutine
397 {"dngets", 0}, // subroutine
398 {"dsaitr", 0}, // subroutine
399 {"dsapps", 0}, // subroutine
400 {"dsaup2", 0}, // subroutine
401 {"dsaupd", 0}, // subroutine
402 {"dsconv", 0}, // subroutine
403 {"dseigt", 0}, // subroutine
404 {"dsesrt", 0}, // subroutine
405 {"dseupd", 0}, // subroutine
406 {"dsgets", 0}, // subroutine
407 {"dsortc", 0}, // subroutine
408 {"dsortr", 0}, // subroutine
409 {"dstatn", 0}, // subroutine
410 {"dstats", 0}, // subroutine
411 {"dstqrb", 0}, // subroutine
412 {"dvout", 0}, // subroutine
413 {"icnteq", 0}, // integer*4 function
414 {"icopy", 0}, // subroutine
415 {"iset", 0}, // subroutine
416 {"iswap", 0}, // subroutine
417 {"ivout", 0}, // subroutine
418 {"second", 0}, // subroutine
419 {"sgetv0", 0}, // subroutine
420 {"slaqrb", 0}, // subroutine
421 {"smout", 0}, // subroutine
422 {"snaitr", 0}, // subroutine
423 {"snapps", 0}, // subroutine
424 {"snaup2", 0}, // subroutine
425 {"snaupd", 0}, // subroutine
426 {"snconv", 0}, // subroutine
427 {"sneigh", 0}, // subroutine
428 {"sneupd", 0}, // subroutine
429 {"sngets", 0}, // subroutine
430 {"ssaitr", 0}, // subroutine
431 {"ssapps", 0}, // subroutine
432 {"ssaup2", 0}, // subroutine
433 {"ssaupd", 0}, // subroutine
434 {"ssconv", 0}, // subroutine
435 {"sseigt", 0}, // subroutine
436 {"ssesrt", 0}, // subroutine
437 {"sseupd", 0}, // subroutine
438 {"ssgets", 0}, // subroutine
439 {"ssortc", 0}, // subroutine
440 {"ssortr", 0}, // subroutine
441 {"sstatn", 0}, // subroutine
442 {"sstats", 0}, // subroutine
443 {"sstqrb", 0}, // subroutine
444 {"svout", 0}, // subroutine
445 {"zgetv0", 0}, // subroutine
446 {"zmout", 0}, // subroutine
447 {"znaitr", 0}, // subroutine
448 {"znapps", 0}, // subroutine
449 {"znaup2", 0}, // subroutine
450 {"znaupd", 0}, // subroutine
451 {"zneigh", 0}, // subroutine
452 {"zneupd", 0}, // subroutine
453 {"zngets", 0}, // subroutine
454 {"zsortc", 0}, // subroutine
455 {"zstatn", 0}, // subroutine
456 {"zvout", 0}, // subroutine
457 {NULL, 0}
458 };
459
460 static struct {
461 int_4 logfil_, ndigit_, mgetv0_, msaupd_, msaup2_, msaitr_, mseigt_, msapps_, msgets_, mseupd_, mnaupd_, mnaup2_,
462 mnaitr_, mneigh_, mnapps_, mngets_, mneupd_, mcaupd_, mcaup2_, mcaitr_, mceigh_, mcapps_, mcgets_, mceupd_;
463 } debug_;
464 static struct {
465 int_4 nopx_, nbx_, nrorth_, nitref_, nrstrt_;
466 real_4 tsaupd_, tsaup2_, tsaitr_, tseigt_, tsgets_, tsapps_, tsconv_, tnaupd_, tnaup2_, tnaitr_, tneigh_, tngets_,
467 tnapps_, tnconv_, tcaupd_, tcaup2_, tcaitr_, tceigh_, tcgets_, tcapps_, tcconv_, tmvopx_, tmvbx_, tgetv0_, titref_,
468 trvec_;
469 } timing_;
471 j_, complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ resid_, real_4 _p_ rnorm_, int_4 _p_ ipntr_, complex_8 _p_ workd_,
472 int_4 _p_ ierr_);
474 idigit_, char _p_ ifmt_);
476 complex_8 _p_ resid_, real_4 _p_ rnorm_, complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_
477 ipntr_, complex_8 _p_ workd_, int_4 _p_ info_);
479 ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ resid_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_,
480 complex_8 _p_ workd_);
482 real_4 _p_ tol_, complex_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_,
483 complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ ritz_, complex_8 _p_ bounds_,
484 complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, int_4 _p_ ipntr_, complex_8 _p_ workd_, real_4 _p_ rwork_,
485 int_4 _p_ info_);
487 , complex_8 _p_ resid_, int_4 _p_ ncv_, complex_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
488 complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_);
490 complex_8 _p_ bounds_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, real_4 _p_ rwork_, int_4 _p_ ierr_);
492 z_, int_4 _p_ ldz_, complex_8 _p_ sigma_, complex_8 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4
493 _p_ nev_, real_4 _p_ tol_, complex_8 _p_ resid_, int_4 _p_ ncv_, complex_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_,
494 int_4 _p_ ipntr_, complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_);
496 complex_8 _p_ bounds_);
501 j_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_
502 ierr_);
504 ldh_, real_8 _p_ wr_, real_8 _p_ wi_, real_8 _p_ z_, int_4 _p_ info_);
506 char _p_ ifmt_);
508 real_8 _p_ resid_, real_8 _p_ rnorm_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
509 real_8 _p_ workd_, int_4 _p_ info_);
511 _p_ v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_
512 workl_, real_8 _p_ workd_);
514 real_8 _p_ tol_, real_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_8 _p_
515 v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritzr_, real_8 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_
516 q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_);
518 , real_8 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_
519 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
521 _p_ nconv_);
523 ritzi_, real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ierr_);
525 real_8 _p_ z_, int_4 _p_ ldz_, real_8 _p_ sigmar_, real_8 _p_ sigmai_, real_8 _p_ workev_, char _p_ bmat_, int_4 _p_ n_
526 , char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_, real_8 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_,
527 int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
529 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_ shiftr_, real_8 _p_ shifti_);
531 real_8 _p_ resid_, real_8 _p_ rnorm_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
532 real_8 _p_ workd_, int_4 _p_ info_);
534 real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workd_);
536 real_8 _p_ tol_, real_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_8 _p_
537 v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritz_, real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_,
538 real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_);
540 , real_8 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_
541 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
544 bounds_, real_8 _p_ workl_, int_4 _p_ ierr_);
546 a_, int_4 _p_ lda_);
548 int_4 _p_ ldz_, real_8 _p_ sigma_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_,
549 real_8 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_
550 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
552 _p_ bounds_, real_8 _p_ shifts_);
554 real_8 _p_ y_);
567 j_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ resid_, real_4 _p_ rnorm_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_
568 ierr_);
570 ldh_, real_4 _p_ wr_, real_4 _p_ wi_, real_4 _p_ z_, int_4 _p_ info_);
572 char _p_ ifmt_);
574 real_4 _p_ resid_, real_4 _p_ rnorm_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
575 real_4 _p_ workd_, int_4 _p_ info_);
577 _p_ v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_
578 workl_, real_4 _p_ workd_);
580 real_4 _p_ tol_, real_4 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_4 _p_
581 v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritzr_, real_4 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_
582 q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_);
584 , real_4 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_
585 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
587 _p_ nconv_);
589 ritzi_, real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ierr_);
591 real_4 _p_ z_, int_4 _p_ ldz_, real_4 _p_ sigmar_, real_4 _p_ sigmai_, real_4 _p_ workev_, char _p_ bmat_, int_4 _p_ n_
592 , char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_, real_4 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_,
593 int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
595 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_ shiftr_, real_4 _p_ shifti_);
597 real_4 _p_ resid_, real_4 _p_ rnorm_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
598 real_4 _p_ workd_, int_4 _p_ info_);
600 real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workd_);
602 real_4 _p_ tol_, real_4 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_4 _p_
603 v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritz_, real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_,
604 real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_);
606 , real_4 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_
607 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
610 bounds_, real_4 _p_ workl_, int_4 _p_ ierr_);
612 a_, int_4 _p_ lda_);
614 int_4 _p_ ldz_, real_4 _p_ sigma_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_,
615 real_4 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_
616 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
618 _p_ bounds_, real_4 _p_ shifts_);
620 real_4 _p_ y_);
627 j_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, complex_16 _p_
628 workd_, int_4 _p_ ierr_);
630 idigit_, char _p_ ifmt_);
632 complex_16 _p_ resid_, real_8 _p_ rnorm_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, int_4
633 _p_ ipntr_, complex_16 _p_ workd_, int_4 _p_ info_);
635 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ resid_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_
636 workl_, complex_16 _p_ workd_);
638 real_8 _p_ tol_, complex_16 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_,
639 complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_, complex_16 _p_ bounds_,
640 complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, int_4 _p_ ipntr_, complex_16 _p_ workd_, real_8 _p_ rwork_,
641 int_4 _p_ info_);
643 , complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
644 complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_);
646 complex_16 _p_ bounds_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, real_8 _p_ rwork_, int_4 _p_ ierr_);
648 _p_ z_, int_4 _p_ ldz_, complex_16 _p_ sigma_, complex_16 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_,
649 int_4 _p_ nev_, real_8 _p_ tol_, complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_
650 iparam_, int_4 _p_ ipntr_, complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4
651 _p_ info_);
653 complex_16 _p_ bounds_);
657 int_4 _cgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_ j_,
658 complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ resid_, real_4 _p_ rnorm_, int_4 _p_ ipntr_, complex_8 _p_ workd_,
659 int_4 _p_ ierr_)
660 { // ** body not listed **
813 }
814
815 int_4 _cmout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ idigit_, char
816 _p_ ifmt_)
817 { // ** body not listed **
3267 }
3268
3269 int_4 _cnaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_, complex_8 _p_
3270 resid_, real_4 _p_ rnorm_, complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
3271 complex_8 _p_ workd_, int_4 _p_ info_)
3272 { // ** body not listed **
3556 }
3557
3558 int_4 _cnapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, complex_8 _p_ shift_, complex_8 _p_ v_, int_4 _p_ ldv_,
3559 complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ resid_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_,
3560 complex_8 _p_ workd_)
3561 { // ** body not listed **
3735 }
3736
3737 int_4 _cnaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_4 _p_
3738 tol_, complex_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, complex_8 _p_ v_,
3739 int_4 _p_ ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ ritz_, complex_8 _p_ bounds_, complex_8 _p_ q_, int_4
3740 _p_ ldq_, complex_8 _p_ workl_, int_4 _p_ ipntr_, complex_8 _p_ workd_, real_4 _p_ rwork_, int_4 _p_ info_)
3741 { // ** body not listed **
4003 }
4004
4005 int_4 _cnaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_,
4006 complex_8 _p_ resid_, int_4 _p_ ncv_, complex_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, complex_8
4007 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_)
4008 { // ** body not listed **
4605 }
4606
4607 int_4 _cneigh (real_4 _p_ rnorm_, int_4 _p_ n_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ ritz_, complex_8 _p_
4608 bounds_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, real_4 _p_ rwork_, int_4 _p_ ierr_)
4609 { // ** body not listed **
4662 }
4663
4664 int_4 _cneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, complex_8 _p_ d_, complex_8 _p_ z_, int_4
4665 _p_ ldz_, complex_8 _p_ sigma_, complex_8 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_,
4666 real_4 _p_ tol_, complex_8 _p_ resid_, int_4 _p_ ncv_, complex_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_
4667 ipntr_, complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_)
4668 { // ** body not listed **
4922 }
4923
4924 int_4 _cngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, complex_8 _p_ ritz_, complex_8 _p_
4925 bounds_)
4926 { // ** body not listed **
4947 }
4948
4949 int_4 _csortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, complex_8 _p_ x_, complex_8 _p_ y_)
4950 { // ** body not listed **
5150 }
5151
5152 int_4 _cstatn (void)
5153 { // ** body not listed **
5174 }
5175
5176 int_4 _cvout (int_4 _p_ lout_, int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ idigit_, char _p_ ifmt_)
5177 { // ** body not listed **
7467 }
7468
7469 int_4 _dgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_ j_,
7470 real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_
7471 ierr_)
7472 { // ** body not listed **
7625 }
7626
7627 int_4 _dlaqrb (logical_4 _p_ wantt_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, real_8 _p_ h_, int_4 _p_ ldh_,
7628 real_8 _p_ wr_, real_8 _p_ wi_, real_8 _p_ z_, int_4 _p_ info_)
7629 { // ** body not listed **
7827 }
7828
7829 int_4 _dmout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ idigit_, char _p_
7830 ifmt_)
7831 { // ** body not listed **
9108 }
9109
9110 int_4 _dnaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_, real_8 _p_
9111 resid_, real_8 _p_ rnorm_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_, real_8 _p_
9112 workd_, int_4 _p_ info_)
9113 { // ** body not listed **
9390 }
9391
9392 int_4 _dnapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ shiftr_, real_8 _p_ shifti_, real_8 _p_ v_,
9393 int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workl_,
9394 real_8 _p_ workd_)
9395 { // ** body not listed **
9620 }
9621
9622 int_4 _dnaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_8 _p_
9623 tol_, real_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_8 _p_ v_, int_4
9624 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritzr_, real_8 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_ q_, int_4
9625 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_)
9626 { // ** body not listed **
9910 }
9911
9912 int_4 _dnaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_, real_8
9913 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_,
9914 real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
9915 { // ** body not listed **
10518 }
10519
10520 int_4 _dnconv (int_4 _p_ n_, real_8 _p_ ritzr_, real_8 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_ tol_, int_4 _p_
10521 nconv_)
10522 { // ** body not listed **
10542 }
10543
10544 int_4 _dneigh (real_8 _p_ rnorm_, int_4 _p_ n_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritzr_, real_8 _p_ ritzi_,
10545 real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ierr_)
10546 { // ** body not listed **
10624 }
10625
10626 int_4 _dneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_8 _p_ dr_, real_8 _p_ di_, real_8 _p_
10627 z_, int_4 _p_ ldz_, real_8 _p_ sigmar_, real_8 _p_ sigmai_, real_8 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_
10628 which_, int_4 _p_ nev_, real_8 _p_ tol_, real_8 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_
10629 iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
10630 { // ** body not listed **
10964 }
10965
10966 int_4 _dngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ ritzr_, real_8 _p_ ritzi_,
10967 real_8 _p_ bounds_, real_8 _p_ shiftr_, real_8 _p_ shifti_)
10968 { // ** body not listed **
11012 }
11013
11014 int_4 _dsaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ mode_, real_8 _p_
11015 resid_, real_8 _p_ rnorm_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_, real_8 _p_
11016 workd_, int_4 _p_ info_)
11017 { // ** body not listed **
11309 }
11310
11311 int_4 _dsapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ shift_, real_8 _p_ v_, int_4 _p_ ldv_, real_8
11312 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workd_)
11313 { // ** body not listed **
11469 }
11470
11471 int_4 _dsaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_8 _p_
11472 tol_, real_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_8 _p_ v_, int_4
11473 _p_ ldv_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ ritz_, real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_, real_8
11474 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_)
11475 { // ** body not listed **
11737 }
11738
11739 int_4 _dsaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_, real_8
11740 _p_ resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_,
11741 real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
11742 { // ** body not listed **
12317 }
12318
12319 int_4 _dsconv (int_4 _p_ n_, real_8 _p_ ritz_, real_8 _p_ bounds_, real_8 _p_ tol_, int_4 _p_ nconv_)
12320 { // ** body not listed **
12339 }
12340
12341 int_4 _dseigt (real_8 _p_ rnorm_, int_4 _p_ n_, real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ eig_, real_8 _p_ bounds_,
12342 real_8 _p_ workl_, int_4 _p_ ierr_)
12343 { // ** body not listed **
12373 }
12374
12375 int_4 _dsesrt (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ x_, int_4 _p_ na_, real_8 _p_ a_, int_4
12376 _p_ lda_)
12377 { // ** body not listed **
12501 }
12502
12503 int_4 _dseupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_8 _p_ d_, real_8 _p_ z_, int_4 _p_
12504 ldz_, real_8 _p_ sigma_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_, real_8 _p_
12505 resid_, int_4 _p_ ncv_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_, real_8
12506 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
12507 { // ** body not listed **
12800 }
12801 int_4 _dsgets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_8 _p_ ritz_, real_8 _p_ bounds_,
12802 real_8 _p_ shifts_)
12803 { // ** body not listed **
12837 }
12838
12839 int_4 _dsortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ xreal_, real_8 _p_ ximag_, real_8 _p_ y_
12840 )
12841 { // ** body not listed **
13057 }
13058
13059 int_4 _dsortr (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ x1_, real_8 _p_ x2_)
13060 { // ** body not listed **
13191 }
13192
13193 int_4 _dstatn (void)
13194 { // ** body not listed **
13215 }
13216
13217 int_4 _dstats (void)
13218 { // ** body not listed **
13239 }
13240
13241 int_4 _dstqrb (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ z_, real_8 _p_ work_, int_4 _p_ info_)
13242 { // ** body not listed **
13546 }
13547
13548 int_4 _dvout (int_4 _p_ lout_, int_4 _p_ n_, real_8 _p_ sx_, int_4 _p_ idigit_, char _p_ ifmt_)
13549 { // ** body not listed **
14332 }
14333
14334 int_4 _icnteq (int_4 _p_ n_, int_4 _p_ array_, int_4 _p_ value_)
14335 { // ** body not listed **
14347 }
14348
14349 int_4 _icopy (int_4 _p_ n_, int_4 _p_ lx_, int_4 _p_ incx_, int_4 _p_ ly_, int_4 _p_ incy_)
14350 { // ** body not listed **
14379 }
14380
14381 int_4 _iset (int_4 _p_ n_, int_4 _p_ value_, int_4 _p_ array_, int_4 _p_ inc_)
14382 { // ** body not listed **
14389 }
14390
14391 int_4 _iswap (int_4 _p_ n_, int_4 _p_ sx_, int_4 _p_ incx_, int_4 _p_ sy_, int_4 _p_ incy_)
14392 { // ** body not listed **
14445 }
14446
14447 int_4 _ivout (int_4 _p_ lout_, int_4 _p_ n_, int_4 _p_ ix_, int_4 _p_ idigit_, char _p_ ifmt_)
14448 { // ** body not listed **
15298 }
15299
15300 int_4 _second (real_4 _p_ t_)
15301 { // ** body not listed **
15307 }
15308
15309 int_4 _sgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_ j_,
15310 real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ resid_, real_4 _p_ rnorm_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_
15311 ierr_)
15312 { // ** body not listed **
15464 }
15465
15466 int_4 _slaqrb (logical_4 _p_ wantt_, int_4 _p_ n_, int_4 _p_ ilo_, int_4 _p_ ihi_, real_4 _p_ h_, int_4 _p_ ldh_,
15467 real_4 _p_ wr_, real_4 _p_ wi_, real_4 _p_ z_, int_4 _p_ info_)
15468 { // ** body not listed **
15666 }
15667
15668 int_4 _smout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ idigit_, char _p_
15669 ifmt_)
15670 { // ** body not listed **
16947 }
16948
16949 int_4 _snaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_, real_4 _p_
16950 resid_, real_4 _p_ rnorm_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_, real_4 _p_
16951 workd_, int_4 _p_ info_)
16952 { // ** body not listed **
17229 }
17230
17231 int_4 _snapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ shiftr_, real_4 _p_ shifti_, real_4 _p_ v_,
17232 int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workl_,
17233 real_4 _p_ workd_)
17234 { // ** body not listed **
17458 }
17459
17460 int_4 _snaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_4 _p_
17461 tol_, real_4 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_4 _p_ v_, int_4
17462 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritzr_, real_4 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_ q_, int_4
17463 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_)
17464 { // ** body not listed **
17747 }
17748
17749 int_4 _snaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_, real_4
17750 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_,
17751 real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
17752 { // ** body not listed **
18351 }
18352
18353 int_4 _snconv (int_4 _p_ n_, real_4 _p_ ritzr_, real_4 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_ tol_, int_4 _p_
18354 nconv_)
18355 { // ** body not listed **
18374 }
18375
18376 int_4 _sneigh (real_4 _p_ rnorm_, int_4 _p_ n_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritzr_, real_4 _p_ ritzi_,
18377 real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ierr_)
18378 { // ** body not listed **
18455 }
18456
18457 int_4 _sneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_4 _p_ dr_, real_4 _p_ di_, real_4 _p_
18458 z_, int_4 _p_ ldz_, real_4 _p_ sigmar_, real_4 _p_ sigmai_, real_4 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_
18459 which_, int_4 _p_ nev_, real_4 _p_ tol_, real_4 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_
18460 iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
18461 { // ** body not listed **
18794 }
18795
18796 int_4 _sngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ ritzr_, real_4 _p_ ritzi_,
18797 real_4 _p_ bounds_, real_4 _p_ shiftr_, real_4 _p_ shifti_)
18798 { // ** body not listed **
18842 }
18843
18844 int_4 _ssaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ mode_, real_4 _p_
18845 resid_, real_4 _p_ rnorm_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_, real_4 _p_
18846 workd_, int_4 _p_ info_)
18847 { // ** body not listed **
19138 }
19139
19140 int_4 _ssapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ shift_, real_4 _p_ v_, int_4 _p_ ldv_, real_4
19141 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workd_)
19142 { // ** body not listed **
19297 }
19298
19299 int_4 _ssaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_4 _p_
19300 tol_, real_4 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, real_4 _p_ v_, int_4
19301 _p_ ldv_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ ritz_, real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_, real_4
19302 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_)
19303 { // ** body not listed **
19564 }
19565
19566 int_4 _ssaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_, real_4
19567 _p_ resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_,
19568 real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
19569 { // ** body not listed **
20144 }
20145
20146 int_4 _ssconv (int_4 _p_ n_, real_4 _p_ ritz_, real_4 _p_ bounds_, real_4 _p_ tol_, int_4 _p_ nconv_)
20147 { // ** body not listed **
20165 }
20166
20167 int_4 _sseigt (real_4 _p_ rnorm_, int_4 _p_ n_, real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ eig_, real_4 _p_ bounds_,
20168 real_4 _p_ workl_, int_4 _p_ ierr_)
20169 { // ** body not listed **
20199 }
20200
20201 int_4 _ssesrt (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ x_, int_4 _p_ na_, real_4 _p_ a_, int_4
20202 _p_ lda_)
20203 { // ** body not listed **
20327 }
20328
20329 int_4 _sseupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, real_4 _p_ d_, real_4 _p_ z_, int_4 _p_
20330 ldz_, real_4 _p_ sigma_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_4 _p_ tol_, real_4 _p_
20331 resid_, int_4 _p_ ncv_, real_4 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_, real_4
20332 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
20333 { // ** body not listed **
20625 }
20626
20627 int_4 _ssgets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, real_4 _p_ ritz_, real_4 _p_ bounds_,
20628 real_4 _p_ shifts_)
20629 { // ** body not listed **
20663 }
20664
20665 int_4 _ssortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ xreal_, real_4 _p_ ximag_, real_4 _p_ y_
20666 )
20667 { // ** body not listed **
20883 }
20884
20885 int_4 _ssortr (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ x1_, real_4 _p_ x2_)
20886 { // ** body not listed **
21017 }
21018
21019 int_4 _sstatn (void)
21020 { // ** body not listed **
21041 }
21042
21043 int_4 _sstats (void)
21044 { // ** body not listed **
21065 }
21066
21067 int_4 _sstqrb (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ z_, real_4 _p_ work_, int_4 _p_ info_)
21068 { // ** body not listed **
21372 }
21373
21374 int_4 _svout (int_4 _p_ lout_, int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ idigit_, char _p_ ifmt_)
21375 { // ** body not listed **
22158 }
22159
22160 int_4 _zgetv0 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ itry_, logical_4 _p_ initv_, int_4 _p_ n_, int_4 _p_ j_,
22161 complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, complex_16 _p_ workd_,
22162 int_4 _p_ ierr_)
22163 { // ** body not listed **
22317 }
22318
22319 int_4 _zmout (int_4 _p_ lout_, int_4 _p_ m_, int_4 _p_ n_, complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ idigit_, char
22320 _p_ ifmt_)
22321 { // ** body not listed **
24771 }
24772
24773 int_4 _znaitr (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ np_, int_4 _p_ nb_, complex_16 _p_
24774 resid_, real_8 _p_ rnorm_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, int_4 _p_ ipntr_,
24775 complex_16 _p_ workd_, int_4 _p_ info_)
24776 { // ** body not listed **
25059 }
25060
25061 int_4 _znapps (int_4 _p_ n_, int_4 _p_ kev_, int_4 _p_ np_, complex_16 _p_ shift_, complex_16 _p_ v_, int_4 _p_ ldv_,
25062 complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ resid_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_,
25063 complex_16 _p_ workd_)
25064 { // ** body not listed **
25238 }
25239
25240 int_4 _znaup2 (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, int_4 _p_ np_, real_8 _p_
25241 tol_, complex_16 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_, complex_16 _p_ v_,
25242 int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_, complex_16 _p_ bounds_, complex_16 _p_ q_,
25243 int_4 _p_ ldq_, complex_16 _p_ workl_, int_4 _p_ ipntr_, complex_16 _p_ workd_, real_8 _p_ rwork_, int_4 _p_ info_)
25244 { // ** body not listed **
25506 }
25507
25508 int_4 _znaupd (int_4 _p_ ido_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_, real_8 _p_ tol_,
25509 complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
25510 complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_)
25511 { // ** body not listed **
26108 }
26109
26110 int_4 _zneigh (real_8 _p_ rnorm_, int_4 _p_ n_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_, complex_16 _p_
26111 bounds_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, real_8 _p_ rwork_, int_4 _p_ ierr_)
26112 { // ** body not listed **
26166 }
26167
26168 int_4 _zneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, complex_16 _p_ d_, complex_16 _p_ z_,
26169 int_4 _p_ ldz_, complex_16 _p_ sigma_, complex_16 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_
26170 nev_, real_8 _p_ tol_, complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_,
26171 int_4 _p_ ipntr_, complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_)
26172 { // ** body not listed **
26427 }
26428
26429 int_4 _zngets (int_4 _p_ ishift_, char _p_ which_, int_4 _p_ kev_, int_4 _p_ np_, complex_16 _p_ ritz_, complex_16 _p_
26430 bounds_)
26431 { // ** body not listed **
26452 }
26453
26454 int_4 _zsortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, complex_16 _p_ x_, complex_16 _p_ y_)
26455 { // ** body not listed **
26655 }
26656
26657 int_4 _zstatn (void)
26658 { // ** body not listed **
26679 }
26680
26681 int_4 _zvout (int_4 _p_ lout_, int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ idigit_, char _p_ ifmt_)
26682 { // ** body not listed **
28972 }
28973
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
