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.10
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 static struct {
460 int_4 logfil_, ndigit_, mgetv0_, msaupd_, msaup2_, msaitr_, mseigt_, msapps_, msgets_, mseupd_, mnaupd_, mnaup2_,
461 mnaitr_, mneigh_, mnapps_, mngets_, mneupd_, mcaupd_, mcaup2_, mcaitr_, mceigh_, mcapps_, mcgets_, mceupd_;
462 } debug_;
463 static struct {
464 int_4 nopx_, nbx_, nrorth_, nitref_, nrstrt_;
465 real_4 tsaupd_, tsaup2_, tsaitr_, tseigt_, tsgets_, tsapps_, tsconv_, tnaupd_, tnaup2_, tnaitr_, tneigh_, tngets_,
466 tnapps_, tnconv_, tcaupd_, tcaup2_, tcaitr_, tceigh_, tcgets_, tcapps_, tcconv_, tmvopx_, tmvbx_, tgetv0_, titref_,
467 trvec_;
468 } timing_;
470 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_,
471 int_4 _p_ ierr_);
473 idigit_, char _p_ ifmt_);
475 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_
476 ipntr_, complex_8 _p_ workd_, int_4 _p_ info_);
478 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_,
479 complex_8 _p_ workd_);
481 real_4 _p_ tol_, complex_8 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_,
482 complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ ritz_, complex_8 _p_ bounds_,
483 complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, int_4 _p_ ipntr_, complex_8 _p_ workd_, real_4 _p_ rwork_,
484 int_4 _p_ info_);
486 , complex_8 _p_ resid_, int_4 _p_ ncv_, complex_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
487 complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_);
489 complex_8 _p_ bounds_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, real_4 _p_ rwork_, int_4 _p_ ierr_);
491 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
492 _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_,
493 int_4 _p_ ipntr_, complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_);
495 complex_8 _p_ bounds_);
500 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_
501 ierr_);
503 ldh_, real_8 _p_ wr_, real_8 _p_ wi_, real_8 _p_ z_, int_4 _p_ info_);
505 char _p_ ifmt_);
507 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_,
508 real_8 _p_ workd_, int_4 _p_ info_);
510 _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_
511 workl_, real_8 _p_ workd_);
513 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_
514 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_
515 q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_);
517 , 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_
518 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
520 _p_ nconv_);
522 ritzi_, real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ierr_);
524 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_
525 , 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_,
526 int_4 _p_ iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
528 _p_ ritzi_, real_8 _p_ bounds_, real_8 _p_ shiftr_, real_8 _p_ shifti_);
530 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_,
531 real_8 _p_ workd_, int_4 _p_ info_);
533 real_8 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workd_);
535 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_
536 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_,
537 real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_);
539 , 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_
540 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
543 bounds_, real_8 _p_ workl_, int_4 _p_ ierr_);
545 a_, int_4 _p_ lda_);
547 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_,
548 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_
549 workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
551 _p_ bounds_, real_8 _p_ shifts_);
553 real_8 _p_ y_);
566 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_
567 ierr_);
569 ldh_, real_4 _p_ wr_, real_4 _p_ wi_, real_4 _p_ z_, int_4 _p_ info_);
571 char _p_ ifmt_);
573 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_,
574 real_4 _p_ workd_, int_4 _p_ info_);
576 _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_
577 workl_, real_4 _p_ workd_);
579 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_
580 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_
581 q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_);
583 , 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_
584 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
586 _p_ nconv_);
588 ritzi_, real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ierr_);
590 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_
591 , 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_,
592 int_4 _p_ iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
594 _p_ ritzi_, real_4 _p_ bounds_, real_4 _p_ shiftr_, real_4 _p_ shifti_);
596 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_,
597 real_4 _p_ workd_, int_4 _p_ info_);
599 real_4 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workd_);
601 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_
602 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_,
603 real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_);
605 , 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_
606 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
609 bounds_, real_4 _p_ workl_, int_4 _p_ ierr_);
611 a_, int_4 _p_ lda_);
613 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_,
614 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_
615 workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_);
617 _p_ bounds_, real_4 _p_ shifts_);
619 real_4 _p_ y_);
626 j_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, complex_16 _p_
627 workd_, int_4 _p_ ierr_);
629 idigit_, char _p_ ifmt_);
631 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
632 _p_ ipntr_, complex_16 _p_ workd_, int_4 _p_ info_);
634 _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_
635 workl_, complex_16 _p_ workd_);
637 real_8 _p_ tol_, complex_16 _p_ resid_, int_4 _p_ mode_, int_4 _p_ iupd_, int_4 _p_ ishift_, int_4 _p_ mxiter_,
638 complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_, complex_16 _p_ bounds_,
639 complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, int_4 _p_ ipntr_, complex_16 _p_ workd_, real_8 _p_ rwork_,
640 int_4 _p_ info_);
642 , complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
643 complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_);
645 complex_16 _p_ bounds_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, real_8 _p_ rwork_, int_4 _p_ ierr_);
647 _p_ z_, int_4 _p_ ldz_, complex_16 _p_ sigma_, complex_16 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_,
648 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_
649 iparam_, int_4 _p_ ipntr_, complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4
650 _p_ info_);
652 complex_16 _p_ bounds_);
656 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_,
657 complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ resid_, real_4 _p_ rnorm_, int_4 _p_ ipntr_, complex_8 _p_ workd_,
658 int_4 _p_ ierr_)
659 { // ** body not listed **
812 }
813 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
814 _p_ ifmt_)
815 { // ** body not listed **
3265 }
3266 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_
3267 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_,
3268 complex_8 _p_ workd_, int_4 _p_ info_)
3269 { // ** body not listed **
3553 }
3554 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_,
3555 complex_8 _p_ h_, int_4 _p_ ldh_, complex_8 _p_ resid_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_,
3556 complex_8 _p_ workd_)
3557 { // ** body not listed **
3731 }
3732 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_
3733 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_,
3734 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
3735 _p_ ldq_, complex_8 _p_ workl_, int_4 _p_ ipntr_, complex_8 _p_ workd_, real_4 _p_ rwork_, int_4 _p_ info_)
3736 { // ** body not listed **
3998 }
3999 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_,
4000 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
4001 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_)
4002 { // ** body not listed **
4599 }
4600 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_
4601 bounds_, complex_8 _p_ q_, int_4 _p_ ldq_, complex_8 _p_ workl_, real_4 _p_ rwork_, int_4 _p_ ierr_)
4602 { // ** body not listed **
4655 }
4656 int_4 _cneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, complex_8 _p_ d_, complex_8 _p_ z_, int_4
4657 _p_ ldz_, complex_8 _p_ sigma_, complex_8 _p_ workev_, char _p_ bmat_, int_4 _p_ n_, char _p_ which_, int_4 _p_ nev_,
4658 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_
4659 ipntr_, complex_8 _p_ workd_, complex_8 _p_ workl_, int_4 _p_ lworkl_, real_4 _p_ rwork_, int_4 _p_ info_)
4660 { // ** body not listed **
4914 }
4915 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_
4916 bounds_)
4917 { // ** body not listed **
4938 }
4939 int_4 _csortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, complex_8 _p_ x_, complex_8 _p_ y_)
4940 { // ** body not listed **
5140 }
5141 int_4 _cstatn (void)
5142 { // ** body not listed **
5163 }
5164 int_4 _cvout (int_4 _p_ lout_, int_4 _p_ n_, complex_8 _p_ cx_, int_4 _p_ idigit_, char _p_ ifmt_)
5165 { // ** body not listed **
7455 }
7456 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_,
7457 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_
7458 ierr_)
7459 { // ** body not listed **
7612 }
7613 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_,
7614 real_8 _p_ wr_, real_8 _p_ wi_, real_8 _p_ z_, int_4 _p_ info_)
7615 { // ** body not listed **
7813 }
7814 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_
7815 ifmt_)
7816 { // ** body not listed **
9093 }
9094 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_
9095 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_
9096 workd_, int_4 _p_ info_)
9097 { // ** body not listed **
9374 }
9375 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_,
9376 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_,
9377 real_8 _p_ workd_)
9378 { // ** body not listed **
9603 }
9604 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_
9605 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
9606 _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
9607 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_)
9608 { // ** body not listed **
9892 }
9893 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
9894 _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_,
9895 real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
9896 { // ** body not listed **
10499 }
10500 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_
10501 nconv_)
10502 { // ** body not listed **
10522 }
10523 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_,
10524 real_8 _p_ bounds_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workl_, int_4 _p_ ierr_)
10525 { // ** body not listed **
10603 }
10604 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_
10605 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_
10606 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_
10607 iparam_, int_4 _p_ ipntr_, real_8 _p_ workd_, real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
10608 { // ** body not listed **
10942 }
10943 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_,
10944 real_8 _p_ bounds_, real_8 _p_ shiftr_, real_8 _p_ shifti_)
10945 { // ** body not listed **
10989 }
10990 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_
10991 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_
10992 workd_, int_4 _p_ info_)
10993 { // ** body not listed **
11285 }
11286 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
11287 _p_ h_, int_4 _p_ ldh_, real_8 _p_ resid_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ workd_)
11288 { // ** body not listed **
11444 }
11445 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_
11446 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
11447 _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
11448 _p_ workl_, int_4 _p_ ipntr_, real_8 _p_ workd_, int_4 _p_ info_)
11449 { // ** body not listed **
11711 }
11712 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
11713 _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_,
11714 real_8 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
11715 { // ** body not listed **
12290 }
12291 int_4 _dsconv (int_4 _p_ n_, real_8 _p_ ritz_, real_8 _p_ bounds_, real_8 _p_ tol_, int_4 _p_ nconv_)
12292 { // ** body not listed **
12311 }
12312 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_,
12313 real_8 _p_ workl_, int_4 _p_ ierr_)
12314 { // ** body not listed **
12344 }
12345 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
12346 _p_ lda_)
12347 { // ** body not listed **
12471 }
12472 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_
12473 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_
12474 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
12475 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
12476 { // ** body not listed **
12769 }
12770 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_,
12771 real_8 _p_ shifts_)
12772 { // ** body not listed **
12806 }
12807 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_
12808 )
12809 { // ** body not listed **
13025 }
13026 int_4 _dsortr (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_8 _p_ x1_, real_8 _p_ x2_)
13027 { // ** body not listed **
13158 }
13159 int_4 _dstatn (void)
13160 { // ** body not listed **
13181 }
13182 int_4 _dstats (void)
13183 { // ** body not listed **
13204 }
13205 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_)
13206 { // ** body not listed **
13510 }
13511 int_4 _dvout (int_4 _p_ lout_, int_4 _p_ n_, real_8 _p_ sx_, int_4 _p_ idigit_, char _p_ ifmt_)
13512 { // ** body not listed **
14295 }
14296 int_4 _icnteq (int_4 _p_ n_, int_4 _p_ array_, int_4 _p_ value_)
14297 { // ** body not listed **
14309 }
14310 int_4 _icopy (int_4 _p_ n_, int_4 _p_ lx_, int_4 _p_ incx_, int_4 _p_ ly_, int_4 _p_ incy_)
14311 { // ** body not listed **
14340 }
14341 int_4 _iset (int_4 _p_ n_, int_4 _p_ value_, int_4 _p_ array_, int_4 _p_ inc_)
14342 { // ** body not listed **
14349 }
14350 int_4 _iswap (int_4 _p_ n_, int_4 _p_ sx_, int_4 _p_ incx_, int_4 _p_ sy_, int_4 _p_ incy_)
14351 { // ** body not listed **
14404 }
14405 int_4 _ivout (int_4 _p_ lout_, int_4 _p_ n_, int_4 _p_ ix_, int_4 _p_ idigit_, char _p_ ifmt_)
14406 { // ** body not listed **
15256 }
15257 int_4 _second (real_4 _p_ t_)
15258 { // ** body not listed **
15264 }
15265 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_,
15266 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_
15267 ierr_)
15268 { // ** body not listed **
15420 }
15421 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_,
15422 real_4 _p_ wr_, real_4 _p_ wi_, real_4 _p_ z_, int_4 _p_ info_)
15423 { // ** body not listed **
15621 }
15622 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_
15623 ifmt_)
15624 { // ** body not listed **
16901 }
16902 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_
16903 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_
16904 workd_, int_4 _p_ info_)
16905 { // ** body not listed **
17182 }
17183 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_,
17184 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_,
17185 real_4 _p_ workd_)
17186 { // ** body not listed **
17410 }
17411 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_
17412 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
17413 _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
17414 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_)
17415 { // ** body not listed **
17698 }
17699 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
17700 _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_,
17701 real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
17702 { // ** body not listed **
18301 }
18302 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_
18303 nconv_)
18304 { // ** body not listed **
18323 }
18324 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_,
18325 real_4 _p_ bounds_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workl_, int_4 _p_ ierr_)
18326 { // ** body not listed **
18403 }
18404 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_
18405 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_
18406 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_
18407 iparam_, int_4 _p_ ipntr_, real_4 _p_ workd_, real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
18408 { // ** body not listed **
18741 }
18742 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_,
18743 real_4 _p_ bounds_, real_4 _p_ shiftr_, real_4 _p_ shifti_)
18744 { // ** body not listed **
18788 }
18789 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_
18790 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_
18791 workd_, int_4 _p_ info_)
18792 { // ** body not listed **
19083 }
19084 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
19085 _p_ h_, int_4 _p_ ldh_, real_4 _p_ resid_, real_4 _p_ q_, int_4 _p_ ldq_, real_4 _p_ workd_)
19086 { // ** body not listed **
19241 }
19242 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_
19243 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
19244 _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
19245 _p_ workl_, int_4 _p_ ipntr_, real_4 _p_ workd_, int_4 _p_ info_)
19246 { // ** body not listed **
19507 }
19508 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
19509 _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_,
19510 real_4 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
19511 { // ** body not listed **
20086 }
20087 int_4 _ssconv (int_4 _p_ n_, real_4 _p_ ritz_, real_4 _p_ bounds_, real_4 _p_ tol_, int_4 _p_ nconv_)
20088 { // ** body not listed **
20106 }
20107 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_,
20108 real_4 _p_ workl_, int_4 _p_ ierr_)
20109 { // ** body not listed **
20139 }
20140 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
20141 _p_ lda_)
20142 { // ** body not listed **
20266 }
20267 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_
20268 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_
20269 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
20270 _p_ workl_, int_4 _p_ lworkl_, int_4 _p_ info_)
20271 { // ** body not listed **
20563 }
20564 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_,
20565 real_4 _p_ shifts_)
20566 { // ** body not listed **
20600 }
20601 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_
20602 )
20603 { // ** body not listed **
20819 }
20820 int_4 _ssortr (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, real_4 _p_ x1_, real_4 _p_ x2_)
20821 { // ** body not listed **
20952 }
20953 int_4 _sstatn (void)
20954 { // ** body not listed **
20975 }
20976 int_4 _sstats (void)
20977 { // ** body not listed **
20998 }
20999 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_)
21000 { // ** body not listed **
21304 }
21305 int_4 _svout (int_4 _p_ lout_, int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ idigit_, char _p_ ifmt_)
21306 { // ** body not listed **
22089 }
22090 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_,
22091 complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ resid_, real_8 _p_ rnorm_, int_4 _p_ ipntr_, complex_16 _p_ workd_,
22092 int_4 _p_ ierr_)
22093 { // ** body not listed **
22247 }
22248 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
22249 _p_ ifmt_)
22250 { // ** body not listed **
24700 }
24701 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_
24702 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_,
24703 complex_16 _p_ workd_, int_4 _p_ info_)
24704 { // ** body not listed **
24987 }
24988 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_,
24989 complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ resid_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_,
24990 complex_16 _p_ workd_)
24991 { // ** body not listed **
25165 }
25166 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_
25167 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_,
25168 int_4 _p_ ldv_, complex_16 _p_ h_, int_4 _p_ ldh_, complex_16 _p_ ritz_, complex_16 _p_ bounds_, complex_16 _p_ q_,
25169 int_4 _p_ ldq_, complex_16 _p_ workl_, int_4 _p_ ipntr_, complex_16 _p_ workd_, real_8 _p_ rwork_, int_4 _p_ info_)
25170 { // ** body not listed **
25432 }
25433 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_,
25434 complex_16 _p_ resid_, int_4 _p_ ncv_, complex_16 _p_ v_, int_4 _p_ ldv_, int_4 _p_ iparam_, int_4 _p_ ipntr_,
25435 complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_)
25436 { // ** body not listed **
26033 }
26034 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_
26035 bounds_, complex_16 _p_ q_, int_4 _p_ ldq_, complex_16 _p_ workl_, real_8 _p_ rwork_, int_4 _p_ ierr_)
26036 { // ** body not listed **
26090 }
26091 int_4 _zneupd (logical_4 _p_ rvec_, char _p_ howmny_, logical_4 _p_ select_, complex_16 _p_ d_, complex_16 _p_ z_,
26092 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_
26093 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_,
26094 int_4 _p_ ipntr_, complex_16 _p_ workd_, complex_16 _p_ workl_, int_4 _p_ lworkl_, real_8 _p_ rwork_, int_4 _p_ info_)
26095 { // ** body not listed **
26350 }
26351 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_
26352 bounds_)
26353 { // ** body not listed **
26374 }
26375 int_4 _zsortc (char _p_ which_, logical_4 _p_ apply_, int_4 _p_ n_, complex_16 _p_ x_, complex_16 _p_ y_)
26376 { // ** body not listed **
26576 }
26577 int_4 _zstatn (void)
26578 { // ** body not listed **
26599 }
26600 int_4 _zvout (int_4 _p_ lout_, int_4 _p_ n_, complex_16 _p_ cx_, int_4 _p_ idigit_, char _p_ ifmt_)
26601 { // ** body not listed **
28891 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
