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.17
87 */
88 #if defined (__GNUC__)
89 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
90 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
91 #if (__GNUC__ >= 14)
92 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
93 #pragma GCC diagnostic ignored "-Wimplicit-int"
94 #pragma GCC diagnostic ignored "-Wint-conversion"
95 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
96 #endif
97 #else
98 #error VIF requires GCC
99 #endif
386 static CALLS __calls[__ncalls] = {
387 {"cgetv0", 0}, // subroutine
388 {"cmout", 0}, // subroutine
389 {"cnaitr", 0}, // subroutine
390 {"cnapps", 0}, // subroutine
391 {"cnaup2", 0}, // subroutine
392 {"cnaupd", 0}, // subroutine
393 {"cneigh", 0}, // subroutine
394 {"cneupd", 0}, // subroutine
395 {"cngets", 0}, // subroutine
396 {"csortc", 0}, // subroutine
397 {"cstatn", 0}, // subroutine
398 {"cvout", 0}, // subroutine
399 {"dgetv0", 0}, // subroutine
400 {"dlaqrb", 0}, // subroutine
401 {"dmout", 0}, // subroutine
402 {"dnaitr", 0}, // subroutine
403 {"dnapps", 0}, // subroutine
404 {"dnaup2", 0}, // subroutine
405 {"dnaupd", 0}, // subroutine
406 {"dnconv", 0}, // subroutine
407 {"dneigh", 0}, // subroutine
408 {"dneupd", 0}, // subroutine
409 {"dngets", 0}, // subroutine
410 {"dsaitr", 0}, // subroutine
411 {"dsapps", 0}, // subroutine
412 {"dsaup2", 0}, // subroutine
413 {"dsaupd", 0}, // subroutine
414 {"dsconv", 0}, // subroutine
415 {"dseigt", 0}, // subroutine
416 {"dsesrt", 0}, // subroutine
417 {"dseupd", 0}, // subroutine
418 {"dsgets", 0}, // subroutine
419 {"dsortc", 0}, // subroutine
420 {"dsortr", 0}, // subroutine
421 {"dstatn", 0}, // subroutine
422 {"dstats", 0}, // subroutine
423 {"dstqrb", 0}, // subroutine
424 {"dvout", 0}, // subroutine
425 {"icnteq", 0}, // integer*4 function
426 {"icopy", 0}, // subroutine
427 {"iset", 0}, // subroutine
428 {"iswap", 0}, // subroutine
429 {"ivout", 0}, // subroutine
430 {"second", 0}, // subroutine
431 {"sgetv0", 0}, // subroutine
432 {"slaqrb", 0}, // subroutine
433 {"smout", 0}, // subroutine
434 {"snaitr", 0}, // subroutine
435 {"snapps", 0}, // subroutine
436 {"snaup2", 0}, // subroutine
437 {"snaupd", 0}, // subroutine
438 {"snconv", 0}, // subroutine
439 {"sneigh", 0}, // subroutine
440 {"sneupd", 0}, // subroutine
441 {"sngets", 0}, // subroutine
442 {"ssaitr", 0}, // subroutine
443 {"ssapps", 0}, // subroutine
444 {"ssaup2", 0}, // subroutine
445 {"ssaupd", 0}, // subroutine
446 {"ssconv", 0}, // subroutine
447 {"sseigt", 0}, // subroutine
448 {"ssesrt", 0}, // subroutine
449 {"sseupd", 0}, // subroutine
450 {"ssgets", 0}, // subroutine
451 {"ssortc", 0}, // subroutine
452 {"ssortr", 0}, // subroutine
453 {"sstatn", 0}, // subroutine
454 {"sstats", 0}, // subroutine
455 {"sstqrb", 0}, // subroutine
456 {"svout", 0}, // subroutine
457 {"zgetv0", 0}, // subroutine
458 {"zmout", 0}, // subroutine
459 {"znaitr", 0}, // subroutine
460 {"znapps", 0}, // subroutine
461 {"znaup2", 0}, // subroutine
462 {"znaupd", 0}, // subroutine
463 {"zneigh", 0}, // subroutine
464 {"zneupd", 0}, // subroutine
465 {"zngets", 0}, // subroutine
466 {"zsortc", 0}, // subroutine
467 {"zstatn", 0}, // subroutine
468 {"zvout", 0}, // subroutine
469 {NULL, 0}
470 };
471
472 static struct {
473 int_4 logfil_, ndigit_, mgetv0_, msaupd_, msaup2_, msaitr_, mseigt_, msapps_, msgets_, mseupd_, mnaupd_, mnaup2_,
474 mnaitr_, mneigh_, mnapps_, mngets_, mneupd_, mcaupd_, mcaup2_, mcaitr_, mceigh_, mcapps_, mcgets_, mceupd_;
475 } debug_;
476 static struct {
477 int_4 nopx_, nbx_, nrorth_, nitref_, nrstrt_;
478 real_4 tsaupd_, tsaup2_, tsaitr_, tseigt_, tsgets_, tsapps_, tsconv_, tnaupd_, tnaup2_, tnaitr_, tneigh_, tngets_,
479 tnapps_, tnconv_, tcaupd_, tcaup2_, tcaitr_, tceigh_, tcgets_, tcapps_, tcconv_, tmvopx_, tmvbx_, tgetv0_, titref_,
480 trvec_;
481 } timing_;
483 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_,
484 int_4 _p_ ierr_);
486 idigit_, char _p_ ifmt_);
488 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_
489 ipntr_, complex_8 _p_ workd_, int_4 _p_ info_);
491 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_,
492 complex_8 _p_ workd_);
494 real_4 _p_ tol_, complex_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_,
495 complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ ritz_, complex_8 _p_ bounds_,
496 complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, int_4 _p_ ipntr_, complex_8 _p_ workd_, real_4 _p_ rwork_,
497 int_4 _p_ info_);
499 , complex_8 _p_ resid_, int_4 _p_ ncv_, complex_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
500 complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_);
502 complex_8 _p_ bounds_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, real_4 _p_ rwork_, int_4 _p_ ierr_);
504 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
505 _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_,
506 int_4 _p_ ipntr_, complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_);
508 complex_8 _p_ bounds_);
513 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_
514 ierr_);
516 ldh_, real_8 _p_ wr_, real_8 _p_ wi_, real_8 _p_ z_, int_4 _p_ info_);
518 char _p_ ifmt_);
520 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_,
521 real_8 _p_ workd_, int_4 _p_ info_);
523 _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_
524 workl_, real_8 _p_ workd_);
526 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_
527 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_
528 q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_);
530 , 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_
531 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
533 _p_ nconv_);
535 ritzi_, real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ierr_);
537 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_
538 , 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_,
539 int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
541 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_ shiftr_, real_8 _p_ shifti_);
543 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_,
544 real_8 _p_ workd_, int_4 _p_ info_);
546 real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workd_);
548 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_
549 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_,
550 real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_);
552 , 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_
553 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
556 bounds_, real_8 _p_ workl_, int_4 _p_ ierr_);
558 a_, int_4 _p_ lda_);
560 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_,
561 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_
562 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
564 _p_ bounds_, real_8 _p_ shifts_);
566 real_8 _p_ y_);
579 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_
580 ierr_);
582 ldh_, real_4 _p_ wr_, real_4 _p_ wi_, real_4 _p_ z_, int_4 _p_ info_);
584 char _p_ ifmt_);
586 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_,
587 real_4 _p_ workd_, int_4 _p_ info_);
589 _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_
590 workl_, real_4 _p_ workd_);
592 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_
593 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_
594 q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_);
596 , 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_
597 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
599 _p_ nconv_);
601 ritzi_, real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ierr_);
603 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_
604 , 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_,
605 int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
607 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_ shiftr_, real_4 _p_ shifti_);
609 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_,
610 real_4 _p_ workd_, int_4 _p_ info_);
612 real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workd_);
614 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_
615 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_,
616 real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_);
618 , 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_
619 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
622 bounds_, real_4 _p_ workl_, int_4 _p_ ierr_);
624 a_, int_4 _p_ lda_);
626 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_,
627 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_
628 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
630 _p_ bounds_, real_4 _p_ shifts_);
632 real_4 _p_ y_);
639 j_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, complex_16 _p_
640 workd_, int_4 _p_ ierr_);
642 idigit_, char _p_ ifmt_);
644 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
645 _p_ ipntr_, complex_16 _p_ workd_, int_4 _p_ info_);
647 _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_
648 workl_, complex_16 _p_ workd_);
650 real_8 _p_ tol_, complex_16 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_,
651 complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_, complex_16 _p_ bounds_,
652 complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, int_4 _p_ ipntr_, complex_16 _p_ workd_, real_8 _p_ rwork_,
653 int_4 _p_ info_);
655 , complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
656 complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_);
658 complex_16 _p_ bounds_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, real_8 _p_ rwork_, int_4 _p_ ierr_);
660 _p_ z_, int_4 _p_ ldz_, complex_16 _p_ sigma_, complex_16 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_,
661 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_
662 iparam_, int_4 _p_ ipntr_, complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4
663 _p_ info_);
665 complex_16 _p_ bounds_);
669 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_,
670 complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ resid_, real_4 _p_ rnorm_, int_4 _p_ ipntr_, complex_8 _p_ workd_,
671 int_4 _p_ ierr_)
672 { // ** body not listed **
825 }
826
827 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
828 _p_ ifmt_)
829 { // ** body not listed **
3279 }
3280
3281 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_
3282 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_,
3283 complex_8 _p_ workd_, int_4 _p_ info_)
3284 { // ** body not listed **
3568 }
3569
3570 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_,
3571 complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ resid_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_,
3572 complex_8 _p_ workd_)
3573 { // ** body not listed **
3747 }
3748
3749 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_
3750 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_,
3751 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
3752 _p_ ldq_, complex_8 _p_ workl_, int_4 _p_ ipntr_, complex_8 _p_ workd_, real_4 _p_ rwork_, int_4 _p_ info_)
3753 { // ** body not listed **
4015 }
4016
4017 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_,
4018 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
4019 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_)
4020 { // ** body not listed **
4617 }
4618
4619 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_
4620 bounds_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, real_4 _p_ rwork_, int_4 _p_ ierr_)
4621 { // ** body not listed **
4674 }
4675
4676 int_4 _cneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, complex_8 _p_ d_, complex_8 _p_ z_, int_4
4677 _p_ ldz_, complex_8 _p_ sigma_, complex_8 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_,
4678 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_
4679 ipntr_, complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_)
4680 { // ** body not listed **
4934 }
4935
4936 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_
4937 bounds_)
4938 { // ** body not listed **
4959 }
4960
4961 int_4 _csortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, complex_8 _p_ x_, complex_8 _p_ y_)
4962 { // ** body not listed **
5162 }
5163
5164 int_4 _cstatn (void)
5165 { // ** body not listed **
5186 }
5187
5188 int_4 _cvout (int_4 _p_ lout_, int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ idigit_, char _p_ ifmt_)
5189 { // ** body not listed **
7479 }
7480
7481 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_,
7482 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_
7483 ierr_)
7484 { // ** body not listed **
7637 }
7638
7639 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_,
7640 real_8 _p_ wr_, real_8 _p_ wi_, real_8 _p_ z_, int_4 _p_ info_)
7641 { // ** body not listed **
7839 }
7840
7841 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_
7842 ifmt_)
7843 { // ** body not listed **
9120 }
9121
9122 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_
9123 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_
9124 workd_, int_4 _p_ info_)
9125 { // ** body not listed **
9402 }
9403
9404 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_,
9405 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_,
9406 real_8 _p_ workd_)
9407 { // ** body not listed **
9632 }
9633
9634 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_
9635 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
9636 _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
9637 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_)
9638 { // ** body not listed **
9922 }
9923
9924 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
9925 _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_,
9926 real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
9927 { // ** body not listed **
10530 }
10531
10532 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_
10533 nconv_)
10534 { // ** body not listed **
10554 }
10555
10556 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_,
10557 real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ierr_)
10558 { // ** body not listed **
10636 }
10637
10638 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_
10639 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_
10640 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_
10641 iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
10642 { // ** body not listed **
10976 }
10977
10978 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_,
10979 real_8 _p_ bounds_, real_8 _p_ shiftr_, real_8 _p_ shifti_)
10980 { // ** body not listed **
11024 }
11025
11026 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_
11027 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_
11028 workd_, int_4 _p_ info_)
11029 { // ** body not listed **
11321 }
11322
11323 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
11324 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workd_)
11325 { // ** body not listed **
11481 }
11482
11483 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_
11484 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
11485 _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
11486 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_)
11487 { // ** body not listed **
11749 }
11750
11751 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
11752 _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_,
11753 real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
11754 { // ** body not listed **
12329 }
12330
12331 int_4 _dsconv (int_4 _p_ n_, real_8 _p_ ritz_, real_8 _p_ bounds_, real_8 _p_ tol_, int_4 _p_ nconv_)
12332 { // ** body not listed **
12351 }
12352
12353 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_,
12354 real_8 _p_ workl_, int_4 _p_ ierr_)
12355 { // ** body not listed **
12385 }
12386
12387 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
12388 _p_ lda_)
12389 { // ** body not listed **
12513 }
12514
12515 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_
12516 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_
12517 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
12518 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
12519 { // ** body not listed **
12812 }
12813 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_,
12814 real_8 _p_ shifts_)
12815 { // ** body not listed **
12849 }
12850
12851 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_
12852 )
12853 { // ** body not listed **
13069 }
13070
13071 int_4 _dsortr (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ x1_, real_8 _p_ x2_)
13072 { // ** body not listed **
13203 }
13204
13205 int_4 _dstatn (void)
13206 { // ** body not listed **
13227 }
13228
13229 int_4 _dstats (void)
13230 { // ** body not listed **
13251 }
13252
13253 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_)
13254 { // ** body not listed **
13558 }
13559
13560 int_4 _dvout (int_4 _p_ lout_, int_4 _p_ n_, real_8 _p_ sx_, int_4 _p_ idigit_, char _p_ ifmt_)
13561 { // ** body not listed **
14344 }
14345
14346 int_4 _icnteq (int_4 _p_ n_, int_4 _p_ array_, int_4 _p_ value_)
14347 { // ** body not listed **
14359 }
14360
14361 int_4 _icopy (int_4 _p_ n_, int_4 _p_ lx_, int_4 _p_ incx_, int_4 _p_ ly_, int_4 _p_ incy_)
14362 { // ** body not listed **
14391 }
14392
14393 int_4 _iset (int_4 _p_ n_, int_4 _p_ value_, int_4 _p_ array_, int_4 _p_ inc_)
14394 { // ** body not listed **
14401 }
14402
14403 int_4 _iswap (int_4 _p_ n_, int_4 _p_ sx_, int_4 _p_ incx_, int_4 _p_ sy_, int_4 _p_ incy_)
14404 { // ** body not listed **
14457 }
14458
14459 int_4 _ivout (int_4 _p_ lout_, int_4 _p_ n_, int_4 _p_ ix_, int_4 _p_ idigit_, char _p_ ifmt_)
14460 { // ** body not listed **
15310 }
15311
15312 int_4 _second (real_4 _p_ t_)
15313 { // ** body not listed **
15319 }
15320
15321 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_,
15322 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_
15323 ierr_)
15324 { // ** body not listed **
15476 }
15477
15478 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_,
15479 real_4 _p_ wr_, real_4 _p_ wi_, real_4 _p_ z_, int_4 _p_ info_)
15480 { // ** body not listed **
15678 }
15679
15680 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_
15681 ifmt_)
15682 { // ** body not listed **
16959 }
16960
16961 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_
16962 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_
16963 workd_, int_4 _p_ info_)
16964 { // ** body not listed **
17241 }
17242
17243 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_,
17244 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_,
17245 real_4 _p_ workd_)
17246 { // ** body not listed **
17470 }
17471
17472 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_
17473 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
17474 _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
17475 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_)
17476 { // ** body not listed **
17759 }
17760
17761 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
17762 _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_,
17763 real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
17764 { // ** body not listed **
18363 }
18364
18365 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_
18366 nconv_)
18367 { // ** body not listed **
18386 }
18387
18388 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_,
18389 real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ierr_)
18390 { // ** body not listed **
18467 }
18468
18469 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_
18470 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_
18471 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_
18472 iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
18473 { // ** body not listed **
18806 }
18807
18808 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_,
18809 real_4 _p_ bounds_, real_4 _p_ shiftr_, real_4 _p_ shifti_)
18810 { // ** body not listed **
18854 }
18855
18856 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_
18857 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_
18858 workd_, int_4 _p_ info_)
18859 { // ** body not listed **
19150 }
19151
19152 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
19153 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workd_)
19154 { // ** body not listed **
19309 }
19310
19311 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_
19312 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
19313 _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
19314 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_)
19315 { // ** body not listed **
19576 }
19577
19578 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
19579 _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_,
19580 real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
19581 { // ** body not listed **
20156 }
20157
20158 int_4 _ssconv (int_4 _p_ n_, real_4 _p_ ritz_, real_4 _p_ bounds_, real_4 _p_ tol_, int_4 _p_ nconv_)
20159 { // ** body not listed **
20177 }
20178
20179 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_,
20180 real_4 _p_ workl_, int_4 _p_ ierr_)
20181 { // ** body not listed **
20211 }
20212
20213 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
20214 _p_ lda_)
20215 { // ** body not listed **
20339 }
20340
20341 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_
20342 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_
20343 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
20344 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
20345 { // ** body not listed **
20637 }
20638
20639 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_,
20640 real_4 _p_ shifts_)
20641 { // ** body not listed **
20675 }
20676
20677 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_
20678 )
20679 { // ** body not listed **
20895 }
20896
20897 int_4 _ssortr (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ x1_, real_4 _p_ x2_)
20898 { // ** body not listed **
21029 }
21030
21031 int_4 _sstatn (void)
21032 { // ** body not listed **
21053 }
21054
21055 int_4 _sstats (void)
21056 { // ** body not listed **
21077 }
21078
21079 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_)
21080 { // ** body not listed **
21384 }
21385
21386 int_4 _svout (int_4 _p_ lout_, int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ idigit_, char _p_ ifmt_)
21387 { // ** body not listed **
22170 }
22171
22172 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_,
22173 complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, complex_16 _p_ workd_,
22174 int_4 _p_ ierr_)
22175 { // ** body not listed **
22329 }
22330
22331 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
22332 _p_ ifmt_)
22333 { // ** body not listed **
24783 }
24784
24785 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_
24786 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_,
24787 complex_16 _p_ workd_, int_4 _p_ info_)
24788 { // ** body not listed **
25071 }
25072
25073 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_,
25074 complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ resid_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_,
25075 complex_16 _p_ workd_)
25076 { // ** body not listed **
25250 }
25251
25252 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_
25253 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_,
25254 int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_, complex_16 _p_ bounds_, complex_16 _p_ q_,
25255 int_4 _p_ ldq_, complex_16 _p_ workl_, int_4 _p_ ipntr_, complex_16 _p_ workd_, real_8 _p_ rwork_, int_4 _p_ info_)
25256 { // ** body not listed **
25518 }
25519
25520 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_,
25521 complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
25522 complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_)
25523 { // ** body not listed **
26120 }
26121
26122 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_
26123 bounds_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, real_8 _p_ rwork_, int_4 _p_ ierr_)
26124 { // ** body not listed **
26178 }
26179
26180 int_4 _zneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, complex_16 _p_ d_, complex_16 _p_ z_,
26181 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_
26182 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_,
26183 int_4 _p_ ipntr_, complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_)
26184 { // ** body not listed **
26439 }
26440
26441 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_
26442 bounds_)
26443 { // ** body not listed **
26464 }
26465
26466 int_4 _zsortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, complex_16 _p_ x_, complex_16 _p_ y_)
26467 { // ** body not listed **
26667 }
26668
26669 int_4 _zstatn (void)
26670 { // ** body not listed **
26691 }
26692
26693 int_4 _zvout (int_4 _p_ lout_, int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ idigit_, char _p_ ifmt_)
26694 { // ** body not listed **
28984 }
28985
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|