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)