mathlib-linpack.c

     1  //! @file mathlib-linpack.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  //! 177 subprograms from LINPACK
    24  
    25  // Compiled from Fortran source code by VIF.
    26  // Selected subprograms are:
    27  //
    28  // CCHDC  CHPDI  CSICO  DGBFA  DPPSL  SCHEX  SPOSL  STRDI  ZHIFA  ZPPFA
    29  // CCHDD  CHPFA  CSIDI  DGBSL  DPTSL  SCHUD  SPPCO  STRSL  ZHISL  ZPPSL
    30  // CCHEX  CHPSL  CSIFA  DGECO  DQRDC  SGBCO  SPPDI  ZCHDC  ZHPCO  ZPTSL
    31  // CCHUD  CPBCO  CSISL  DGEDI  DQRSL  SGBDI  SPPFA  ZCHDD  ZHPDI  ZQRDC
    32  // CGBCO  CPBDI  CSPCO  DGEFA  DSICO  SGBFA  SPPSL  ZCHEX  ZHPFA  ZQRSL
    33  // CGBDI  CPBFA  CSPDI  DGESL  DSIDI  SGBSL  SPTSL  ZCHUD  ZHPSL  ZSICO
    34  // CGBFA  CPBSL  CSPFA  DGTSL  DSIFA  SGECO  SQRDC  ZGBCO  ZMACH  ZSIDI
    35  // CGBSL  CPOCO  CSPSL  DPBCO  DSISL  SGEDI  SQRSL  ZGBDI  ZPBCO  ZSIFA
    36  // CGECO  CPODI  CSVDC  DPBDI  DSPCO  SGEFA  SSICO  ZGBFA  ZPBDI  ZSISL
    37  // CGEDI  CPOFA  CTRCO  DPBFA  DSPDI  SGESL  SSIDI  ZGBSL  ZPBFA  ZSPCO
    38  // CGEFA  CPOSL  CTRDI  DPBSL  DSPFA  SGTSL  SSIFA  ZGECO  ZPBSL  ZSPDI
    39  // CGESL  CPPCO  CTRSL  DPOCO  DSPSL  SPBCO  SSISL  ZGEDI  ZPOCO  ZSPFA
    40  // CGTSL  CPPDI  DCHDC  DPODI  DSVDC  SPBDI  SSPCO  ZGEFA  ZPODI  ZSPSL
    41  // CHICO  CPPFA  DCHDD  DPOFA  DTRCO  SPBFA  SSPDI  ZGESL  ZPOFA  ZSVDC
    42  // CHIDI  CPPSL  DCHEX  DPOSL  DTRDI  SPBSL  SSPFA  ZGTSL  ZPOSL  ZTRCO
    43  // CHIFA  CPTSL  DCHUD  DPPCO  DTRSL  SPOCO  SSPSL  ZHICO  ZPPCO  ZTRDI
    44  // CHISL  CQRDC  DGBCO  DPPDI  SCHDC  SPODI  SSVDC  ZHIDI  ZPPDI  ZTRSL
    45  // CHPCO  CQRSL  DGBDI  DPPFA  SCHDD  SPOFA  STRCO
    46  
    47  // LINPACK is a collection of Fortran subroutines that analyze and
    48  // solve linear equations and linear least-squares probles.  The
    49  // package solves linear systems whose matrices are general, banded,
    50  // symmetric indefinite, symmetric positive definite, triangular,
    51  // and tridiagonal square.  In addition, the package computes
    52  // the QR and singular value decompositions of rectangular matrices
    53  // and applies them to least-squares problems.  LINPACK uses
    54  // column-oriented algorithms to increase efficiency by preserving
    55  // locality of reference.
    56  // 
    57  // LINPACK was designed for supercomputers in use in the 1970s and
    58  // early 1980s. LINPACK has been largely superceded by LAPACK
    59  // which has been designed to run efficiently on shared-memory, vector
    60  // supercomputers.
    61  // 
    62  // Original authors are Jack Dongarra, Jim Bunch, Cleve Moler,
    63  // Pete Stewart, et alii.
    64  // 
    65  // Source: netlib/linpack/
    66  
    67  // The license for LINPACK Fortran source code is:
    68  //
    69  // LINPACK is licensed under the Modified 3 clause BSD license.
    70  // 
    71  // Prof. Jack Dongarra; Innovative Computing Laboratory; EECS Department;
    72  // 1122 Volunteer Blvd; University of Tennessee; Knoxville TN 37996-3450;
    73  // +1-865-974-8295; dongarra.edu; http://www.cs.utk.edu/~dongarra/
    74  // 
    75  // All rights reserved.
    76  // 
    77  // Redistribution and use in source and binary forms, with or without
    78  // modification, are permitted provided that the following conditions are met:
    79  // 
    80  // * Redistributions of source code must retain the above copyright notice, this
    81  //   list of conditions and the following disclaimer.
    82  // 
    83  // * Redistributions in binary form must reproduce the above copyright notice,
    84  //   this list of conditions and the following disclaimer in the documentation
    85  //   and/or other materials provided with the distribution.
    86  // 
    87  // * Neither the name of [project] nor the names of its
    88  //   contributors may be used to endorse or promote products derived from
    89  //   this software without specific prior written permission.
    90  // 
    91  // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
    92  // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
    93  // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
    94  // DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
    95  // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
    96  // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
    97  // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
    98  // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
    99  // OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
   100  // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
   101  // 
   102  
   103  /*
   104  Generated by VIF - experimental VIntage Fortran compiler.
   105  VIF release 1.2.17
   106  */
   107  #if defined (__GNUC__)
   108  #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
   109  #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
   110  #if (__GNUC__ >= 14)
   111  #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
   112  #pragma GCC diagnostic ignored "-Wimplicit-int"
   113  #pragma GCC diagnostic ignored "-Wint-conversion"
   114  #pragma GCC diagnostic ignored "-Wreturn-mismatch"
   115  #endif
   116  #else
   117  #error VIF requires GCC
   118  #endif
   123  static CALLS __calls[__ncalls] = {
   124    {"cchdc", 0}, // subroutine
   125    {"cchdd", 0}, // subroutine
   126    {"cchex", 0}, // subroutine
   127    {"cchud", 0}, // subroutine
   128    {"cgbco", 0}, // subroutine
   129    {"cgbdi", 0}, // subroutine
   130    {"cgbfa", 0}, // subroutine
   131    {"cgbsl", 0}, // subroutine
   132    {"cgeco", 0}, // subroutine
   133    {"cgedi", 0}, // subroutine
   134    {"cgefa", 0}, // subroutine
   135    {"cgesl", 0}, // subroutine
   136    {"cgtsl", 0}, // subroutine
   137    {"chico", 0}, // subroutine
   138    {"chidi", 0}, // subroutine
   139    {"chifa", 0}, // subroutine
   140    {"chisl", 0}, // subroutine
   141    {"chpco", 0}, // subroutine
   142    {"chpdi", 0}, // subroutine
   143    {"chpfa", 0}, // subroutine
   144    {"chpsl", 0}, // subroutine
   145    {"cpbco", 0}, // subroutine
   146    {"cpbdi", 0}, // subroutine
   147    {"cpbfa", 0}, // subroutine
   148    {"cpbsl", 0}, // subroutine
   149    {"cpoco", 0}, // subroutine
   150    {"cpodi", 0}, // subroutine
   151    {"cpofa", 0}, // subroutine
   152    {"cposl", 0}, // subroutine
   153    {"cppco", 0}, // subroutine
   154    {"cppdi", 0}, // subroutine
   155    {"cppfa", 0}, // subroutine
   156    {"cppsl", 0}, // subroutine
   157    {"cptsl", 0}, // subroutine
   158    {"cqrdc", 0}, // subroutine
   159    {"cqrsl", 0}, // subroutine
   160    {"csico", 0}, // subroutine
   161    {"csidi", 0}, // subroutine
   162    {"csifa", 0}, // subroutine
   163    {"csisl", 0}, // subroutine
   164    {"cspco", 0}, // subroutine
   165    {"cspdi", 0}, // subroutine
   166    {"cspfa", 0}, // subroutine
   167    {"cspsl", 0}, // subroutine
   168    {"csvdc", 0}, // subroutine
   169    {"ctrco", 0}, // subroutine
   170    {"ctrdi", 0}, // subroutine
   171    {"ctrsl", 0}, // subroutine
   172    {"dchdc", 0}, // subroutine
   173    {"dchdd", 0}, // subroutine
   174    {"dchex", 0}, // subroutine
   175    {"dchud", 0}, // subroutine
   176    {"dgbco", 0}, // subroutine
   177    {"dgbdi", 0}, // subroutine
   178    {"dgbfa", 0}, // subroutine
   179    {"dgbsl", 0}, // subroutine
   180    {"dgeco", 0}, // subroutine
   181    {"dgedi", 0}, // subroutine
   182    {"dgefa", 0}, // subroutine
   183    {"dgesl", 0}, // subroutine
   184    {"dgtsl", 0}, // subroutine
   185    {"dpbco", 0}, // subroutine
   186    {"dpbdi", 0}, // subroutine
   187    {"dpbfa", 0}, // subroutine
   188    {"dpbsl", 0}, // subroutine
   189    {"dpoco", 0}, // subroutine
   190    {"dpodi", 0}, // subroutine
   191    {"dpofa", 0}, // subroutine
   192    {"dposl", 0}, // subroutine
   193    {"dppco", 0}, // subroutine
   194    {"dppdi", 0}, // subroutine
   195    {"dppfa", 0}, // subroutine
   196    {"dppsl", 0}, // subroutine
   197    {"dptsl", 0}, // subroutine
   198    {"dqrdc", 0}, // subroutine
   199    {"dqrsl", 0}, // subroutine
   200    {"dsico", 0}, // subroutine
   201    {"dsidi", 0}, // subroutine
   202    {"dsifa", 0}, // subroutine
   203    {"dsisl", 0}, // subroutine
   204    {"dspco", 0}, // subroutine
   205    {"dspdi", 0}, // subroutine
   206    {"dspfa", 0}, // subroutine
   207    {"dspsl", 0}, // subroutine
   208    {"dsvdc", 0}, // subroutine
   209    {"dtrco", 0}, // subroutine
   210    {"dtrdi", 0}, // subroutine
   211    {"dtrsl", 0}, // subroutine
   212    {"schdc", 0}, // subroutine
   213    {"schdd", 0}, // subroutine
   214    {"schex", 0}, // subroutine
   215    {"schud", 0}, // subroutine
   216    {"sgbco", 0}, // subroutine
   217    {"sgbdi", 0}, // subroutine
   218    {"sgbfa", 0}, // subroutine
   219    {"sgbsl", 0}, // subroutine
   220    {"sgeco", 0}, // subroutine
   221    {"sgedi", 0}, // subroutine
   222    {"sgefa", 0}, // subroutine
   223    {"sgesl", 0}, // subroutine
   224    {"sgtsl", 0}, // subroutine
   225    {"spbco", 0}, // subroutine
   226    {"spbdi", 0}, // subroutine
   227    {"spbfa", 0}, // subroutine
   228    {"spbsl", 0}, // subroutine
   229    {"spoco", 0}, // subroutine
   230    {"spodi", 0}, // subroutine
   231    {"spofa", 0}, // subroutine
   232    {"sposl", 0}, // subroutine
   233    {"sppco", 0}, // subroutine
   234    {"sppdi", 0}, // subroutine
   235    {"sppfa", 0}, // subroutine
   236    {"sppsl", 0}, // subroutine
   237    {"sptsl", 0}, // subroutine
   238    {"sqrdc", 0}, // subroutine
   239    {"sqrsl", 0}, // subroutine
   240    {"ssico", 0}, // subroutine
   241    {"ssidi", 0}, // subroutine
   242    {"ssifa", 0}, // subroutine
   243    {"ssisl", 0}, // subroutine
   244    {"sspco", 0}, // subroutine
   245    {"sspdi", 0}, // subroutine
   246    {"sspfa", 0}, // subroutine
   247    {"sspsl", 0}, // subroutine
   248    {"ssvdc", 0}, // subroutine
   249    {"strco", 0}, // subroutine
   250    {"strdi", 0}, // subroutine
   251    {"strsl", 0}, // subroutine
   252    {"zchdc", 0}, // subroutine
   253    {"zchdd", 0}, // subroutine
   254    {"zchex", 0}, // subroutine
   255    {"zchud", 0}, // subroutine
   256    {"zgbco", 0}, // subroutine
   257    {"zgbdi", 0}, // subroutine
   258    {"zgbfa", 0}, // subroutine
   259    {"zgbsl", 0}, // subroutine
   260    {"zgeco", 0}, // subroutine
   261    {"zgedi", 0}, // subroutine
   262    {"zgefa", 0}, // subroutine
   263    {"zgesl", 0}, // subroutine
   264    {"zgtsl", 0}, // subroutine
   265    {"zhico", 0}, // subroutine
   266    {"zhidi", 0}, // subroutine
   267    {"zhifa", 0}, // subroutine
   268    {"zhisl", 0}, // subroutine
   269    {"zhpco", 0}, // subroutine
   270    {"zhpdi", 0}, // subroutine
   271    {"zhpfa", 0}, // subroutine
   272    {"zhpsl", 0}, // subroutine
   273    {"zmach", 0}, // real*8 function
   274    {"zpbco", 0}, // subroutine
   275    {"zpbdi", 0}, // subroutine
   276    {"zpbfa", 0}, // subroutine
   277    {"zpbsl", 0}, // subroutine
   278    {"zpoco", 0}, // subroutine
   279    {"zpodi", 0}, // subroutine
   280    {"zpofa", 0}, // subroutine
   281    {"zposl", 0}, // subroutine
   282    {"zppco", 0}, // subroutine
   283    {"zppdi", 0}, // subroutine
   284    {"zppfa", 0}, // subroutine
   285    {"zppsl", 0}, // subroutine
   286    {"zptsl", 0}, // subroutine
   287    {"zqrdc", 0}, // subroutine
   288    {"zqrsl", 0}, // subroutine
   289    {"zsico", 0}, // subroutine
   290    {"zsidi", 0}, // subroutine
   291    {"zsifa", 0}, // subroutine
   292    {"zsisl", 0}, // subroutine
   293    {"zspco", 0}, // subroutine
   294    {"zspdi", 0}, // subroutine
   295    {"zspfa", 0}, // subroutine
   296    {"zspsl", 0}, // subroutine
   297    {"zsvdc", 0}, // subroutine
   298    {"ztrco", 0}, // subroutine
   299    {"ztrdi", 0}, // subroutine
   300    {"ztrsl", 0}, // subroutine
   301    {NULL, 0}
   302  };
   303  
   305  job_, int_4 _p_ info_);
   307  ldz_, int_4 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ info_);
   309  int_4 _p_ ldz_, int_4 _p_ nz_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ job_);
   311  ldz_, int_4 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_);
   313  , real_4 _p_ rcond_, complex_8 _p_ z_);
   315  , complex_8 _p_ det_);
   317  , int_4 _p_ info_);
   319  , complex_8 _p_ b_, int_4 _p_ job_);
   321  _p_ z_);
   323  _p_ work_, int_4 _p_ job_);
   326  job_);
   328  info_);
   330  _p_ z_);
   332  inert_, complex_8 _p_ work_, int_4 _p_ job_);
   337  _p_ work_, int_4 _p_ job_);
   341  _p_ z_, int_4 _p_ info_);
   346  info_);
   356  jpvt_, complex_8 _p_ work_, int_4 _p_ job_);
   358  _p_ y_, complex_8 _p_ qy_, complex_8 _p_ qty_, complex_8 _p_ b_, complex_8 _p_ rsd_, complex_8 _p_ xb_, int_4 _p_ job_, 
   359  int_4 _p_ info_);
   361  _p_ z_);
   363  _p_ work_, int_4 _p_ job_);
   368  int_4 _p_ job_);
   372  e_, complex_8 _p_ u_, int_4 _p_ ldu_, complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ work_, int_4 _p_ job_, int_4 _p_ 
   373  info_);
   375  job_);
   377  info_);
   379  info_);
   381  int_4 _p_ info_);
   383  int_4 _p_ nz_, real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ info_);
   385  _p_ ldz_, int_4 _p_ nz_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ job_);
   387  int_4 _p_ nz_, real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_);
   389  real_8 _p_ rcond_, real_8 _p_ z_);
   391  real_8 _p_ det_);
   393  int_4 _p_ info_);
   395  real_8 _p_ b_, int_4 _p_ job_);
   397  ;
   399  , int_4 _p_ job_);
   404  int_4 _p_ info_);
   409  ;
   419  real_8 _p_ work_, int_4 _p_ job_);
   421  real_8 _p_ qy_, real_8 _p_ qty_, real_8 _p_ b_, real_8 _p_ rsd_, real_8 _p_ xb_, int_4 _p_ job_, int_4 _p_ info_);
   423  ;
   425  , real_8 _p_ work_, int_4 _p_ job_);
   430  work_, int_4 _p_ job_);
   434  _p_ u_, int_4 _p_ ldu_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ work_, int_4 _p_ job_, int_4 _p_ info_);
   439  int_4 _p_ info_);
   441  int_4 _p_ nz_, real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ info_);
   443  _p_ ldz_, int_4 _p_ nz_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ job_);
   445  int_4 _p_ nz_, real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_);
   447  real_4 _p_ rcond_, real_4 _p_ z_);
   449  real_4 _p_ det_);
   451  int_4 _p_ info_);
   453  real_4 _p_ b_, int_4 _p_ job_);
   455  ;
   457  , int_4 _p_ job_);
   462  int_4 _p_ info_);
   467  ;
   477  real_4 _p_ work_, int_4 _p_ job_);
   479  real_4 _p_ qy_, real_4 _p_ qty_, real_4 _p_ b_, real_4 _p_ rsd_, real_4 _p_ xb_, int_4 _p_ job_, int_4 _p_ info_);
   481  ;
   483  , real_4 _p_ work_, int_4 _p_ job_);
   488  work_, int_4 _p_ job_);
   492  _p_ u_, int_4 _p_ ldu_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_);
   497  _p_ job_, int_4 _p_ info_);
   499  _p_ ldz_, int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ info_);
   501  int_4 _p_ ldz_, int_4 _p_ nz_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ job_);
   503  _p_ ldz_, int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_);
   505  ipvt_, real_8 _p_ rcond_, complex_16 _p_ z_);
   507  ipvt_, complex_16 _p_ det_);
   509  ipvt_, int_4 _p_ info_);
   511  ipvt_, complex_16 _p_ b_, int_4 _p_ job_);
   513  _p_ z_);
   515  complex_16 _p_ work_, int_4 _p_ job_);
   518  job_);
   520  _p_ info_);
   522  _p_ z_);
   524  inert_, complex_16 _p_ work_, int_4 _p_ job_);
   529  complex_16 _p_ work_, int_4 _p_ job_);
   534  _p_ z_, int_4 _p_ info_);
   539  _p_ info_);
   549  jpvt_, complex_16 _p_ work_, int_4 _p_ job_);
   551  complex_16 _p_ y_, complex_16 _p_ qy_, complex_16 _p_ qty_, complex_16 _p_ b_, complex_16 _p_ rsd_, complex_16 _p_ xb_, 
   552  int_4 _p_ job_, int_4 _p_ info_);
   554  _p_ z_);
   556  complex_16 _p_ work_, int_4 _p_ job_);
   561  int_4 _p_ job_);
   565  _p_ e_, complex_16 _p_ u_, int_4 _p_ ldu_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ work_, int_4 _p_ job_, 
   566  int_4 _p_ info_);
   568  _p_ job_);
   570  info_);
   572  info_);
   573  int_4 _cchdc (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, complex_8 _p_ work_, int_4 _p_ jpvt_, int_4 _p_ job_, 
   574  int_4 _p_ info_)
   575  { // ** body not listed **
   751  }
   752  
   753  int_4 _cchdd (complex_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_8 _p_ x_, complex_8 _p_ z_, int_4 _p_ ldz_, int_4 
   754  _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ info_)
   755  { // ** body not listed **
   824  }
   825  
   826  int_4 _cchex (complex_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, complex_8 _p_ z_, int_4 _p_ 
   827  ldz_, int_4 _p_ nz_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ job_)
   828  { // ** body not listed **
   946  }
   947  
   948  int_4 _cchud (complex_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_8 _p_ x_, complex_8 _p_ z_, int_4 _p_ ldz_, int_4 
   949  _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_)
   950  { // ** body not listed **
   990  }
   991  
   992  int_4 _cgbco (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 
   993  _p_ rcond_, complex_8 _p_ z_)
   994  { // ** body not listed **
  1032  }
  1033  
  1034  s_ = ({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1035  (zdum__1_));}) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1036  (zdum__1_));});
  1037  (void) _csscal (n_, &s_, z_, &_k1);
  1038  ek_ = CMPLXF (s_, 0.0) * ek_;
  1039  _l30:;
  1040  wk_ = ek_ - z_[k_ - 1];
  1041  wkm_ = -ek_ - z_[k_ - 1];
  1042  s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1043  sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1044  if (({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1045  (zdum__1_));}) == 0.0e0) {
  1046  goto _l40;
  1047  }
  1048  
  1049  wk_ = wk_ / conjf (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
  1050  wkm_ = wkm_ / conjf (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
  1051  goto _l50;
  1052  _l40:;
  1053  wk_ = CMPLXF (1.0, 0.0);
  1054  wkm_ = CMPLXF (1.0, 0.0);
  1055  _l50:;
  1056  kp1_ = k_ + 1;
  1057  ju_ = _min (_max (ju_, (*mu_) + ipvt_[k_ - 1]), (*n_));
  1058  mm_ = m_;
  1059  if (kp1_ > ju_) {
  1060    goto _l90;
  1061  }
  1062  
  1063  for (j_ = kp1_; j_ <= ju_; (j_)++) {
  1064    mm_ = mm_ - 1;
  1065    sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4) 
  1066    (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1067    z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
  1068    s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1069  }
  1070  
  1071  if (s_ >= sm_) {
  1072    goto _l80;
  1073  }
  1074  
  1075  t_ = wkm_ - wk_;
  1076  wk_ = wkm_;
  1077  mm_ = m_;
  1078  for (j_ = kp1_; j_ <= ju_; (j_)++) {
  1079    mm_ = mm_ - 1;
  1080    z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
  1081  }
  1082  
  1083  _l80:;
  1084  _l90:;
  1085  z_[k_ - 1] = wk_;
  1086  }
  1087  
  1088  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  1089  (void) _csscal (n_, &s_, z_, &_k1);
  1090  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  1091    k_ = (*n_) + 1 - kb_;
  1092    lm_ = _min ((*ml_), (*n_) - k_);
  1093    if (k_ < (*n_)) {
  1094      z_[k_ - 1] = z_[k_ - 1] + _cdotc (&lm_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
  1095    }
  1096    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= 1.0e0) {
  1097    goto _l110;
  1098  }
  1099  s_ = 1.0e0 / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1100  (void) _csscal (n_, &s_, z_, &_k1);
  1101  _l110:;
  1102  l_ = ipvt_[k_ - 1];
  1103  t_ = z_[l_ - 1];
  1104  z_[l_ - 1] = z_[k_ - 1];
  1105  z_[k_ - 1] = t_;
  1106  }
  1107  
  1108  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  1109  (void) _csscal (n_, &s_, z_, &_k1);
  1110  ynorm_ = 1.0;
  1111  for (k_ = 1; k_ <= (*n_); (k_)++) {
  1112    l_ = ipvt_[k_ - 1];
  1113    t_ = z_[l_ - 1];
  1114    z_[l_ - 1] = z_[k_ - 1];
  1115    z_[k_ - 1] = t_;
  1116    lm_ = _min ((*ml_), (*n_) - k_);
  1117    if (k_ < (*n_)) {
  1118      (void) _caxpy (&lm_, &t_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
  1119    }
  1120    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= 1.0e0) {
  1121    goto _l130;
  1122  }
  1123  
  1124  s_ = 1.0e0 / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1125  (void) _csscal (n_, &s_, z_, &_k1);
  1126  ynorm_ = s_ * ynorm_;
  1127  _l130:;
  1128  }
  1129  
  1130  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  1131  (void) _csscal (n_, &s_, z_, &_k1);
  1132  ynorm_ = s_ * ynorm_;
  1133  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  1134    k_ = (*n_) + 1 - kb_;
  1135    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  1136    zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  1137    goto _l150;
  1138  }
  1139  
  1140  s_ = ({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1141  (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1142  (void) _csscal (n_, &s_, z_, &_k1);
  1143  ynorm_ = s_ * ynorm_;
  1144  _l150:;
  1145  if (({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1146  (zdum__1_));}) != 0.0e0) {
  1147  z_[k_ - 1] = z_[k_ - 1] / abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))];
  1148  }
  1149  
  1150  if (({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1151  (zdum__1_));}) == 0.0e0) {
  1152  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  1153  }
  1154  lm_ = _min (k_, m_) - 1;
  1155  la_ = m_ - lm_;
  1156  lz_ = k_ - lm_;
  1157  t_ = -z_[k_ - 1];
  1158  (void) _caxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lz_ - 1], &_k1);
  1159  }
  1160  
  1161  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  1162  (void) _csscal (n_, &s_, z_, &_k1);
  1163  ynorm_ = s_ * ynorm_;
  1164  if (anorm_ != 0.0e0) {
  1165    (*rcond_) = ynorm_ / anorm_;
  1166  }
  1167  
  1168  if (anorm_ == 0.0e0) {
  1169    (*rcond_) = 0.0;
  1170  }
  1171  
  1172  __calls[4].calls++;
  1173  return 0;
  1174  }
  1175  
  1176  int_4 _cgbdi (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  1177  complex_8 _p_ det_)
  1178  { // ** body not listed **
  1197  }
  1198  
  1199  det_[0] = CMPLXF (ten_, 0.0) * det_[0];
  1200  det_[1] = det_[1] - CMPLXF (1.0, 0.0);
  1201  goto _l10;
  1202  _l20:;
  1203  _l30:;
  1204  if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
  1205  goto _l40;
  1206  }
  1207  
  1208  det_[0] = det_[0] / CMPLXF (ten_, 0.0);
  1209  det_[1] = det_[1] + CMPLXF (1.0, 0.0);
  1210  goto _l30;
  1211  _l40:;
  1212  }
  1213  
  1214  _l60:;
  1215  __calls[5].calls++;
  1216  return 0;
  1217  }
  1218  
  1219  int_4 _cgbfa (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 
  1220  _p_ info_)
  1221  { // ** body not listed **
  1298  }
  1299  
  1300  _l130:;
  1301  ipvt_[(*n_) - 1] = (*n_);
  1302  if (({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * (((*n_) - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1303  (zdum__1_));}) == 0.0e0) {
  1304  (*info_) = (*n_);
  1305  }
  1306  
  1307  __calls[6].calls++;
  1308  return 0;
  1309  }
  1310  
  1311  int_4 _cgbsl (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  1312  complex_8 _p_ b_, int_4 _p_ job_)
  1313  { // ** body not listed **
  1382  }
  1383  
  1384  int_4 _cgeco (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
  1385  { // ** body not listed **
  1411  }
  1412  
  1413  s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1414  (zdum__1_));}) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1415  (zdum__1_));});
  1416  (void) _csscal (n_, &s_, z_, &_k1);
  1417  ek_ = CMPLXF (s_, 0.0) * ek_;
  1418  _l30:;
  1419  wk_ = ek_ - z_[k_ - 1];
  1420  wkm_ = -ek_ - z_[k_ - 1];
  1421  s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1422  sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1423  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1424  (zdum__1_));}) == 0.0e0) {
  1425  goto _l40;
  1426  }
  1427  
  1428  wk_ = wk_ / conjf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
  1429  wkm_ = wkm_ / conjf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
  1430  goto _l50;
  1431  _l40:;
  1432  wk_ = CMPLXF (1.0, 0.0);
  1433  wkm_ = CMPLXF (1.0, 0.0);
  1434  _l50:;
  1435  kp1_ = k_ + 1;
  1436  if (kp1_ > (*n_)) {
  1437    goto _l90;
  1438  }
  1439  
  1440  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
  1441    sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4) 
  1442    (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1443    z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
  1444    s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1445  }
  1446  
  1447  if (s_ >= sm_) {
  1448    goto _l80;
  1449  }
  1450  
  1451  t_ = wkm_ - wk_;
  1452  wk_ = wkm_;
  1453  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
  1454    z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
  1455  }
  1456  
  1457  _l80:;
  1458  _l90:;
  1459  z_[k_ - 1] = wk_;
  1460  }
  1461  
  1462  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  1463  (void) _csscal (n_, &s_, z_, &_k1);
  1464  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  1465    k_ = (*n_) + 1 - kb_;
  1466    if (k_ < (*n_)) {
  1467      z_[k_ - 1] = z_[k_ - 1] + _cdotc (($0_ = (*n_) - k_, &$0_), &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 
  1468      - 1], &_k1);
  1469    }
  1470    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= 1.0e0) {
  1471    goto _l110;
  1472  }
  1473  
  1474  s_ = 1.0e0 / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1475  (void) _csscal (n_, &s_, z_, &_k1);
  1476  _l110:;
  1477  l_ = ipvt_[k_ - 1];
  1478  t_ = z_[l_ - 1];
  1479  z_[l_ - 1] = z_[k_ - 1];
  1480  z_[k_ - 1] = t_;
  1481  }
  1482  
  1483  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  1484  (void) _csscal (n_, &s_, z_, &_k1);
  1485  ynorm_ = 1.0;
  1486  for (k_ = 1; k_ <= (*n_); (k_)++) {
  1487    l_ = ipvt_[k_ - 1];
  1488    t_ = z_[l_ - 1];
  1489    z_[l_ - 1] = z_[k_ - 1];
  1490    z_[k_ - 1] = t_;
  1491    if (k_ < (*n_)) {
  1492      (void) _caxpy (($1_ = (*n_) - k_, &$1_), &t_, &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
  1493    }
  1494    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= 1.0e0) {
  1495    goto _l130;
  1496  }
  1497  
  1498  s_ = 1.0e0 / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1499  (void) _csscal (n_, &s_, z_, &_k1);
  1500  ynorm_ = s_ * ynorm_;
  1501  _l130:;
  1502  }
  1503  
  1504  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  1505  (void) _csscal (n_, &s_, z_, &_k1);
  1506  ynorm_ = s_ * ynorm_;
  1507  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  1508    k_ = (*n_) + 1 - kb_;
  1509    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  1510    zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  1511    goto _l150;
  1512  }
  1513  
  1514  s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1515  (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1516  (void) _csscal (n_, &s_, z_, &_k1);
  1517  ynorm_ = s_ * ynorm_;
  1518  _l150:;
  1519  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1520  (zdum__1_));}) != 0.0e0) {
  1521  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  1522  }
  1523  
  1524  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1525  (zdum__1_));}) == 0.0e0) {
  1526  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  1527  }
  1528  
  1529  t_ = -z_[k_ - 1];
  1530  (void) _caxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  1531  }
  1532  
  1533  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  1534  (void) _csscal (n_, &s_, z_, &_k1);
  1535  ynorm_ = s_ * ynorm_;
  1536  if (anorm_ != 0.0e0) {
  1537    (*rcond_) = ynorm_ / anorm_;
  1538  }
  1539  
  1540  if (anorm_ == 0.0e0) {
  1541    (*rcond_) = 0.0;
  1542  }
  1543  
  1544  __calls[8].calls++;
  1545  return 0;
  1546  }
  1547  
  1548  int_4 _cgedi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_8 _p_ det_, complex_8 _p_ work_, 
  1549  int_4 _p_ job_)
  1550  { // ** body not listed **
  1572  }
  1573  
  1574  det_[0] = CMPLXF (ten_, 0.0) * det_[0];
  1575  det_[1] = det_[1] - CMPLXF (1.0, 0.0);
  1576  goto _l10;
  1577  _l20:;
  1578  _l30:;
  1579  if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
  1580  goto _l40;
  1581  }
  1582  
  1583  det_[0] = det_[0] / CMPLXF (ten_, 0.0);
  1584  det_[1] = det_[1] + CMPLXF (1.0, 0.0);
  1585  goto _l30;
  1586  _l40:;
  1587  }
  1588  
  1589  _l60:;
  1590  _l70:;
  1591  if (_imod ((*job_), 10) == 0) {
  1592    goto _l150;
  1593  }
  1594  
  1595  for (k_ = 1; k_ <= (*n_); (k_)++) {
  1596    a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  1597    t_ = -a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  1598    (void) _cscal (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
  1599    kp1_ = k_ + 1;
  1600    if ((*n_) < kp1_) {
  1601      goto _l90;
  1602    }
  1603    for (j_ = kp1_; j_ <= (*n_); (j_)++) {
  1604      t_ = a_[k_ - 1 + ((*lda_)) * ((j_ - 1))];
  1605      a_[k_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
  1606      (void) _caxpy (&k_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
  1607    }
  1608    _l90:;
  1609  }
  1610  
  1611  nm1_ = (*n_) - 1;
  1612  if (nm1_ < 1) {
  1613    goto _l140;
  1614  }
  1615  
  1616  for (kb_ = 1; kb_ <= nm1_; (kb_)++) {
  1617    k_ = (*n_) - kb_;
  1618    kp1_ = k_ + 1;
  1619    for (i_ = kp1_; i_ <= (*n_); (i_)++) {
  1620      work_[i_ - 1] = a_[i_ - 1 + ((*lda_)) * ((k_ - 1))];
  1621      a_[i_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLXF (0.0, 0.0);
  1622    }
  1623    for (j_ = kp1_; j_ <= (*n_); (j_)++) {
  1624      t_ = work_[j_ - 1];
  1625      (void) _caxpy (n_, &t_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
  1626    }
  1627    l_ = ipvt_[k_ - 1];
  1628    if (l_ != k_) {
  1629      (void) _cswap (n_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((l_ - 1))], &_k1);
  1630    }
  1631  }
  1632  
  1633  _l140:;
  1634  _l150:;
  1635  __calls[9].calls++;
  1636  return 0;
  1637  }
  1638  
  1639  int_4 _cgefa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
  1640  { // ** body not listed **
  1682  }
  1683  
  1684  _l70:;
  1685  ipvt_[(*n_) - 1] = (*n_);
  1686  if (({complex_8 zdum__1_ = a_[(*n_) - 1 + ((*lda_)) * (((*n_) - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  1687  (cimagf (zdum__1_));}) == 0.0e0) {
  1688  (*info_) = (*n_);
  1689  }
  1690  __calls[10].calls++;
  1691  return 0;
  1692  }
  1693  
  1694  int_4 _cgesl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_8 _p_ b_, int_4 _p_ job_)
  1695  { // ** body not listed **
  1751  }
  1752  
  1753  int_4 _cgtsl (int_4 _p_ n_, complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ e_, complex_8 _p_ b_, int_4 _p_ info_)
  1754  { // ** body not listed **
  1787  }
  1788  
  1789  (*info_) = k_;
  1790  goto _l100;
  1791  _l20:;
  1792  t_ = -c_[kp1_ - 1] / c_[k_ - 1];
  1793  c_[kp1_ - 1] = d_[kp1_ - 1] + t_ * d_[k_ - 1];
  1794  d_[kp1_ - 1] = e_[kp1_ - 1] + t_ * e_[k_ - 1];
  1795  e_[kp1_ - 1] = CMPLXF (0.0, 0.0);
  1796  b_[kp1_ - 1] = b_[kp1_ - 1] + t_ * b_[k_ - 1];
  1797  }
  1798  
  1799  _l40:;
  1800  if (({complex_8 zdum__1_ = c_[(*n_) - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) 
  1801  { // ** body not listed **
  1803  }
  1804  
  1805  (*info_) = (*n_);
  1806  goto _l90;
  1807  _l50:;
  1808  nm2_ = (*n_) - 2;
  1809  b_[(*n_) - 1] = b_[(*n_) - 1] / c_[(*n_) - 1];
  1810  if ((*n_) == 1) {
  1811    goto _l80;
  1812  }
  1813  
  1814  b_[nm1_ - 1] = (b_[nm1_ - 1] - d_[nm1_ - 1] * b_[(*n_) - 1]) / c_[nm1_ - 1];
  1815  if (nm2_ < 1) {
  1816    goto _l70;
  1817  }
  1818  
  1819  for (kb_ = 1; kb_ <= nm2_; (kb_)++) {
  1820    k_ = nm2_ - kb_ + 1;
  1821    b_[k_ - 1] = (b_[k_ - 1] - d_[k_ - 1] * b_[k_ + 1 - 1] - e_[k_ - 1] * b_[k_ + 2 - 1]) / c_[k_ - 1];
  1822  }
  1823  
  1824  _l70:;
  1825  _l80:;
  1826  _l90:;
  1827  _l100:;
  1828  __calls[12].calls++;
  1829  return 0;
  1830  }
  1831  
  1832  int_4 _chico (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
  1833  { // ** body not listed **
  1883  }
  1884  
  1885  z_[k_ - 1] = z_[k_ - 1] + ek_;
  1886  (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  1887  if (ks_ == 1) {
  1888    goto _l80;
  1889  }
  1890  
  1891  if (({complex_8 zdum__1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) 
  1892  { // ** body not listed **
  1896  }
  1897  
  1898  z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
  1899  (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
  1900  _l80:;
  1901  if (ks_ == 2) {
  1902    goto _l100;
  1903  }
  1904  
  1905  if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  1906  zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  1907  goto _l90;
  1908  }
  1909  
  1910  s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1911  (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  1912  (void) _csscal (n_, &s_, z_, &_k1);
  1913  ek_ = CMPLXF (s_, 0.0) * ek_;
  1914  _l90:;
  1915  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1916  (zdum__1_));}) != 0.0e0) {
  1917  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  1918  }
  1919  
  1920  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  1921  (zdum__1_));}) == 0.0e0) {
  1922  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  1923  }
  1924  
  1925  goto _l110;
  1926  _l100:;
  1927  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
  1928  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  1929  bk_ = z_[k_ - 1] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
  1930  bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  1931  denom_ = ak_ * akm1_ - 1.0e0;
  1932  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
  1933  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
  1934  _l110:;
  1935  k_ = k_ - ks_;
  1936  goto _l60;
  1937  _l120:;
  1938  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  1939  (void) _csscal (n_, &s_, z_, &_k1);
  1940  k_ = 1;
  1941  _l130:;
  1942  if (k_ > (*n_)) {
  1943    goto _l160;
  1944  }
  1945  
  1946  ks_ = 1;
  1947  if (kpvt_[k_ - 1] < 0) {
  1948    ks_ = 2;
  1949  }
  1950  
  1951  if (k_ == 1) {
  1952    goto _l150;
  1953  }
  1954  
  1955  z_[k_ - 1] = z_[k_ - 1] + _cdotc (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  1956  if (ks_ == 2) {
  1957    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
  1958    &_k1);
  1959  }
  1960  
  1961  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  1962  if (kp_ == k_) {
  1963    goto _l140;
  1964  }
  1965  
  1966  t_ = z_[k_ - 1];
  1967  z_[k_ - 1] = z_[kp_ - 1];
  1968  z_[kp_ - 1] = t_;
  1969  _l140:;
  1970  _l150:;
  1971  k_ = k_ + ks_;
  1972  goto _l130;
  1973  _l160:;
  1974  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  1975  (void) _csscal (n_, &s_, z_, &_k1);
  1976  ynorm_ = 1.0;
  1977  k_ = (*n_);
  1978  _l170:;
  1979  if (k_ == 0) {
  1980    goto _l230;
  1981  }
  1982  
  1983  ks_ = 1;
  1984  if (kpvt_[k_ - 1] < 0) {
  1985    ks_ = 2;
  1986  }
  1987  
  1988  if (k_ == ks_) {
  1989    goto _l190;
  1990  }
  1991  
  1992  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  1993  kps_ = k_ + 1 - ks_;
  1994  if (kp_ == kps_) {
  1995    goto _l180;
  1996  }
  1997  t_ = z_[kps_ - 1];
  1998  z_[kps_ - 1] = z_[kp_ - 1];
  1999  z_[kp_ - 1] = t_;
  2000  _l180:;
  2001  (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  2002  if (ks_ == 2) {
  2003    (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
  2004  }
  2005  
  2006  _l190:;
  2007  if (ks_ == 2) {
  2008    goto _l210;
  2009  }
  2010  
  2011  if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  2012  zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  2013  goto _l200;
  2014  }
  2015  
  2016  s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  2017  (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  2018  (void) _csscal (n_, &s_, z_, &_k1);
  2019  ynorm_ = s_ * ynorm_;
  2020  _l200:;
  2021  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  2022  (zdum__1_));}) != 0.0e0) {
  2023  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  2024  }
  2025  
  2026  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  2027  (zdum__1_));}) == 0.0e0) {
  2028  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  2029  }
  2030  
  2031  goto _l220;
  2032  _l210:;
  2033  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
  2034  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  2035  bk_ = z_[k_ - 1] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
  2036  bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  2037  denom_ = ak_ * akm1_ - 1.0e0;
  2038  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
  2039  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
  2040  _l220:;
  2041  k_ = k_ - ks_;
  2042  goto _l170;
  2043  _l230:;
  2044  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  2045  (void) _csscal (n_, &s_, z_, &_k1);
  2046  ynorm_ = s_ * ynorm_;
  2047  k_ = 1;
  2048  _l240:;
  2049  if (k_ > (*n_)) {
  2050    goto _l270;
  2051  }
  2052  ks_ = 1;
  2053  if (kpvt_[k_ - 1] < 0) {
  2054    ks_ = 2;
  2055  }
  2056  
  2057  if (k_ == 1) {
  2058    goto _l260;
  2059  }
  2060  
  2061  z_[k_ - 1] = z_[k_ - 1] + _cdotc (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  2062  if (ks_ == 2) {
  2063    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
  2064    &_k1);
  2065  }
  2066  
  2067  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  2068  if (kp_ == k_) {
  2069    goto _l250;
  2070  }
  2071  
  2072  t_ = z_[k_ - 1];
  2073  z_[k_ - 1] = z_[kp_ - 1];
  2074  z_[kp_ - 1] = t_;
  2075  _l250:;
  2076  _l260:;
  2077  k_ = k_ + ks_;
  2078  goto _l240;
  2079  _l270:;
  2080  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  2081  (void) _csscal (n_, &s_, z_, &_k1);
  2082  ynorm_ = s_ * ynorm_;
  2083  if (anorm_ != 0.0e0) {
  2084    (*rcond_) = ynorm_ / anorm_;
  2085  }
  2086  
  2087  if (anorm_ == 0.0e0) {
  2088    (*rcond_) = 0.0;
  2089  }
  2090  
  2091  __calls[13].calls++;
  2092  return 0;
  2093  }
  2094  
  2095  int_4 _chidi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ det_, int_4 _p_ inert_, 
  2096  complex_8 _p_ work_, int_4 _p_ job_)
  2097  { // ** body not listed **
  2266  }
  2267  
  2268  int_4 _chifa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
  2269  { // ** body not listed **
  2290  }
  2291  
  2292  goto _l200;
  2293  _l20:;
  2294  km1_ = k_ - 1;
  2295  absakk_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  2296  (cimagf (zdum__1_));});
  2297  imax_ = _icamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
  2298  colmax_ = ({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  2299  (cimagf (zdum__1_));});
  2300  if (absakk_ < alpha_ * colmax_) {
  2301    goto _l30;
  2302  }
  2303  
  2304  kstep_ = 1;
  2305  swap_ = FALSE;
  2306  goto _l90;
  2307  _l30:;
  2308  rowmax_ = 0.0;
  2309  imaxp1_ = imax_ + 1;
  2310  for (j_ = imaxp1_; j_ <= k_; (j_)++) {
  2311    rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs ((real_4) (crealf 
  2312    (zdum__1_))) + _abs (cimagf (zdum__1_));}));
  2313  }
  2314  
  2315  if (imax_ == 1) {
  2316    goto _l50;
  2317  }
  2318  
  2319  jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
  2320  rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf 
  2321  (zdum__1_))) + _abs (cimagf (zdum__1_));}));
  2322  _l50:;
  2323  if (({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  2324  (cimagf (zdum__1_));}) < alpha_ * rowmax_) {
  2325  goto _l60;
  2326  }
  2327  
  2328  kstep_ = 1;
  2329  swap_ = TRUE;
  2330  goto _l80;
  2331  _l60:;
  2332  if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
  2333    goto _l70;
  2334  }
  2335  
  2336  kstep_ = 1;
  2337  swap_ = FALSE;
  2338  goto _l80;
  2339  _l70:;
  2340  kstep_ = 2;
  2341  swap_ = imax_ != km1_;
  2342  _l80:;
  2343  _l90:;
  2344  if (_max (absakk_, colmax_) != 0.0e0) {
  2345    goto _l100;
  2346  }
  2347  
  2348  kpvt_[k_ - 1] = k_;
  2349  (*info_) = k_;
  2350  goto _l190;
  2351  _l100:;
  2352  if (kstep_ == 2) {
  2353    goto _l140;
  2354  }
  2355  
  2356  if (! (swap_)) {
  2357    goto _l120;
  2358  }
  2359  
  2360  (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
  2361  for (jj_ = imax_; jj_ <= k_; (jj_)++) {
  2362    j_ = k_ + imax_ - jj_;
  2363    t_ = conjf (a_[j_ - 1 + ((*lda_)) * ((k_ - 1))]);
  2364    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = conjf (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
  2365    a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
  2366  }
  2367  
  2368  _l120:;
  2369  for (jj_ = 1; jj_ <= km1_; (jj_)++) {
  2370    j_ = k_ - jj_;
  2371    mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  2372    t_ = conjf (mulk_);
  2373    (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
  2374    a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLXF ((real_4) (crealf (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))])), 0.0);
  2375    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
  2376  }
  2377  
  2378  kpvt_[k_ - 1] = k_;
  2379  if (swap_) {
  2380    kpvt_[k_ - 1] = imax_;
  2381  }
  2382  
  2383  goto _l190;
  2384  _l140:;
  2385  if (! (swap_)) {
  2386    goto _l160;
  2387  }
  2388  
  2389  (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
  2390  for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
  2391    j_ = km1_ + imax_ - jj_;
  2392    t_ = conjf (a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))]);
  2393    a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = conjf (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
  2394    a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
  2395  }
  2396  
  2397  t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  2398  a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
  2399  a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
  2400  _l160:;
  2401  km2_ = k_ - 2;
  2402  if (km2_ == 0) {
  2403    goto _l180;
  2404  }
  2405  
  2406  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  2407  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
  2408  denom_ = 1.0e0 - ak_ * akm1_;
  2409  for (jj_ = 1; jj_ <= km2_; (jj_)++) {
  2410    j_ = km1_ - jj_;
  2411    bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  2412    bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
  2413    mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
  2414    mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
  2415    t_ = conjf (mulk_);
  2416    (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
  2417    t_ = conjf (mulkm1_);
  2418    (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
  2419    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
  2420    a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
  2421    a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLXF ((real_4) (crealf (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))])), 0.0);
  2422  }
  2423  
  2424  _l180:;
  2425  kpvt_[k_ - 1] = 1 - k_;
  2426  if (swap_) {
  2427    kpvt_[k_ - 1] = -imax_;
  2428  }
  2429  
  2430  kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
  2431  _l190:;
  2432  k_ = k_ - kstep_;
  2433  goto _l10;
  2434  _l200:;
  2435  __calls[15].calls++;
  2436  return 0;
  2437  }
  2438  
  2439  int_4 _chisl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
  2440  { // ** body not listed **
  2540  }
  2541  
  2542  int_4 _chpco (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
  2543  { // ** body not listed **
  2600  }
  2601  
  2602  z_[k_ - 1] = z_[k_ - 1] + ek_;
  2603  (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
  2604  if (ks_ == 1) {
  2605    goto _l80;
  2606  }
  2607  
  2608  if (({complex_8 zdum__1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) 
  2609  { // ** body not listed **
  2613  }
  2614  
  2615  z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
  2616  (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
  2617  _l80:;
  2618  if (ks_ == 2) {
  2619    goto _l100;
  2620  }
  2621  
  2622  if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  2623  zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  2624  goto _l90;
  2625  }
  2626  
  2627  s_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) / 
  2628  ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  2629  (void) _csscal (n_, &s_, z_, &_k1);
  2630  ek_ = CMPLXF (s_, 0.0) * ek_;
  2631  _l90:;
  2632  if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) {
  2633  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
  2634  }
  2635  
  2636  if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
  2637  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  2638  }
  2639  
  2640  goto _l110;
  2641  _l100:;
  2642  km1k_ = ik_ + k_ - 1;
  2643  km1km1_ = ikm1_ + k_ - 1;
  2644  ak_ = ap_[kk_ - 1] / conjf (ap_[km1k_ - 1]);
  2645  akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
  2646  bk_ = z_[k_ - 1] / conjf (ap_[km1k_ - 1]);
  2647  bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
  2648  denom_ = ak_ * akm1_ - 1.0e0;
  2649  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
  2650  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
  2651  _l110:;
  2652  k_ = k_ - ks_;
  2653  ik_ = ik_ - k_;
  2654  if (ks_ == 2) {
  2655    ik_ = ik_ - (k_ + 1);
  2656  }
  2657  
  2658  goto _l60;
  2659  _l120:;
  2660  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  2661  (void) _csscal (n_, &s_, z_, &_k1);
  2662  k_ = 1;
  2663  ik_ = 0;
  2664  _l130:;
  2665  if (k_ > (*n_)) {
  2666    goto _l160;
  2667  }
  2668  
  2669  ks_ = 1;
  2670  if (kpvt_[k_ - 1] < 0) {
  2671    ks_ = 2;
  2672  }
  2673  
  2674  if (k_ == 1) {
  2675    goto _l150;
  2676  }
  2677  
  2678  z_[k_ - 1] = z_[k_ - 1] + _cdotc (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
  2679  ikp1_ = ik_ + k_;
  2680  if (ks_ == 2) {
  2681    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
  2682  }
  2683  
  2684  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  2685  if (kp_ == k_) {
  2686    goto _l140;
  2687  }
  2688  
  2689  t_ = z_[k_ - 1];
  2690  z_[k_ - 1] = z_[kp_ - 1];
  2691  z_[kp_ - 1] = t_;
  2692  _l140:;
  2693  _l150:;
  2694  ik_ = ik_ + k_;
  2695  if (ks_ == 2) {
  2696    ik_ = ik_ + (k_ + 1);
  2697  }
  2698  
  2699  k_ = k_ + ks_;
  2700  goto _l130;
  2701  _l160:;
  2702  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  2703  (void) _csscal (n_, &s_, z_, &_k1);
  2704  ynorm_ = 1.0;
  2705  k_ = (*n_);
  2706  ik_ = (*n_) * ((*n_) - 1) / 2;
  2707  _l170:;
  2708  if (k_ == 0) {
  2709    goto _l230;
  2710  }
  2711  
  2712  kk_ = ik_ + k_;
  2713  ikm1_ = ik_ - (k_ - 1);
  2714  ks_ = 1;
  2715  if (kpvt_[k_ - 1] < 0) {
  2716    ks_ = 2;
  2717  }
  2718  
  2719  if (k_ == ks_) {
  2720    goto _l190;
  2721  }
  2722  
  2723  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  2724  kps_ = k_ + 1 - ks_;
  2725  if (kp_ == kps_) {
  2726    goto _l180;
  2727  }
  2728  
  2729  t_ = z_[kps_ - 1];
  2730  z_[kps_ - 1] = z_[kp_ - 1];
  2731  z_[kp_ - 1] = t_;
  2732  _l180:;
  2733  (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
  2734  if (ks_ == 2) {
  2735    (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
  2736  }
  2737  
  2738  _l190:;
  2739  if (ks_ == 2) {
  2740    goto _l210;
  2741  }
  2742  
  2743  if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  2744  zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  2745  goto _l200;
  2746  }
  2747  
  2748  s_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) / 
  2749  ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  2750  (void) _csscal (n_, &s_, z_, &_k1);
  2751  ynorm_ = s_ * ynorm_;
  2752  _l200:;
  2753  if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) {
  2754  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
  2755  }
  2756  
  2757  if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
  2758  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  2759  }
  2760  
  2761  goto _l220;
  2762  _l210:;
  2763  km1k_ = ik_ + k_ - 1;
  2764  km1km1_ = ikm1_ + k_ - 1;
  2765  ak_ = ap_[kk_ - 1] / conjf (ap_[km1k_ - 1]);
  2766  akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
  2767  bk_ = z_[k_ - 1] / conjf (ap_[km1k_ - 1]);
  2768  bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
  2769  denom_ = ak_ * akm1_ - 1.0e0;
  2770  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
  2771  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
  2772  _l220:;
  2773  k_ = k_ - ks_;
  2774  ik_ = ik_ - k_;
  2775  if (ks_ == 2) {
  2776    ik_ = ik_ - (k_ + 1);
  2777  }
  2778  
  2779  goto _l170;
  2780  _l230:;
  2781  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  2782  (void) _csscal (n_, &s_, z_, &_k1);
  2783  ynorm_ = s_ * ynorm_;
  2784  k_ = 1;
  2785  ik_ = 0;
  2786  _l240:;
  2787  if (k_ > (*n_)) {
  2788    goto _l270;
  2789  }
  2790  
  2791  ks_ = 1;
  2792  if (kpvt_[k_ - 1] < 0) {
  2793    ks_ = 2;
  2794  }
  2795  
  2796  if (k_ == 1) {
  2797    goto _l260;
  2798  }
  2799  
  2800  z_[k_ - 1] = z_[k_ - 1] + _cdotc (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
  2801  ikp1_ = ik_ + k_;
  2802  if (ks_ == 2) {
  2803    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
  2804  }
  2805  
  2806  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  2807  if (kp_ == k_) {
  2808    goto _l250;
  2809  }
  2810  
  2811  t_ = z_[k_ - 1];
  2812  z_[k_ - 1] = z_[kp_ - 1];
  2813  z_[kp_ - 1] = t_;
  2814  _l250:;
  2815  _l260:;
  2816  ik_ = ik_ + k_;
  2817  if (ks_ == 2) {
  2818    ik_ = ik_ + (k_ + 1);
  2819  }
  2820  
  2821  k_ = k_ + ks_;
  2822  goto _l240;
  2823  _l270:;
  2824  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  2825  (void) _csscal (n_, &s_, z_, &_k1);
  2826  ynorm_ = s_ * ynorm_;
  2827  if (anorm_ != 0.0e0) {
  2828    (*rcond_) = ynorm_ / anorm_;
  2829  }
  2830  
  2831  if (anorm_ == 0.0e0) {
  2832    (*rcond_) = 0.0;
  2833  }
  2834  
  2835  __calls[17].calls++;
  2836  return 0;
  2837  }
  2838  
  2839  int_4 _chpdi (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ det_, int_4 _p_ inert_, complex_8 _p_ work_, 
  2840  int_4 _p_ job_)
  2841  { // ** body not listed **
  3031  }
  3032  
  3033  int_4 _chpfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
  3034  { // ** body not listed **
  3056  }
  3057  
  3058  goto _l200;
  3059  _l20:;
  3060  km1_ = k_ - 1;
  3061  kk_ = ik_ + k_;
  3062  absakk_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3063  imax_ = _icamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
  3064  imk_ = ik_ + imax_;
  3065  colmax_ = ({complex_8 zdum__1_ = ap_[imk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3066  if (absakk_ < alpha_ * colmax_) {
  3067    goto _l30;
  3068  }
  3069  
  3070  kstep_ = 1;
  3071  swap_ = FALSE;
  3072  goto _l90;
  3073  _l30:;
  3074  rowmax_ = 0.0;
  3075  imaxp1_ = imax_ + 1;
  3076  im_ = imax_ * (imax_ - 1) / 2;
  3077  imj_ = im_ + 2 * imax_;
  3078  for (j_ = imaxp1_; j_ <= k_; (j_)++) {
  3079    rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = ap_[imj_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  3080    (zdum__1_));}));
  3081    imj_ = imj_ + j_;
  3082  }
  3083  
  3084  if (imax_ == 1) {
  3085    goto _l50;
  3086  }
  3087  
  3088  jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
  3089  jmim_ = jmax_ + im_;
  3090  rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = ap_[jmim_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  3091  (zdum__1_));}));
  3092  _l50:;
  3093  imim_ = imax_ + im_;
  3094  if (({complex_8 zdum__1_ = ap_[imim_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < alpha_ * 
  3095  rowmax_) {
  3096  goto _l60;
  3097  }
  3098  
  3099  kstep_ = 1;
  3100  swap_ = TRUE;
  3101  goto _l80;
  3102  _l60:;
  3103  if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
  3104    goto _l70;
  3105  }
  3106  
  3107  kstep_ = 1;
  3108  swap_ = FALSE;
  3109  goto _l80;
  3110  _l70:;
  3111  kstep_ = 2;
  3112  swap_ = imax_ != km1_;
  3113  _l80:;
  3114  _l90:;
  3115  if (_max (absakk_, colmax_) != 0.0e0) {
  3116    goto _l100;
  3117  }
  3118  
  3119  kpvt_[k_ - 1] = k_;
  3120  (*info_) = k_;
  3121  goto _l190;
  3122  _l100:;
  3123  if (kstep_ == 2) {
  3124    goto _l140;
  3125  }
  3126  
  3127  if (! (swap_)) {
  3128    goto _l120;
  3129  }
  3130  
  3131  (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
  3132  imj_ = ik_ + imax_;
  3133  for (jj_ = imax_; jj_ <= k_; (jj_)++) {
  3134    j_ = k_ + imax_ - jj_;
  3135    jk_ = ik_ + j_;
  3136    t_ = conjf (ap_[jk_ - 1]);
  3137    ap_[jk_ - 1] = conjf (ap_[imj_ - 1]);
  3138    ap_[imj_ - 1] = t_;
  3139    imj_ = imj_ - (j_ - 1);
  3140  }
  3141  
  3142  _l120:;
  3143  ij_ = ik_ - (k_ - 1);
  3144  for (jj_ = 1; jj_ <= km1_; (jj_)++) {
  3145    j_ = k_ - jj_;
  3146    jk_ = ik_ + j_;
  3147    mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
  3148    t_ = conjf (mulk_);
  3149    (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
  3150    ijj_ = ij_ + j_;
  3151    ap_[ijj_ - 1] = CMPLXF ((real_4) (crealf (ap_[ijj_ - 1])), 0.0);
  3152    ap_[jk_ - 1] = mulk_;
  3153    ij_ = ij_ - (j_ - 1);
  3154  }
  3155  
  3156  kpvt_[k_ - 1] = k_;
  3157  if (swap_) {
  3158    kpvt_[k_ - 1] = imax_;
  3159  }
  3160  
  3161  goto _l190;
  3162  _l140:;
  3163  km1k_ = ik_ + k_ - 1;
  3164  ikm1_ = ik_ - (k_ - 1);
  3165  if (! (swap_)) {
  3166    goto _l160;
  3167  }
  3168  
  3169  (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
  3170  imj_ = ikm1_ + imax_;
  3171  for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
  3172    j_ = km1_ + imax_ - jj_;
  3173    jkm1_ = ikm1_ + j_;
  3174    t_ = conjf (ap_[jkm1_ - 1]);
  3175    ap_[jkm1_ - 1] = conjf (ap_[imj_ - 1]);
  3176    ap_[imj_ - 1] = t_;
  3177    imj_ = imj_ - (j_ - 1);
  3178  }
  3179  
  3180  t_ = ap_[km1k_ - 1];
  3181  ap_[km1k_ - 1] = ap_[imk_ - 1];
  3182  ap_[imk_ - 1] = t_;
  3183  _l160:;
  3184  km2_ = k_ - 2;
  3185  if (km2_ == 0) {
  3186    goto _l180;
  3187  }
  3188  
  3189  ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
  3190  km1km1_ = ikm1_ + k_ - 1;
  3191  akm1_ = ap_[km1km1_ - 1] / conjf (ap_[km1k_ - 1]);
  3192  denom_ = 1.0e0 - ak_ * akm1_;
  3193  ij_ = ik_ - (k_ - 1) - (k_ - 2);
  3194  for (jj_ = 1; jj_ <= km2_; (jj_)++) {
  3195    j_ = km1_ - jj_;
  3196    jk_ = ik_ + j_;
  3197    bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
  3198    jkm1_ = ikm1_ + j_;
  3199    bkm1_ = ap_[jkm1_ - 1] / conjf (ap_[km1k_ - 1]);
  3200    mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
  3201    mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
  3202    t_ = conjf (mulk_);
  3203    (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
  3204    t_ = conjf (mulkm1_);
  3205    (void) _caxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
  3206    ap_[jk_ - 1] = mulk_;
  3207    ap_[jkm1_ - 1] = mulkm1_;
  3208    ijj_ = ij_ + j_;
  3209    ap_[ijj_ - 1] = CMPLXF ((real_4) (crealf (ap_[ijj_ - 1])), 0.0);
  3210    ij_ = ij_ - (j_ - 1);
  3211  }
  3212  
  3213  _l180:;
  3214  kpvt_[k_ - 1] = 1 - k_;
  3215  if (swap_) {
  3216    kpvt_[k_ - 1] = -imax_;
  3217  }
  3218  
  3219  kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
  3220  _l190:;
  3221  ik_ = ik_ - (k_ - 1);
  3222  if (kstep_ == 2) {
  3223    ik_ = ik_ - (k_ - 2);
  3224  }
  3225  
  3226  k_ = k_ - kstep_;
  3227  goto _l10;
  3228  _l200:;
  3229  __calls[19].calls++;
  3230  return 0;
  3231  }
  3232  
  3233  int_4 _chpsl (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
  3234  { // ** body not listed **
  3345  }
  3346  
  3347  int_4 _cpbco (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ rcond_, complex_8 _p_ z_, 
  3348  int_4 _p_ info_)
  3349  { // ** body not listed **
  3391  }
  3392  
  3393  s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs 
  3394  ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3395  (void) _csscal (n_, &s_, z_, &_k1);
  3396  ek_ = CMPLXF (s_, 0.0) * ek_;
  3397  _l60:;
  3398  wk_ = ek_ - z_[k_ - 1];
  3399  wkm_ = -ek_ - z_[k_ - 1];
  3400  s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3401  sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3402  wk_ = wk_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
  3403  wkm_ = wkm_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
  3404  kp1_ = k_ + 1;
  3405  j2_ = _min (k_ + (*m_), (*n_));
  3406  i_ = (*m_) + 1;
  3407  if (kp1_ > j2_) {
  3408    goto _l100;
  3409  }
  3410  
  3411  for (j_ = kp1_; j_ <= j2_; (j_)++) {
  3412    i_ = i_ - 1;
  3413    sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4) 
  3414    (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3415    z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
  3416    s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3417  }
  3418  
  3419  if (s_ >= sm_) {
  3420    goto _l90;
  3421  }
  3422  
  3423  t_ = wkm_ - wk_;
  3424  wk_ = wkm_;
  3425  i_ = (*m_) + 1;
  3426  for (j_ = kp1_; j_ <= j2_; (j_)++) {
  3427    i_ = i_ - 1;
  3428    z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
  3429  }
  3430  
  3431  _l90:;
  3432  _l100:;
  3433  z_[k_ - 1] = wk_;
  3434  }
  3435  
  3436  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  3437  (void) _csscal (n_, &s_, z_, &_k1);
  3438  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  3439    k_ = (*n_) + 1 - kb_;
  3440    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
  3441    (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]))) {
  3442    goto _l120;
  3443  }
  3444  
  3445  s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs 
  3446  ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3447  (void) _csscal (n_, &s_, z_, &_k1);
  3448  _l120:;
  3449  z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
  3450  lm_ = _min (k_ - 1, (*m_));
  3451  la_ = (*m_) + 1 - lm_;
  3452  lb_ = k_ - lm_;
  3453  t_ = -z_[k_ - 1];
  3454  (void) _caxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
  3455  }
  3456  
  3457  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  3458  (void) _csscal (n_, &s_, z_, &_k1);
  3459  ynorm_ = 1.0;
  3460  for (k_ = 1; k_ <= (*n_); (k_)++) {
  3461    lm_ = _min (k_ - 1, (*m_));
  3462    la_ = (*m_) + 1 - lm_;
  3463    lb_ = k_ - lm_;
  3464    z_[k_ - 1] = z_[k_ - 1] - _cdotc (&lm_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
  3465    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
  3466    (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]))) {
  3467    goto _l140;
  3468  }
  3469  
  3470  s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs 
  3471  ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3472  (void) _csscal (n_, &s_, z_, &_k1);
  3473  ynorm_ = s_ * ynorm_;
  3474  _l140:;
  3475  z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
  3476  }
  3477  
  3478  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  3479  (void) _csscal (n_, &s_, z_, &_k1);
  3480  ynorm_ = s_ * ynorm_;
  3481  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  3482    k_ = (*n_) + 1 - kb_;
  3483    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
  3484    (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]))) {
  3485    goto _l160;
  3486  }
  3487  
  3488  s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs 
  3489  ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3490  (void) _csscal (n_, &s_, z_, &_k1);
  3491  ynorm_ = s_ * ynorm_;
  3492  _l160:;
  3493  z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
  3494  lm_ = _min (k_ - 1, (*m_));
  3495  la_ = (*m_) + 1 - lm_;
  3496  lb_ = k_ - lm_;
  3497  t_ = -z_[k_ - 1];
  3498  (void) _caxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
  3499  }
  3500  
  3501  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  3502  (void) _csscal (n_, &s_, z_, &_k1);
  3503  ynorm_ = s_ * ynorm_;
  3504  if (anorm_ != 0.0e0) {
  3505    (*rcond_) = ynorm_ / anorm_;
  3506  }
  3507  
  3508  if (anorm_ == 0.0e0) {
  3509    (*rcond_) = 0.0;
  3510  }
  3511  
  3512  _l180:;
  3513  __calls[21].calls++;
  3514  return 0;
  3515  }
  3516  
  3517  int_4 _cpbdi (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ det_)
  3518  { // ** body not listed **
  3550  }
  3551  
  3552  int_4 _cpbfa (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
  3553  { // ** body not listed **
  3588  }
  3589  
  3590  int_4 _cpbsl (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, complex_8 _p_ b_)
  3591  { // ** body not listed **
  3613  }
  3614  
  3615  int_4 _cpoco (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_ info_)
  3616  { // ** body not listed **
  3656  }
  3657  
  3658  s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) 
  3659  (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3660  (void) _csscal (n_, &s_, z_, &_k1);
  3661  ek_ = CMPLXF (s_, 0.0) * ek_;
  3662  _l60:;
  3663  wk_ = ek_ - z_[k_ - 1];
  3664  wkm_ = -ek_ - z_[k_ - 1];
  3665  s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3666  sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3667  wk_ = wk_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  3668  wkm_ = wkm_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  3669  kp1_ = k_ + 1;
  3670  if (kp1_ > (*n_)) {
  3671    goto _l100;
  3672  }
  3673  
  3674  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
  3675    sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4) 
  3676    (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3677    z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
  3678    s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3679  }
  3680  
  3681  if (s_ >= sm_) {
  3682    goto _l90;
  3683  }
  3684  
  3685  t_ = wkm_ - wk_;
  3686  wk_ = wkm_;
  3687  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
  3688    z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
  3689  }
  3690  
  3691  _l90:;
  3692  _l100:;
  3693  z_[k_ - 1] = wk_;
  3694  }
  3695  
  3696  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  3697  (void) _csscal (n_, &s_, z_, &_k1);
  3698  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  3699    k_ = (*n_) + 1 - kb_;
  3700    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
  3701    (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]))) {
  3702    goto _l120;
  3703  }
  3704  
  3705  s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) 
  3706  (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3707  (void) _csscal (n_, &s_, z_, &_k1);
  3708  _l120:;
  3709  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  3710  t_ = -z_[k_ - 1];
  3711  (void) _caxpy (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  3712  }
  3713  
  3714  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  3715  (void) _csscal (n_, &s_, z_, &_k1);
  3716  ynorm_ = 1.0;
  3717  for (k_ = 1; k_ <= (*n_); (k_)++) {
  3718    z_[k_ - 1] = z_[k_ - 1] - _cdotc (($1_ = k_ - 1, &$1_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  3719    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
  3720    (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]))) {
  3721    goto _l140;
  3722  }
  3723  s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) 
  3724  (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3725  (void) _csscal (n_, &s_, z_, &_k1);
  3726  ynorm_ = s_ * ynorm_;
  3727  _l140:;
  3728  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  3729  }
  3730  
  3731  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  3732  (void) _csscal (n_, &s_, z_, &_k1);
  3733  ynorm_ = s_ * ynorm_;
  3734  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  3735    k_ = (*n_) + 1 - kb_;
  3736    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
  3737    (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]))) {
  3738    goto _l160;
  3739  }
  3740  
  3741  s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) 
  3742  (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3743  (void) _csscal (n_, &s_, z_, &_k1);
  3744  ynorm_ = s_ * ynorm_;
  3745  _l160:;
  3746  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  3747  t_ = -z_[k_ - 1];
  3748  (void) _caxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  3749  }
  3750  
  3751  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  3752  (void) _csscal (n_, &s_, z_, &_k1);
  3753  ynorm_ = s_ * ynorm_;
  3754  if (anorm_ != 0.0e0) {
  3755    (*rcond_) = ynorm_ / anorm_;
  3756  }
  3757  
  3758  if (anorm_ == 0.0e0) {
  3759    (*rcond_) = 0.0;
  3760  }
  3761  
  3762  _l180:;
  3763  __calls[25].calls++;
  3764  return 0;
  3765  }
  3766  
  3767  int_4 _cpodi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
  3768  { // ** body not listed **
  3838  }
  3839  
  3840  int_4 _cpofa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
  3841  { // ** body not listed **
  3872  }
  3873  
  3874  int_4 _cposl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ b_)
  3875  { // ** body not listed **
  3892  }
  3893  
  3894  int_4 _cppco (complex_8 _p_ ap_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_ info_)
  3895  { // ** body not listed **
  3941  }
  3942  
  3943  s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + 
  3944  _abs (cimagf (zdum__1_));});
  3945  (void) _csscal (n_, &s_, z_, &_k1);
  3946  ek_ = CMPLXF (s_, 0.0) * ek_;
  3947  _l60:;
  3948  wk_ = ek_ - z_[k_ - 1];
  3949  wkm_ = -ek_ - z_[k_ - 1];
  3950  s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3951  sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3952  wk_ = wk_ / ap_[kk_ - 1];
  3953  wkm_ = wkm_ / ap_[kk_ - 1];
  3954  kp1_ = k_ + 1;
  3955  kj_ = kk_ + k_;
  3956  if (kp1_ > (*n_)) {
  3957    goto _l100;
  3958  }
  3959  
  3960  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
  3961    sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (ap_[kj_ - 1]); _abs ((real_4) (crealf (zdum__1_))) + _abs 
  3962    (cimagf (zdum__1_));});
  3963    z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (ap_[kj_ - 1]);
  3964    s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  3965    kj_ = kj_ + j_;
  3966  }
  3967  
  3968  if (s_ >= sm_) {
  3969    goto _l90;
  3970  }
  3971  
  3972  t_ = wkm_ - wk_;
  3973  wk_ = wkm_;
  3974  kj_ = kk_ + k_;
  3975  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
  3976    z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (ap_[kj_ - 1]);
  3977    kj_ = kj_ + j_;
  3978  }
  3979  
  3980  _l90:;
  3981  _l100:;
  3982  z_[k_ - 1] = wk_;
  3983  }
  3984  
  3985  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  3986  (void) _csscal (n_, &s_, z_, &_k1);
  3987  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  3988    k_ = (*n_) + 1 - kb_;
  3989    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
  3990    (crealf (ap_[kk_ - 1]))) {
  3991    goto _l120;
  3992  }
  3993  
  3994  s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  3995  (cimagf (zdum__1_));});
  3996  (void) _csscal (n_, &s_, z_, &_k1);
  3997  _l120:;
  3998  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
  3999  kk_ = kk_ - k_;
  4000  t_ = -z_[k_ - 1];
  4001  (void) _caxpy (($0_ = k_ - 1, &$0_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
  4002  }
  4003  
  4004  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  4005  (void) _csscal (n_, &s_, z_, &_k1);
  4006  ynorm_ = 1.0;
  4007  for (k_ = 1; k_ <= (*n_); (k_)++) {
  4008    z_[k_ - 1] = z_[k_ - 1] - _cdotc (($1_ = k_ - 1, &$1_), &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
  4009    kk_ = kk_ + k_;
  4010    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
  4011    (crealf (ap_[kk_ - 1]))) {
  4012    goto _l140;
  4013  }
  4014  
  4015  s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  4016  (cimagf (zdum__1_));});
  4017  (void) _csscal (n_, &s_, z_, &_k1);
  4018  ynorm_ = s_ * ynorm_;
  4019  _l140:;
  4020  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
  4021  }
  4022  
  4023  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  4024  (void) _csscal (n_, &s_, z_, &_k1);
  4025  ynorm_ = s_ * ynorm_;
  4026  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  4027    k_ = (*n_) + 1 - kb_;
  4028    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
  4029    (crealf (ap_[kk_ - 1]))) {
  4030    goto _l160;
  4031  }
  4032  
  4033  s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  4034  (cimagf (zdum__1_));});
  4035  (void) _csscal (n_, &s_, z_, &_k1);
  4036  ynorm_ = s_ * ynorm_;
  4037  _l160:;
  4038  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
  4039  kk_ = kk_ - k_;
  4040  t_ = -z_[k_ - 1];
  4041  (void) _caxpy (($2_ = k_ - 1, &$2_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
  4042  }
  4043  
  4044  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  4045  (void) _csscal (n_, &s_, z_, &_k1);
  4046  ynorm_ = s_ * ynorm_;
  4047  if (anorm_ != 0.0e0) {
  4048    (*rcond_) = ynorm_ / anorm_;
  4049  }
  4050  
  4051  if (anorm_ == 0.0e0) {
  4052    (*rcond_) = 0.0;
  4053  }
  4054  
  4055  _l180:;
  4056  __calls[29].calls++;
  4057  return 0;
  4058  }
  4059  
  4060  int_4 _cppdi (complex_8 _p_ ap_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
  4061  { // ** body not listed **
  4147  }
  4148  
  4149  int_4 _cppfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
  4150  { // ** body not listed **
  4186  }
  4187  
  4188  int_4 _cppsl (complex_8 _p_ ap_, int_4 _p_ n_, complex_8 _p_ b_)
  4189  { // ** body not listed **
  4209  }
  4210  
  4211  int_4 _cptsl (int_4 _p_ n_, complex_8 _p_ d_, complex_8 _p_ e_, complex_8 _p_ b_)
  4212  { // ** body not listed **
  4264  }
  4265  
  4266  int_4 _cqrdc (complex_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_8 _p_ qraux_, int_4 _p_ jpvt_, 
  4267  complex_8 _p_ work_, int_4 _p_ job_)
  4268  { // ** body not listed **
  4366  }
  4367  
  4368  (void) _cscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = CMPLXF (1.0, 0.0) / nrmxl_, &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 
  4369  1))], &_k1);
  4370  x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
  4371  lp1_ = l_ + 1;
  4372  if ((*p_) < lp1_) {
  4373    goto _l170;
  4374  }
  4375  
  4376  for (j_ = lp1_; j_ <= (*p_); (j_)++) {
  4377    t_ = -_cdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ - 
  4378    1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
  4379    (void) _caxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * 
  4380    ((j_ - 1))], &_k1);
  4381    if (j_ < pl_ || j_ > pu_) {
  4382      goto _l150;
  4383    }
  4384    if (({complex_8 zdum__1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) 
  4385    {
  4386    goto _l150;
  4387  }
  4388  
  4389  tt_ = 1.0e0 - ($5_ = (cabsf (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]) / (real_4) (crealf (qraux_[j_ - 1]))), $5_ * $5_);
  4390  tt_ = _max (tt_, 0.0);
  4391  t_ = CMPLXF (tt_, 0.0);
  4392  tt_ = 1.0e0 + 0.05e0 * tt_ * ($6_ = ((real_4) (crealf (qraux_[j_ - 1])) / (real_4) (crealf (work_[j_ - 1]))), $6_ * 
  4393  $6_);
  4394  if (tt_ == 1.0e0) {
  4395    goto _l130;
  4396  }
  4397  
  4398  qraux_[j_ - 1] = qraux_[j_ - 1] * csqrtf (t_);
  4399  goto _l140;
  4400  _l130:;
  4401  qraux_[j_ - 1] = CMPLXF (_scnrm2 (($7_ = (*n_) - l_, &$7_), &x_[l_ + 1 - 1 + ((*ldx_)) * ((j_ - 1))], &_k1), 0.0);
  4402  work_[j_ - 1] = qraux_[j_ - 1];
  4403  _l140:;
  4404  _l150:;
  4405  }
  4406  
  4407  _l170:;
  4408  qraux_[l_ - 1] = x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
  4409  x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = -nrmxl_;
  4410  _l180:;
  4411  _l190:;
  4412  }
  4413  
  4414  __calls[34].calls++;
  4415  return 0;
  4416  }
  4417  
  4418  int_4 _cqrsl (complex_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, complex_8 _p_ qraux_, complex_8 _p_ y_, 
  4419  complex_8 _p_ qy_, complex_8 _p_ qty_, complex_8 _p_ b_, complex_8 _p_ rsd_, complex_8 _p_ xb_, int_4 _p_ job_, int_4 
  4420  _p_ info_)
  4421  { // ** body not listed **
  4452  }
  4453  
  4454  (*info_) = 1;
  4455  goto _l20;
  4456  _l10:;
  4457  b_[0] = y_[0] / x_[0 + ((*ldx_)) * ((0))];
  4458  _l20:;
  4459  _l30:;
  4460  if (cr_) {
  4461    rsd_[0] = CMPLXF (0.0, 0.0);
  4462  }
  4463  
  4464  goto _l250;
  4465  _l40:;
  4466  if (cqy_) {
  4467    (void) _ccopy (n_, y_, &_k1, qy_, &_k1);
  4468  }
  4469  
  4470  if (cqty_) {
  4471    (void) _ccopy (n_, y_, &_k1, qty_, &_k1);
  4472  }
  4473  
  4474  if (! (cqy_)) {
  4475    goto _l70;
  4476  }
  4477  
  4478  for (jj_ = 1; jj_ <= ju_; (jj_)++) {
  4479    j_ = ju_ - jj_ + 1;
  4480    if (({complex_8 zdum__1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) 
  4481    {
  4482    goto _l50;
  4483  }
  4484  
  4485  temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
  4486  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
  4487  t_ = -_cdotc (($0_ = (*n_) - j_ + 1, &$0_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1) / x_[j_ - 1 
  4488  + ((*ldx_)) * ((j_ - 1))];
  4489  (void) _caxpy (($1_ = (*n_) - j_ + 1, &$1_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1);
  4490  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
  4491  _l50:;
  4492  }
  4493  
  4494  _l70:;
  4495  if (! (cqty_)) {
  4496    goto _l100;
  4497  }
  4498  
  4499  for (j_ = 1; j_ <= ju_; (j_)++) {
  4500    if (({complex_8 zdum__1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) 
  4501    {
  4502    goto _l80;
  4503  }
  4504  
  4505  temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
  4506  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
  4507  t_ = -_cdotc (($2_ = (*n_) - j_ + 1, &$2_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1) / x_[j_ - 
  4508  1 + ((*ldx_)) * ((j_ - 1))];
  4509  (void) _caxpy (($3_ = (*n_) - j_ + 1, &$3_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1);
  4510  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
  4511  _l80:;
  4512  }
  4513  
  4514  _l100:;
  4515  if (cb_) {
  4516    (void) _ccopy (k_, qty_, &_k1, b_, &_k1);
  4517  }
  4518  
  4519  kp1_ = (*k_) + 1;
  4520  if (cxb_) {
  4521    (void) _ccopy (k_, qty_, &_k1, xb_, &_k1);
  4522  }
  4523  
  4524  if (cr_ && (*k_) < (*n_)) {
  4525    (void) _ccopy (($4_ = (*n_) - (*k_), &$4_), &qty_[kp1_ - 1], &_k1, &rsd_[kp1_ - 1], &_k1);
  4526  }
  4527  
  4528  if (! (cxb_) || kp1_ > (*n_)) {
  4529    goto _l120;
  4530  }
  4531  for (i_ = kp1_; i_ <= (*n_); (i_)++) {
  4532    xb_[i_ - 1] = CMPLXF (0.0, 0.0);
  4533  }
  4534  
  4535  _l120:;
  4536  if (! (cr_)) {
  4537    goto _l140;
  4538  }
  4539  
  4540  for (i_ = 1; i_ <= (*k_); (i_)++) {
  4541    rsd_[i_ - 1] = CMPLXF (0.0, 0.0);
  4542  }
  4543  
  4544  _l140:;
  4545  if (! (cb_)) {
  4546    goto _l190;
  4547  }
  4548  
  4549  for (jj_ = 1; jj_ <= (*k_); (jj_)++) {
  4550    j_ = (*k_) - jj_ + 1;
  4551    if (({complex_8 zdum__1_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  4552    (zdum__1_));}) != 0.0e0) {
  4553    goto _l150;
  4554  }
  4555  
  4556  (*info_) = j_;
  4557  goto _l180;
  4558  _l150:;
  4559  b_[j_ - 1] = b_[j_ - 1] / x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
  4560  if (j_ == 1) {
  4561    goto _l160;
  4562  }
  4563  
  4564  t_ = -b_[j_ - 1];
  4565  (void) _caxpy (($5_ = j_ - 1, &$5_), &t_, &x_[0 + ((*ldx_)) * ((j_ - 1))], &_k1, b_, &_k1);
  4566  _l160:;
  4567  }
  4568  
  4569  _l180:;
  4570  _l190:;
  4571  if (! (cr_) && ! (cxb_)) {
  4572    goto _l240;
  4573  }
  4574  
  4575  for (jj_ = 1; jj_ <= ju_; (jj_)++) {
  4576    j_ = ju_ - jj_ + 1;
  4577    if (({complex_8 zdum__1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) 
  4578    {
  4579    goto _l220;
  4580  }
  4581  
  4582  temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
  4583  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
  4584  if (! (cr_)) {
  4585    goto _l200;
  4586  }
  4587  
  4588  t_ = -_cdotc (($6_ = (*n_) - j_ + 1, &$6_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1) / x_[j_ - 
  4589  1 + ((*ldx_)) * ((j_ - 1))];
  4590  (void) _caxpy (($7_ = (*n_) - j_ + 1, &$7_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1);
  4591  _l200:;
  4592  if (! (cxb_)) {
  4593    goto _l210;
  4594  }
  4595  
  4596  t_ = -_cdotc (($8_ = (*n_) - j_ + 1, &$8_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1) / x_[j_ - 1 
  4597  + ((*ldx_)) * ((j_ - 1))];
  4598  (void) _caxpy (($9_ = (*n_) - j_ + 1, &$9_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1);
  4599  _l210:;
  4600  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
  4601  _l220:;
  4602  }
  4603  
  4604  _l240:;
  4605  _l250:;
  4606  __calls[35].calls++;
  4607  return 0;
  4608  }
  4609  
  4610  int_4 _csico (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
  4611  { // ** body not listed **
  4661  }
  4662  
  4663  z_[k_ - 1] = z_[k_ - 1] + ek_;
  4664  (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  4665  if (ks_ == 1) {
  4666    goto _l80;
  4667  }
  4668  
  4669  if (({complex_8 zdum__1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) 
  4670  { // ** body not listed **
  4674  }
  4675  
  4676  z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
  4677  (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
  4678  _l80:;
  4679  if (ks_ == 2) {
  4680    goto _l100;
  4681  }
  4682  
  4683  if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  4684  zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  4685  goto _l90;
  4686  }
  4687  
  4688  s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  4689  (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  4690  (void) _csscal (n_, &s_, z_, &_k1);
  4691  ek_ = CMPLXF (s_, 0.0) * ek_;
  4692  _l90:;
  4693  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  4694  (zdum__1_));}) != 0.0e0) {
  4695  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  4696  }
  4697  
  4698  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  4699  (zdum__1_));}) == 0.0e0) {
  4700  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  4701  }
  4702  
  4703  goto _l110;
  4704  _l100:;
  4705  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  4706  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  4707  bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  4708  bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  4709  denom_ = ak_ * akm1_ - 1.0e0;
  4710  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
  4711  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
  4712  _l110:;
  4713  k_ = k_ - ks_;
  4714  goto _l60;
  4715  _l120:;
  4716  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  4717  (void) _csscal (n_, &s_, z_, &_k1);
  4718  k_ = 1;
  4719  _l130:;
  4720  if (k_ > (*n_)) {
  4721    goto _l160;
  4722  }
  4723  
  4724  ks_ = 1;
  4725  if (kpvt_[k_ - 1] < 0) {
  4726    ks_ = 2;
  4727  }
  4728  
  4729  if (k_ == 1) {
  4730    goto _l150;
  4731  }
  4732  
  4733  z_[k_ - 1] = z_[k_ - 1] + _cdotu (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  4734  if (ks_ == 2) {
  4735    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
  4736    &_k1);
  4737  }
  4738  
  4739  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  4740  if (kp_ == k_) {
  4741    goto _l140;
  4742  }
  4743  
  4744  t_ = z_[k_ - 1];
  4745  z_[k_ - 1] = z_[kp_ - 1];
  4746  z_[kp_ - 1] = t_;
  4747  _l140:;
  4748  _l150:;
  4749  k_ = k_ + ks_;
  4750  goto _l130;
  4751  _l160:;
  4752  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  4753  (void) _csscal (n_, &s_, z_, &_k1);
  4754  ynorm_ = 1.0;
  4755  k_ = (*n_);
  4756  _l170:;
  4757  if (k_ == 0) {
  4758    goto _l230;
  4759  }
  4760  
  4761  ks_ = 1;
  4762  if (kpvt_[k_ - 1] < 0) {
  4763    ks_ = 2;
  4764  }
  4765  
  4766  if (k_ == ks_) {
  4767    goto _l190;
  4768  }
  4769  
  4770  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  4771  kps_ = k_ + 1 - ks_;
  4772  if (kp_ == kps_) {
  4773    goto _l180;
  4774  }
  4775  t_ = z_[kps_ - 1];
  4776  z_[kps_ - 1] = z_[kp_ - 1];
  4777  z_[kp_ - 1] = t_;
  4778  _l180:;
  4779  (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  4780  if (ks_ == 2) {
  4781    (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
  4782  }
  4783  
  4784  _l190:;
  4785  if (ks_ == 2) {
  4786    goto _l210;
  4787  }
  4788  
  4789  if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  4790  zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  4791  goto _l200;
  4792  }
  4793  
  4794  s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  4795  (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  4796  (void) _csscal (n_, &s_, z_, &_k1);
  4797  ynorm_ = s_ * ynorm_;
  4798  _l200:;
  4799  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  4800  (zdum__1_));}) != 0.0e0) {
  4801  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  4802  }
  4803  
  4804  if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  4805  (zdum__1_));}) == 0.0e0) {
  4806  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  4807  }
  4808  
  4809  goto _l220;
  4810  _l210:;
  4811  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  4812  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  4813  bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  4814  bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  4815  denom_ = ak_ * akm1_ - 1.0e0;
  4816  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
  4817  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
  4818  _l220:;
  4819  k_ = k_ - ks_;
  4820  goto _l170;
  4821  _l230:;
  4822  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  4823  (void) _csscal (n_, &s_, z_, &_k1);
  4824  ynorm_ = s_ * ynorm_;
  4825  k_ = 1;
  4826  _l240:;
  4827  if (k_ > (*n_)) {
  4828    goto _l270;
  4829  }
  4830  ks_ = 1;
  4831  if (kpvt_[k_ - 1] < 0) {
  4832    ks_ = 2;
  4833  }
  4834  
  4835  if (k_ == 1) {
  4836    goto _l260;
  4837  }
  4838  
  4839  z_[k_ - 1] = z_[k_ - 1] + _cdotu (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
  4840  if (ks_ == 2) {
  4841    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
  4842    &_k1);
  4843  }
  4844  
  4845  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  4846  if (kp_ == k_) {
  4847    goto _l250;
  4848  }
  4849  
  4850  t_ = z_[k_ - 1];
  4851  z_[k_ - 1] = z_[kp_ - 1];
  4852  z_[kp_ - 1] = t_;
  4853  _l250:;
  4854  _l260:;
  4855  k_ = k_ + ks_;
  4856  goto _l240;
  4857  _l270:;
  4858  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  4859  (void) _csscal (n_, &s_, z_, &_k1);
  4860  ynorm_ = s_ * ynorm_;
  4861  if (anorm_ != 0.0e0) {
  4862    (*rcond_) = ynorm_ / anorm_;
  4863  }
  4864  
  4865  if (anorm_ == 0.0e0) {
  4866    (*rcond_) = 0.0;
  4867  }
  4868  
  4869  __calls[36].calls++;
  4870  return 0;
  4871  }
  4872  
  4873  int_4 _csidi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ det_, complex_8 _p_ work_, 
  4874  int_4 _p_ job_)
  4875  { // ** body not listed **
  4910  }
  4911  
  4912  _l40:;
  4913  if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) >= 1.0e0) {
  4914  goto _l50;
  4915  }
  4916  
  4917  det_[0] = CMPLXF (ten_, 0.0) * det_[0];
  4918  det_[1] = det_[1] - CMPLXF (1.0, 0.0);
  4919  goto _l40;
  4920  _l50:;
  4921  _l60:;
  4922  if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
  4923  goto _l70;
  4924  }
  4925  det_[0] = det_[0] / CMPLXF (ten_, 0.0);
  4926  det_[1] = det_[1] + CMPLXF (1.0, 0.0);
  4927  goto _l60;
  4928  _l70:;
  4929  _l80:;
  4930  }
  4931  
  4932  _l100:;
  4933  if (noinv_) {
  4934    goto _l230;
  4935  }
  4936  
  4937  k_ = 1;
  4938  _l110:;
  4939  if (k_ > (*n_)) {
  4940    goto _l220;
  4941  }
  4942  
  4943  km1_ = k_ - 1;
  4944  if (kpvt_[k_ - 1] < 0) {
  4945    goto _l140;
  4946  }
  4947  
  4948  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  4949  if (km1_ < 1) {
  4950    goto _l130;
  4951  }
  4952  
  4953  (void) _ccopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
  4954  for (j_ = 1; j_ <= km1_; (j_)++) {
  4955    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _cdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
  4956    (void) _caxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 
  4957    1))], &_k1);
  4958  }
  4959  
  4960  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _cdotu (&km1_, work_, &_k1, &a_[0 + 
  4961  ((*lda_)) * ((k_ - 1))], &_k1);
  4962  _l130:;
  4963  kstep_ = 1;
  4964  goto _l180;
  4965  _l140:;
  4966  t_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
  4967  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / t_;
  4968  akp1_ = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
  4969  akkp1_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
  4970  d_ = t_ * (ak_ * akp1_ - CMPLXF (1.0, 0.0));
  4971  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = akp1_ / d_;
  4972  a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = ak_ / d_;
  4973  a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = -akkp1_ / d_;
  4974  if (km1_ < 1) {
  4975    goto _l170;
  4976  }
  4977  
  4978  (void) _ccopy (&km1_, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, work_, &_k1);
  4979  for (j_ = 1; j_ <= km1_; (j_)++) {
  4980    a_[j_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = _cdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
  4981    (void) _caxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ + 
  4982    1 - 1))], &_k1);
  4983  }
  4984  
  4985  a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _cdotu (&km1_, work_, &_k1, 
  4986  &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
  4987  a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _cdotu (&km1_, &a_[0 + ((*lda_)) * 
  4988  ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
  4989  (void) _ccopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
  4990  for (j_ = 1; j_ <= km1_; (j_)++) {
  4991    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _cdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
  4992    (void) _caxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 
  4993    1))], &_k1);
  4994  }
  4995  
  4996  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _cdotu (&km1_, work_, &_k1, &a_[0 + 
  4997  ((*lda_)) * ((k_ - 1))], &_k1);
  4998  _l170:;
  4999  kstep_ = 2;
  5000  _l180:;
  5001  ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
  5002  if (ks_ == k_) {
  5003    goto _l210;
  5004  }
  5005  
  5006  (void) _cswap (&ks_, &a_[0 + ((*lda_)) * ((ks_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
  5007  for (jb_ = ks_; jb_ <= k_; (jb_)++) {
  5008    j_ = k_ + ks_ - jb_;
  5009    temp_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
  5010    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))];
  5011    a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))] = temp_;
  5012  }
  5013  
  5014  if (kstep_ == 1) {
  5015    goto _l200;
  5016  }
  5017  
  5018  temp_ = a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
  5019  a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
  5020  a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = temp_;
  5021  _l200:;
  5022  _l210:;
  5023  k_ = k_ + kstep_;
  5024  goto _l110;
  5025  _l220:;
  5026  _l230:;
  5027  __calls[37].calls++;
  5028  return 0;
  5029  }
  5030  
  5031  int_4 _csifa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
  5032  { // ** body not listed **
  5053  }
  5054  
  5055  goto _l200;
  5056  _l20:;
  5057  km1_ = k_ - 1;
  5058  absakk_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  5059  (cimagf (zdum__1_));});
  5060  imax_ = _icamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
  5061  colmax_ = ({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  5062  (cimagf (zdum__1_));});
  5063  if (absakk_ < alpha_ * colmax_) {
  5064    goto _l30;
  5065  }
  5066  
  5067  kstep_ = 1;
  5068  swap_ = FALSE;
  5069  goto _l90;
  5070  _l30:;
  5071  rowmax_ = 0.0;
  5072  imaxp1_ = imax_ + 1;
  5073  for (j_ = imaxp1_; j_ <= k_; (j_)++) {
  5074    rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs ((real_4) (crealf 
  5075    (zdum__1_))) + _abs (cimagf (zdum__1_));}));
  5076  }
  5077  
  5078  if (imax_ == 1) {
  5079    goto _l50;
  5080  }
  5081  
  5082  jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
  5083  rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf 
  5084  (zdum__1_))) + _abs (cimagf (zdum__1_));}));
  5085  _l50:;
  5086  if (({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  5087  (cimagf (zdum__1_));}) < alpha_ * rowmax_) {
  5088  goto _l60;
  5089  }
  5090  
  5091  kstep_ = 1;
  5092  swap_ = TRUE;
  5093  goto _l80;
  5094  _l60:;
  5095  if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
  5096    goto _l70;
  5097  }
  5098  
  5099  kstep_ = 1;
  5100  swap_ = FALSE;
  5101  goto _l80;
  5102  _l70:;
  5103  kstep_ = 2;
  5104  swap_ = imax_ != km1_;
  5105  _l80:;
  5106  _l90:;
  5107  if (_max (absakk_, colmax_) != 0.0e0) {
  5108    goto _l100;
  5109  }
  5110  
  5111  kpvt_[k_ - 1] = k_;
  5112  (*info_) = k_;
  5113  goto _l190;
  5114  _l100:;
  5115  if (kstep_ == 2) {
  5116    goto _l140;
  5117  }
  5118  
  5119  if (! (swap_)) {
  5120    goto _l120;
  5121  }
  5122  
  5123  (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
  5124  for (jj_ = imax_; jj_ <= k_; (jj_)++) {
  5125    j_ = k_ + imax_ - jj_;
  5126    t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
  5127    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
  5128    a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
  5129  }
  5130  
  5131  _l120:;
  5132  for (jj_ = 1; jj_ <= km1_; (jj_)++) {
  5133    j_ = k_ - jj_;
  5134    mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
  5135    t_ = mulk_;
  5136    (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
  5137    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
  5138  }
  5139  
  5140  kpvt_[k_ - 1] = k_;
  5141  if (swap_) {
  5142    kpvt_[k_ - 1] = imax_;
  5143  }
  5144  
  5145  goto _l190;
  5146  _l140:;
  5147  if (! (swap_)) {
  5148    goto _l160;
  5149  }
  5150  
  5151  (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
  5152  for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
  5153    j_ = km1_ + imax_ - jj_;
  5154    t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))];
  5155    a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
  5156    a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
  5157  }
  5158  
  5159  t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  5160  a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
  5161  a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
  5162  _l160:;
  5163  km2_ = k_ - 2;
  5164  if (km2_ == 0) {
  5165    goto _l180;
  5166  }
  5167  
  5168  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  5169  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  5170  denom_ = 1.0e0 - ak_ * akm1_;
  5171  for (jj_ = 1; jj_ <= km2_; (jj_)++) {
  5172    j_ = km1_ - jj_;
  5173    bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  5174    bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
  5175    mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
  5176    mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
  5177    t_ = mulk_;
  5178    (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
  5179    t_ = mulkm1_;
  5180    (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
  5181    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
  5182    a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
  5183  }
  5184  
  5185  _l180:;
  5186  kpvt_[k_ - 1] = 1 - k_;
  5187  if (swap_) {
  5188    kpvt_[k_ - 1] = -imax_;
  5189  }
  5190  
  5191  kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
  5192  _l190:;
  5193  k_ = k_ - kstep_;
  5194  goto _l10;
  5195  _l200:;
  5196  __calls[38].calls++;
  5197  return 0;
  5198  }
  5199  
  5200  int_4 _csisl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
  5201  { // ** body not listed **
  5301  }
  5302  
  5303  int_4 _cspco (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
  5304  { // ** body not listed **
  5361  }
  5362  
  5363  z_[k_ - 1] = z_[k_ - 1] + ek_;
  5364  (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
  5365  if (ks_ == 1) {
  5366    goto _l80;
  5367  }
  5368  
  5369  if (({complex_8 zdum__1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) 
  5370  { // ** body not listed **
  5374  }
  5375  
  5376  z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
  5377  (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
  5378  _l80:;
  5379  if (ks_ == 2) {
  5380    goto _l100;
  5381  }
  5382  
  5383  if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  5384  zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  5385  goto _l90;
  5386  }
  5387  
  5388  s_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) / 
  5389  ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  5390  (void) _csscal (n_, &s_, z_, &_k1);
  5391  ek_ = CMPLXF (s_, 0.0) * ek_;
  5392  _l90:;
  5393  if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) {
  5394  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
  5395  }
  5396  
  5397  if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
  5398  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  5399  }
  5400  
  5401  goto _l110;
  5402  _l100:;
  5403  km1k_ = ik_ + k_ - 1;
  5404  km1km1_ = ikm1_ + k_ - 1;
  5405  ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
  5406  akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
  5407  bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
  5408  bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
  5409  denom_ = ak_ * akm1_ - 1.0e0;
  5410  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
  5411  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
  5412  _l110:;
  5413  k_ = k_ - ks_;
  5414  ik_ = ik_ - k_;
  5415  if (ks_ == 2) {
  5416    ik_ = ik_ - (k_ + 1);
  5417  }
  5418  
  5419  goto _l60;
  5420  _l120:;
  5421  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  5422  (void) _csscal (n_, &s_, z_, &_k1);
  5423  k_ = 1;
  5424  ik_ = 0;
  5425  _l130:;
  5426  if (k_ > (*n_)) {
  5427    goto _l160;
  5428  }
  5429  
  5430  ks_ = 1;
  5431  if (kpvt_[k_ - 1] < 0) {
  5432    ks_ = 2;
  5433  }
  5434  
  5435  if (k_ == 1) {
  5436    goto _l150;
  5437  }
  5438  
  5439  z_[k_ - 1] = z_[k_ - 1] + _cdotu (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
  5440  ikp1_ = ik_ + k_;
  5441  if (ks_ == 2) {
  5442    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
  5443  }
  5444  
  5445  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  5446  if (kp_ == k_) {
  5447    goto _l140;
  5448  }
  5449  
  5450  t_ = z_[k_ - 1];
  5451  z_[k_ - 1] = z_[kp_ - 1];
  5452  z_[kp_ - 1] = t_;
  5453  _l140:;
  5454  _l150:;
  5455  ik_ = ik_ + k_;
  5456  if (ks_ == 2) {
  5457    ik_ = ik_ + (k_ + 1);
  5458  }
  5459  
  5460  k_ = k_ + ks_;
  5461  goto _l130;
  5462  _l160:;
  5463  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  5464  (void) _csscal (n_, &s_, z_, &_k1);
  5465  ynorm_ = 1.0;
  5466  k_ = (*n_);
  5467  ik_ = (*n_) * ((*n_) - 1) / 2;
  5468  _l170:;
  5469  if (k_ == 0) {
  5470    goto _l230;
  5471  }
  5472  
  5473  kk_ = ik_ + k_;
  5474  ikm1_ = ik_ - (k_ - 1);
  5475  ks_ = 1;
  5476  if (kpvt_[k_ - 1] < 0) {
  5477    ks_ = 2;
  5478  }
  5479  
  5480  if (k_ == ks_) {
  5481    goto _l190;
  5482  }
  5483  
  5484  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  5485  kps_ = k_ + 1 - ks_;
  5486  if (kp_ == kps_) {
  5487    goto _l180;
  5488  }
  5489  
  5490  t_ = z_[kps_ - 1];
  5491  z_[kps_ - 1] = z_[kp_ - 1];
  5492  z_[kp_ - 1] = t_;
  5493  _l180:;
  5494  (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
  5495  if (ks_ == 2) {
  5496    (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
  5497  }
  5498  
  5499  _l190:;
  5500  if (ks_ == 2) {
  5501    goto _l210;
  5502  }
  5503  
  5504  if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  5505  zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  5506  goto _l200;
  5507  }
  5508  
  5509  s_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) / 
  5510  ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  5511  (void) _csscal (n_, &s_, z_, &_k1);
  5512  ynorm_ = s_ * ynorm_;
  5513  _l200:;
  5514  if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) {
  5515  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
  5516  }
  5517  
  5518  if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
  5519  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  5520  }
  5521  
  5522  goto _l220;
  5523  _l210:;
  5524  km1k_ = ik_ + k_ - 1;
  5525  km1km1_ = ikm1_ + k_ - 1;
  5526  ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
  5527  akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
  5528  bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
  5529  bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
  5530  denom_ = ak_ * akm1_ - 1.0e0;
  5531  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
  5532  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
  5533  _l220:;
  5534  k_ = k_ - ks_;
  5535  ik_ = ik_ - k_;
  5536  if (ks_ == 2) {
  5537    ik_ = ik_ - (k_ + 1);
  5538  }
  5539  
  5540  goto _l170;
  5541  _l230:;
  5542  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  5543  (void) _csscal (n_, &s_, z_, &_k1);
  5544  ynorm_ = s_ * ynorm_;
  5545  k_ = 1;
  5546  ik_ = 0;
  5547  _l240:;
  5548  if (k_ > (*n_)) {
  5549    goto _l270;
  5550  }
  5551  
  5552  ks_ = 1;
  5553  if (kpvt_[k_ - 1] < 0) {
  5554    ks_ = 2;
  5555  }
  5556  
  5557  if (k_ == 1) {
  5558    goto _l260;
  5559  }
  5560  
  5561  z_[k_ - 1] = z_[k_ - 1] + _cdotu (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
  5562  ikp1_ = ik_ + k_;
  5563  if (ks_ == 2) {
  5564    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
  5565  }
  5566  
  5567  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
  5568  if (kp_ == k_) {
  5569    goto _l250;
  5570  }
  5571  
  5572  t_ = z_[k_ - 1];
  5573  z_[k_ - 1] = z_[kp_ - 1];
  5574  z_[kp_ - 1] = t_;
  5575  _l250:;
  5576  _l260:;
  5577  ik_ = ik_ + k_;
  5578  if (ks_ == 2) {
  5579    ik_ = ik_ + (k_ + 1);
  5580  }
  5581  
  5582  k_ = k_ + ks_;
  5583  goto _l240;
  5584  _l270:;
  5585  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  5586  (void) _csscal (n_, &s_, z_, &_k1);
  5587  ynorm_ = s_ * ynorm_;
  5588  if (anorm_ != 0.0e0) {
  5589    (*rcond_) = ynorm_ / anorm_;
  5590  }
  5591  
  5592  if (anorm_ == 0.0e0) {
  5593    (*rcond_) = 0.0;
  5594  }
  5595  
  5596  __calls[40].calls++;
  5597  return 0;
  5598  }
  5599  
  5600  int_4 _cspdi (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ det_, complex_8 _p_ work_, int_4 _p_ job_
  5601  )
  5602  { // ** body not listed **
  5644  }
  5645  
  5646  _l40:;
  5647  if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) >= 1.0e0) {
  5648  goto _l50;
  5649  }
  5650  
  5651  det_[0] = CMPLXF (ten_, 0.0) * det_[0];
  5652  det_[1] = det_[1] - CMPLXF (1.0, 0.0);
  5653  goto _l40;
  5654  _l50:;
  5655  _l60:;
  5656  if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
  5657  goto _l70;
  5658  }
  5659  
  5660  det_[0] = det_[0] / CMPLXF (ten_, 0.0);
  5661  det_[1] = det_[1] + CMPLXF (1.0, 0.0);
  5662  goto _l60;
  5663  _l70:;
  5664  _l80:;
  5665  _l90:;
  5666  ik_ = ik_ + k_;
  5667  }
  5668  
  5669  _l110:;
  5670  if (noinv_) {
  5671    goto _l240;
  5672  }
  5673  
  5674  k_ = 1;
  5675  ik_ = 0;
  5676  _l120:;
  5677  if (k_ > (*n_)) {
  5678    goto _l230;
  5679  }
  5680  
  5681  km1_ = k_ - 1;
  5682  kk_ = ik_ + k_;
  5683  ikp1_ = ik_ + k_;
  5684  if (kpvt_[k_ - 1] < 0) {
  5685    goto _l150;
  5686  }
  5687  
  5688  ap_[kk_ - 1] = CMPLXF (1.0, 0.0) / ap_[kk_ - 1];
  5689  if (km1_ < 1) {
  5690    goto _l140;
  5691  }
  5692  
  5693  (void) _ccopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
  5694  ij_ = 0;
  5695  for (j_ = 1; j_ <= km1_; (j_)++) {
  5696    jk_ = ik_ + j_;
  5697    ap_[jk_ - 1] = _cdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
  5698    (void) _caxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
  5699    ij_ = ij_ + j_;
  5700  }
  5701  
  5702  ap_[kk_ - 1] = ap_[kk_ - 1] + _cdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
  5703  _l140:;
  5704  kstep_ = 1;
  5705  goto _l190;
  5706  _l150:;
  5707  kkp1_ = ikp1_ + k_;
  5708  t_ = ap_[kkp1_ - 1];
  5709  ak_ = ap_[kk_ - 1] / t_;
  5710  akp1_ = ap_[kkp1_ + 1 - 1] / t_;
  5711  akkp1_ = ap_[kkp1_ - 1] / t_;
  5712  d_ = t_ * (ak_ * akp1_ - CMPLXF (1.0, 0.0));
  5713  ap_[kk_ - 1] = akp1_ / d_;
  5714  ap_[kkp1_ + 1 - 1] = ak_ / d_;
  5715  ap_[kkp1_ - 1] = -akkp1_ / d_;
  5716  if (km1_ < 1) {
  5717    goto _l180;
  5718  }
  5719  
  5720  (void) _ccopy (&km1_, &ap_[ikp1_ + 1 - 1], &_k1, work_, &_k1);
  5721  ij_ = 0;
  5722  for (j_ = 1; j_ <= km1_; (j_)++) {
  5723    jkp1_ = ikp1_ + j_;
  5724    ap_[jkp1_ - 1] = _cdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
  5725    (void) _caxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
  5726    ij_ = ij_ + j_;
  5727  }
  5728  
  5729  ap_[kkp1_ + 1 - 1] = ap_[kkp1_ + 1 - 1] + _cdotu (&km1_, work_, &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
  5730  ap_[kkp1_ - 1] = ap_[kkp1_ - 1] + _cdotu (&km1_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
  5731  (void) _ccopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
  5732  ij_ = 0;
  5733  for (j_ = 1; j_ <= km1_; (j_)++) {
  5734    jk_ = ik_ + j_;
  5735    ap_[jk_ - 1] = _cdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
  5736    (void) _caxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
  5737    ij_ = ij_ + j_;
  5738  }
  5739  
  5740  ap_[kk_ - 1] = ap_[kk_ - 1] + _cdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
  5741  _l180:;
  5742  kstep_ = 2;
  5743  _l190:;
  5744  ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
  5745  if (ks_ == k_) {
  5746    goto _l220;
  5747  }
  5748  
  5749  iks_ = (ks_ * (ks_ - 1)) / 2;
  5750  (void) _cswap (&ks_, &ap_[iks_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
  5751  ksj_ = ik_ + ks_;
  5752  for (jb_ = ks_; jb_ <= k_; (jb_)++) {
  5753    j_ = k_ + ks_ - jb_;
  5754    jk_ = ik_ + j_;
  5755    temp_ = ap_[jk_ - 1];
  5756    ap_[jk_ - 1] = ap_[ksj_ - 1];
  5757    ap_[ksj_ - 1] = temp_;
  5758    ksj_ = ksj_ - (j_ - 1);
  5759  }
  5760  
  5761  if (kstep_ == 1) {
  5762    goto _l210;
  5763  }
  5764  kskp1_ = ikp1_ + ks_;
  5765  temp_ = ap_[kskp1_ - 1];
  5766  ap_[kskp1_ - 1] = ap_[kkp1_ - 1];
  5767  ap_[kkp1_ - 1] = temp_;
  5768  _l210:;
  5769  _l220:;
  5770  ik_ = ik_ + k_;
  5771  if (kstep_ == 2) {
  5772    ik_ = ik_ + k_ + 1;
  5773  }
  5774  
  5775  k_ = k_ + kstep_;
  5776  goto _l120;
  5777  _l230:;
  5778  _l240:;
  5779  __calls[41].calls++;
  5780  return 0;
  5781  }
  5782  
  5783  int_4 _cspfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
  5784  { // ** body not listed **
  5806  }
  5807  
  5808  goto _l200;
  5809  _l20:;
  5810  km1_ = k_ - 1;
  5811  kk_ = ik_ + k_;
  5812  absakk_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  5813  imax_ = _icamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
  5814  imk_ = ik_ + imax_;
  5815  colmax_ = ({complex_8 zdum__1_ = ap_[imk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  5816  if (absakk_ < alpha_ * colmax_) {
  5817    goto _l30;
  5818  }
  5819  
  5820  kstep_ = 1;
  5821  swap_ = FALSE;
  5822  goto _l90;
  5823  _l30:;
  5824  rowmax_ = 0.0;
  5825  imaxp1_ = imax_ + 1;
  5826  im_ = imax_ * (imax_ - 1) / 2;
  5827  imj_ = im_ + 2 * imax_;
  5828  for (j_ = imaxp1_; j_ <= k_; (j_)++) {
  5829    rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = ap_[imj_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  5830    (zdum__1_));}));
  5831    imj_ = imj_ + j_;
  5832  }
  5833  
  5834  if (imax_ == 1) {
  5835    goto _l50;
  5836  }
  5837  
  5838  jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
  5839  jmim_ = jmax_ + im_;
  5840  rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = ap_[jmim_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  5841  (zdum__1_));}));
  5842  _l50:;
  5843  imim_ = imax_ + im_;
  5844  if (({complex_8 zdum__1_ = ap_[imim_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < alpha_ * 
  5845  rowmax_) {
  5846  goto _l60;
  5847  }
  5848  
  5849  kstep_ = 1;
  5850  swap_ = TRUE;
  5851  goto _l80;
  5852  _l60:;
  5853  if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
  5854    goto _l70;
  5855  }
  5856  
  5857  kstep_ = 1;
  5858  swap_ = FALSE;
  5859  goto _l80;
  5860  _l70:;
  5861  kstep_ = 2;
  5862  swap_ = imax_ != km1_;
  5863  _l80:;
  5864  _l90:;
  5865  if (_max (absakk_, colmax_) != 0.0e0) {
  5866    goto _l100;
  5867  }
  5868  
  5869  kpvt_[k_ - 1] = k_;
  5870  (*info_) = k_;
  5871  goto _l190;
  5872  _l100:;
  5873  if (kstep_ == 2) {
  5874    goto _l140;
  5875  }
  5876  
  5877  if (! (swap_)) {
  5878    goto _l120;
  5879  }
  5880  
  5881  (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
  5882  imj_ = ik_ + imax_;
  5883  for (jj_ = imax_; jj_ <= k_; (jj_)++) {
  5884    j_ = k_ + imax_ - jj_;
  5885    jk_ = ik_ + j_;
  5886    t_ = ap_[jk_ - 1];
  5887    ap_[jk_ - 1] = ap_[imj_ - 1];
  5888    ap_[imj_ - 1] = t_;
  5889    imj_ = imj_ - (j_ - 1);
  5890  }
  5891  
  5892  _l120:;
  5893  ij_ = ik_ - (k_ - 1);
  5894  for (jj_ = 1; jj_ <= km1_; (jj_)++) {
  5895    j_ = k_ - jj_;
  5896    jk_ = ik_ + j_;
  5897    mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
  5898    t_ = mulk_;
  5899    (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
  5900    ijj_ = ij_ + j_;
  5901    ap_[jk_ - 1] = mulk_;
  5902    ij_ = ij_ - (j_ - 1);
  5903  }
  5904  
  5905  kpvt_[k_ - 1] = k_;
  5906  if (swap_) {
  5907    kpvt_[k_ - 1] = imax_;
  5908  }
  5909  
  5910  goto _l190;
  5911  _l140:;
  5912  km1k_ = ik_ + k_ - 1;
  5913  ikm1_ = ik_ - (k_ - 1);
  5914  if (! (swap_)) {
  5915    goto _l160;
  5916  }
  5917  
  5918  (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
  5919  imj_ = ikm1_ + imax_;
  5920  for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
  5921    j_ = km1_ + imax_ - jj_;
  5922    jkm1_ = ikm1_ + j_;
  5923    t_ = ap_[jkm1_ - 1];
  5924    ap_[jkm1_ - 1] = ap_[imj_ - 1];
  5925    ap_[imj_ - 1] = t_;
  5926    imj_ = imj_ - (j_ - 1);
  5927  }
  5928  
  5929  t_ = ap_[km1k_ - 1];
  5930  ap_[km1k_ - 1] = ap_[imk_ - 1];
  5931  ap_[imk_ - 1] = t_;
  5932  _l160:;
  5933  km2_ = k_ - 2;
  5934  if (km2_ == 0) {
  5935    goto _l180;
  5936  }
  5937  
  5938  ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
  5939  km1km1_ = ikm1_ + k_ - 1;
  5940  akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
  5941  denom_ = 1.0e0 - ak_ * akm1_;
  5942  ij_ = ik_ - (k_ - 1) - (k_ - 2);
  5943  for (jj_ = 1; jj_ <= km2_; (jj_)++) {
  5944    j_ = km1_ - jj_;
  5945    jk_ = ik_ + j_;
  5946    bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
  5947    jkm1_ = ikm1_ + j_;
  5948    bkm1_ = ap_[jkm1_ - 1] / ap_[km1k_ - 1];
  5949    mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
  5950    mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
  5951    t_ = mulk_;
  5952    (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
  5953    t_ = mulkm1_;
  5954    (void) _caxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
  5955    ap_[jk_ - 1] = mulk_;
  5956    ap_[jkm1_ - 1] = mulkm1_;
  5957    ijj_ = ij_ + j_;
  5958    ij_ = ij_ - (j_ - 1);
  5959  }
  5960  
  5961  _l180:;
  5962  kpvt_[k_ - 1] = 1 - k_;
  5963  if (swap_) {
  5964    kpvt_[k_ - 1] = -imax_;
  5965  }
  5966  
  5967  kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
  5968  _l190:;
  5969  ik_ = ik_ - (k_ - 1);
  5970  if (kstep_ == 2) {
  5971    ik_ = ik_ - (k_ - 2);
  5972  }
  5973  
  5974  k_ = k_ - kstep_;
  5975  goto _l10;
  5976  _l200:;
  5977  __calls[42].calls++;
  5978  return 0;
  5979  }
  5980  
  5981  int_4 _cspsl (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
  5982  { // ** body not listed **
  6093  }
  6094  
  6095  int_4 _csvdc (complex_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_8 _p_ s_, complex_8 _p_ e_, 
  6096  complex_8 _p_ u_, int_4 _p_ ldu_, complex_8 _p_ v_, int_4 _p_ ldv_, complex_8 _p_ work_, int_4 _p_ job_, int_4 _p_ 
  6097  info_)
  6098  { // ** body not listed **
  6143  }
  6144  
  6145  (void) _cscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = 1.0e0 / s_[l_ - 1], &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], 
  6146  &_k1);
  6147  x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
  6148  _l10:;
  6149  s_[l_ - 1] = -s_[l_ - 1];
  6150  _l20:;
  6151  if ((*p_) < lp1_) {
  6152    goto _l50;
  6153  }
  6154  
  6155  for (j_ = lp1_; j_ <= (*p_); (j_)++) {
  6156    if (l_ > nct_) {
  6157      goto _l30;
  6158    }
  6159    if (({complex_8 zdum__1_ = s_[l_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
  6160    goto _l30;
  6161  }
  6162  
  6163  t_ = -_cdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ - 
  6164  1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
  6165  (void) _caxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * 
  6166  ((j_ - 1))], &_k1);
  6167  _l30:;
  6168  e_[j_ - 1] = conjf (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]);
  6169  }
  6170  
  6171  _l50:;
  6172  if (! (wantu_) || l_ > nct_) {
  6173    goto _l70;
  6174  }
  6175  
  6176  for (i_ = l_; i_ <= (*n_); (i_)++) {
  6177    u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = x_[i_ - 1 + ((*ldx_)) * ((l_ - 1))];
  6178  }
  6179  
  6180  _l70:;
  6181  if (l_ > nrt_) {
  6182    goto _l150;
  6183  }
  6184  
  6185  e_[l_ - 1] = CMPLXF (_scnrm2 (($5_ = (*p_) - l_, &$5_), &e_[lp1_ - 1], &_k1), 0.0);
  6186  if (({complex_8 zdum__1_ = e_[l_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
  6187  goto _l80;
  6188  }
  6189  
  6190  if (({complex_8 zdum__1_ = e_[lp1_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) {
  6191  e_[l_ - 1] = ({complex_8 zdum1__1_ = e_[l_ - 1]; complex_8 zdum2__1_ = e_[lp1_ - 1]; cabsf (zdum1__1_) * (zdum2__1_ / 
  6192  cabsf (zdum2__1_));});
  6193  }
  6194  
  6195  (void) _cscal (($6_ = (*p_) - l_, &$6_), ($7_ = 1.0e0 / e_[l_ - 1], &$7_), &e_[lp1_ - 1], &_k1);
  6196  e_[lp1_ - 1] = CMPLXF (1.0, 0.0) + e_[lp1_ - 1];
  6197  _l80:;
  6198  e_[l_ - 1] = -conjf (e_[l_ - 1]);
  6199  if (lp1_ > (*n_) || ({complex_8 zdum__1_ = e_[l_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  6200  (zdum__1_));}) == 0.0e0) {
  6201  goto _l120;
  6202  }
  6203  
  6204  for (i_ = lp1_; i_ <= (*n_); (i_)++) {
  6205    work_[i_ - 1] = CMPLXF (0.0, 0.0);
  6206  }
  6207  
  6208  for (j_ = lp1_; j_ <= (*p_); (j_)++) {
  6209    (void) _caxpy (($8_ = (*n_) - l_, &$8_), &e_[j_ - 1], &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &work_[lp1_ - 1], 
  6210    &_k1);
  6211  }
  6212  
  6213  for (j_ = lp1_; j_ <= (*p_); (j_)++) {
  6214    (void) _caxpy (($9_ = (*n_) - l_, &$9_), ($10_ = conjf (-e_[j_ - 1] / e_[lp1_ - 1]), &$10_), &work_[lp1_ - 1], &_k1, 
  6215    &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1);
  6216  }
  6217  
  6218  _l120:;
  6219  if (! (wantv_)) {
  6220    goto _l140;
  6221  }
  6222  
  6223  for (i_ = lp1_; i_ <= (*p_); (i_)++) {
  6224    v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = e_[i_ - 1];
  6225  }
  6226  
  6227  _l140:;
  6228  _l150:;
  6229  }
  6230  
  6231  _l170:;
  6232  m_ = _min ((*p_), (*n_) + 1);
  6233  nctp1_ = nct_ + 1;
  6234  nrtp1_ = nrt_ + 1;
  6235  if (nct_ < (*p_)) {
  6236    s_[nctp1_ - 1] = x_[nctp1_ - 1 + ((*ldx_)) * ((nctp1_ - 1))];
  6237  }
  6238  
  6239  if ((*n_) < m_) {
  6240    s_[m_ - 1] = CMPLXF (0.0, 0.0);
  6241  }
  6242  
  6243  if (nrtp1_ < m_) {
  6244    e_[nrtp1_ - 1] = x_[nrtp1_ - 1 + ((*ldx_)) * ((m_ - 1))];
  6245  }
  6246  
  6247  e_[m_ - 1] = CMPLXF (0.0, 0.0);
  6248  if (! (wantu_)) {
  6249    goto _l300;
  6250  }
  6251  
  6252  if (ncu_ < nctp1_) {
  6253    goto _l200;
  6254  }
  6255  
  6256  for (j_ = nctp1_; j_ <= ncu_; (j_)++) {
  6257    for (i_ = 1; i_ <= (*n_); (i_)++) {
  6258      u_[i_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
  6259    }
  6260    u_[j_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLXF (1.0, 0.0);
  6261  }
  6262  
  6263  _l200:;
  6264  if (nct_ < 1) {
  6265    goto _l290;
  6266  }
  6267  for (ll_ = 1; ll_ <= nct_; (ll_)++) {
  6268    l_ = nct_ - ll_ + 1;
  6269    if (({complex_8 zdum__1_ = s_[l_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
  6270    goto _l250;
  6271  }
  6272  
  6273  lp1_ = l_ + 1;
  6274  if (ncu_ < lp1_) {
  6275    goto _l220;
  6276  }
  6277  
  6278  for (j_ = lp1_; j_ <= ncu_; (j_)++) {
  6279    t_ = -_cdotc (($11_ = (*n_) - l_ + 1, &$11_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_)) * ((j_ 
  6280    - 1))], &_k1) / u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
  6281    (void) _caxpy (($12_ = (*n_) - l_ + 1, &$12_), &t_, &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_)) 
  6282    * ((j_ - 1))], &_k1);
  6283  }
  6284  
  6285  _l220:;
  6286  (void) _cscal (($13_ = (*n_) - l_ + 1, &$13_), ($14_ = CMPLXF (-1.0, 0.0), &$14_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 
  6287  1))], &_k1);
  6288  u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0) + u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
  6289  lm1_ = l_ - 1;
  6290  if (lm1_ < 1) {
  6291    goto _l240;
  6292  }
  6293  
  6294  for (i_ = 1; i_ <= lm1_; (i_)++) {
  6295    u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (0.0, 0.0);
  6296  }
  6297  
  6298  _l240:;
  6299  goto _l270;
  6300  _l250:;
  6301  for (i_ = 1; i_ <= (*n_); (i_)++) {
  6302    u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (0.0, 0.0);
  6303  }
  6304  
  6305  u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0);
  6306  _l270:;
  6307  }
  6308  
  6309  _l290:;
  6310  _l300:;
  6311  if (! (wantv_)) {
  6312    goto _l350;
  6313  }
  6314  
  6315  for (ll_ = 1; ll_ <= (*p_); (ll_)++) {
  6316    l_ = (*p_) - ll_ + 1;
  6317    lp1_ = l_ + 1;
  6318    if (l_ > nrt_) {
  6319      goto _l320;
  6320    }
  6321    if (({complex_8 zdum__1_ = e_[l_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
  6322    goto _l320;
  6323  }
  6324  
  6325  for (j_ = lp1_; j_ <= (*p_); (j_)++) {
  6326    t_ = -_cdotc (($15_ = (*p_) - l_, &$15_), &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_)) * ((j_ 
  6327    - 1))], &_k1) / v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))];
  6328    (void) _caxpy (($16_ = (*p_) - l_, &$16_), &t_, &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_)) 
  6329    * ((j_ - 1))], &_k1);
  6330  }
  6331  
  6332  _l320:;
  6333  for (i_ = 1; i_ <= (*p_); (i_)++) {
  6334    v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLXF (0.0, 0.0);
  6335  }
  6336  
  6337  v_[l_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0);
  6338  }
  6339  
  6340  _l350:;
  6341  for (i_ = 1; i_ <= m_; (i_)++) {
  6342    if (({complex_8 zdum__1_ = s_[i_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
  6343    goto _l360;
  6344  }
  6345  
  6346  t_ = CMPLXF (cabsf (s_[i_ - 1]), 0.0);
  6347  r_ = s_[i_ - 1] / t_;
  6348  s_[i_ - 1] = t_;
  6349  if (i_ < m_) {
  6350    e_[i_ - 1] = e_[i_ - 1] / r_;
  6351  }
  6352  
  6353  if (wantu_) {
  6354    (void) _cscal (n_, &r_, &u_[0 + ((*ldu_)) * ((i_ - 1))], &_k1);
  6355  }
  6356  
  6357  _l360:;
  6358  if (i_ == m_) {
  6359    goto _l390;
  6360  }
  6361  
  6362  if (({complex_8 zdum__1_ = e_[i_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
  6363  goto _l370;
  6364  }
  6365  
  6366  t_ = CMPLXF (cabsf (e_[i_ - 1]), 0.0);
  6367  r_ = t_ / e_[i_ - 1];
  6368  e_[i_ - 1] = t_;
  6369  s_[i_ + 1 - 1] = s_[i_ + 1 - 1] * r_;
  6370  if (wantv_) {
  6371    (void) _cscal (p_, &r_, &v_[0 + ((*ldv_)) * ((i_ + 1 - 1))], &_k1);
  6372  }
  6373  
  6374  _l370:;
  6375  }
  6376  
  6377  _l390:;
  6378  mm_ = m_;
  6379  iter_ = 0;
  6380  _l400:;
  6381  if (m_ == 0) {
  6382    goto _l660;
  6383  }
  6384  
  6385  if (iter_ < maxit_) {
  6386    goto _l410;
  6387  }
  6388  
  6389  (*info_) = m_;
  6390  goto _l660;
  6391  _l410:;
  6392  for (ll_ = 1; ll_ <= m_; (ll_)++) {
  6393    l_ = m_ - ll_;
  6394    if (l_ == 0) {
  6395      goto _l440;
  6396    }
  6397    test_ = cabsf (s_[l_ - 1]) + cabsf (s_[l_ + 1 - 1]);
  6398    ztest_ = test_ + cabsf (e_[l_ - 1]);
  6399    if (ztest_ != test_) {
  6400      goto _l420;
  6401    }
  6402    e_[l_ - 1] = CMPLXF (0.0, 0.0);
  6403    goto _l440;
  6404    _l420:;
  6405  }
  6406  
  6407  _l440:;
  6408  if (l_ != m_ - 1) {
  6409    goto _l450;
  6410  }
  6411  
  6412  kase_ = 4;
  6413  goto _l520;
  6414  _l450:;
  6415  lp1_ = l_ + 1;
  6416  mp1_ = m_ + 1;
  6417  for (lls_ = lp1_; lls_ <= mp1_; (lls_)++) {
  6418    ls_ = m_ - lls_ + lp1_;
  6419    if (ls_ == l_) {
  6420      goto _l480;
  6421    }
  6422    test_ = 0.0;
  6423    if (ls_ != m_) {
  6424      test_ = test_ + cabsf (e_[ls_ - 1]);
  6425    }
  6426    if (ls_ != l_ + 1) {
  6427      test_ = test_ + cabsf (e_[ls_ - 1 - 1]);
  6428    }
  6429    ztest_ = test_ + cabsf (s_[ls_ - 1]);
  6430    if (ztest_ != test_) {
  6431      goto _l460;
  6432    }
  6433    s_[ls_ - 1] = CMPLXF (0.0, 0.0);
  6434    goto _l480;
  6435    _l460:;
  6436  }
  6437  
  6438  _l480:;
  6439  if (ls_ != l_) {
  6440    goto _l490;
  6441  }
  6442  
  6443  kase_ = 3;
  6444  goto _l510;
  6445  _l490:;
  6446  if (ls_ != m_) {
  6447    goto _l500;
  6448  }
  6449  
  6450  kase_ = 1;
  6451  goto _l510;
  6452  _l500:;
  6453  kase_ = 2;
  6454  l_ = ls_;
  6455  _l510:;
  6456  _l520:;
  6457  l_ = l_ + 1;
  6458  switch (kase_) {
  6459    default:
  6460    case 1: goto _l530;
  6461    case 2: goto _l560;
  6462    case 3: goto _l580;
  6463    case 4: goto _l610;
  6464  }
  6465  
  6466  _l530:;
  6467  mm1_ = m_ - 1;
  6468  f_ = (real_4) (crealf (e_[m_ - 1 - 1]));
  6469  e_[m_ - 1 - 1] = CMPLXF (0.0, 0.0);
  6470  for (kk_ = l_; kk_ <= mm1_; (kk_)++) {
  6471    k_ = mm1_ - kk_ + l_;
  6472    t1_ = (real_4) (crealf (s_[k_ - 1]));
  6473    (void) _srotg (&t1_, &f_, &cs_, &sn_);
  6474    s_[k_ - 1] = CMPLXF (t1_, 0.0);
  6475    if (k_ == l_) {
  6476      goto _l540;
  6477    }
  6478    f_ = -sn_ * (real_4) (crealf (e_[k_ - 1 - 1]));
  6479    e_[k_ - 1 - 1] = cs_ * e_[k_ - 1 - 1];
  6480    _l540:;
  6481    if (wantv_) {
  6482      (void) _csrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((m_ - 1))], &_k1, &cs_, &sn_);
  6483    }
  6484  }
  6485  
  6486  goto _l650;
  6487  _l560:;
  6488  f_ = (real_4) (crealf (e_[l_ - 1 - 1]));
  6489  e_[l_ - 1 - 1] = CMPLXF (0.0, 0.0);
  6490  for (k_ = l_; k_ <= m_; (k_)++) {
  6491    t1_ = (real_4) (crealf (s_[k_ - 1]));
  6492    (void) _srotg (&t1_, &f_, &cs_, &sn_);
  6493    s_[k_ - 1] = CMPLXF (t1_, 0.0);
  6494    f_ = -sn_ * (real_4) (crealf (e_[k_ - 1]));
  6495    e_[k_ - 1] = cs_ * e_[k_ - 1];
  6496    if (wantu_) {
  6497      (void) _csrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ - 1 - 1))], &_k1, &cs_, &sn_);
  6498    }
  6499  }
  6500  
  6501  goto _l650;
  6502  _l580:;
  6503  scale_ = ($17_ = _max (cabsf (s_[m_ - 1]), cabsf (s_[m_ - 1 - 1])), $17_ = _max ($17_, cabsf (e_[m_ - 1 - 1])), $17_ = 
  6504  _max ($17_, cabsf (s_[l_ - 1])), _max ($17_, cabsf (e_[l_ - 1])));
  6505  sm_ = (real_4) (crealf (s_[m_ - 1])) / scale_;
  6506  smm1_ = (real_4) (crealf (s_[m_ - 1 - 1])) / scale_;
  6507  emm1_ = (real_4) (crealf (e_[m_ - 1 - 1])) / scale_;
  6508  sl_ = (real_4) (crealf (s_[l_ - 1])) / scale_;
  6509  el_ = (real_4) (crealf (e_[l_ - 1])) / scale_;
  6510  b_ = ((smm1_ + sm_) * (smm1_ - sm_) + (emm1_ * emm1_)) / 2.0e0;
  6511  c_ = ($18_ = (sm_ * emm1_), $18_ * $18_);
  6512  shift_ = 0.0;
  6513  if (b_ == 0.0e0 && c_ == 0.0e0) {
  6514    goto _l590;
  6515  }
  6516  
  6517  shift_ = sqrtf ((b_ * b_) + c_);
  6518  if (b_ < 0.0e0) {
  6519    shift_ = -shift_;
  6520  }
  6521  
  6522  shift_ = c_ / (b_ + shift_);
  6523  _l590:;
  6524  f_ = (sl_ + sm_) * (sl_ - sm_) + shift_;
  6525  g_ = sl_ * el_;
  6526  mm1_ = m_ - 1;
  6527  for (k_ = l_; k_ <= mm1_; (k_)++) {
  6528    (void) _srotg (&f_, &g_, &cs_, &sn_);
  6529    if (k_ != l_) {
  6530      e_[k_ - 1 - 1] = CMPLXF (f_, 0.0);
  6531    }
  6532    f_ = cs_ * (real_4) (crealf (s_[k_ - 1])) + sn_ * (real_4) (crealf (e_[k_ - 1]));
  6533    e_[k_ - 1] = cs_ * e_[k_ - 1] - sn_ * s_[k_ - 1];
  6534    g_ = sn_ * (real_4) (crealf (s_[k_ + 1 - 1]));
  6535    s_[k_ + 1 - 1] = cs_ * s_[k_ + 1 - 1];
  6536    if (wantv_) {
  6537      (void) _csrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
  6538    }
  6539    (void) _srotg (&f_, &g_, &cs_, &sn_);
  6540    s_[k_ - 1] = CMPLXF (f_, 0.0);
  6541    f_ = cs_ * (real_4) (crealf (e_[k_ - 1])) + sn_ * (real_4) (crealf (s_[k_ + 1 - 1]));
  6542    s_[k_ + 1 - 1] = -sn_ * e_[k_ - 1] + cs_ * s_[k_ + 1 - 1];
  6543    g_ = sn_ * (real_4) (crealf (e_[k_ + 1 - 1]));
  6544    e_[k_ + 1 - 1] = cs_ * e_[k_ + 1 - 1];
  6545    if (wantu_ && k_ < (*n_)) {
  6546      (void) _csrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
  6547    }
  6548  }
  6549  
  6550  e_[m_ - 1 - 1] = CMPLXF (f_, 0.0);
  6551  iter_ = iter_ + 1;
  6552  goto _l650;
  6553  _l610:;
  6554  if ((real_4) (crealf (s_[l_ - 1])) >= 0.0e0) {
  6555    goto _l620;
  6556  }
  6557  
  6558  s_[l_ - 1] = -s_[l_ - 1];
  6559  if (wantv_) {
  6560    (void) _cscal (p_, ($19_ = CMPLXF (-1.0, 0.0), &$19_), &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1);
  6561  }
  6562  
  6563  _l620:;
  6564  _l630:;
  6565  if (l_ == mm_) {
  6566    goto _l640;
  6567  }
  6568  
  6569  if ((real_4) (crealf (s_[l_ - 1])) >= (real_4) (crealf (s_[l_ + 1 - 1]))) {
  6570    goto _l640;
  6571  }
  6572  
  6573  t_ = s_[l_ - 1];
  6574  s_[l_ - 1] = s_[l_ + 1 - 1];
  6575  s_[l_ + 1 - 1] = t_;
  6576  if (wantv_ && l_ < (*p_)) {
  6577    (void) _cswap (p_, &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((l_ + 1 - 1))], &_k1);
  6578  }
  6579  
  6580  if (wantu_ && l_ < (*n_)) {
  6581    (void) _cswap (n_, &u_[0 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ + 1 - 1))], &_k1);
  6582  }
  6583  
  6584  l_ = l_ + 1;
  6585  goto _l630;
  6586  _l640:;
  6587  iter_ = 0;
  6588  m_ = m_ - 1;
  6589  _l650:;
  6590  goto _l400;
  6591  _l660:;
  6592  __calls[44].calls++;
  6593  return 0;
  6594  }
  6595  
  6596  int_4 _ctrco (complex_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_ job_)
  6597  { // ** body not listed **
  6635  }
  6636  
  6637  s_ = ({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  6638  (zdum__1_));}) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  6639  (zdum__1_));});
  6640  (void) _csscal (n_, &s_, z_, &_k1);
  6641  ek_ = CMPLXF (s_, 0.0) * ek_;
  6642  _l30:;
  6643  wk_ = ek_ - z_[k_ - 1];
  6644  wkm_ = -ek_ - z_[k_ - 1];
  6645  s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  6646  sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  6647  if (({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  6648  (zdum__1_));}) == 0.0e0) {
  6649  goto _l40;
  6650  }
  6651  
  6652  wk_ = wk_ / conjf (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
  6653  wkm_ = wkm_ / conjf (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
  6654  goto _l50;
  6655  _l40:;
  6656  wk_ = CMPLXF (1.0, 0.0);
  6657  wkm_ = CMPLXF (1.0, 0.0);
  6658  _l50:;
  6659  if (kk_ == (*n_)) {
  6660    goto _l90;
  6661  }
  6662  
  6663  j1_ = k_ + 1;
  6664  if (lower_) {
  6665    j1_ = 1;
  6666  }
  6667  
  6668  j2_ = (*n_);
  6669  if (lower_) {
  6670    j2_ = k_ - 1;
  6671  }
  6672  
  6673  for (j_ = j1_; j_ <= j2_; (j_)++) {
  6674    sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]); _abs ((real_4) 
  6675    (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  6676    z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
  6677    s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  6678  }
  6679  
  6680  if (s_ >= sm_) {
  6681    goto _l80;
  6682  }
  6683  
  6684  w_ = wkm_ - wk_;
  6685  wk_ = wkm_;
  6686  for (j_ = j1_; j_ <= j2_; (j_)++) {
  6687    z_[j_ - 1] = z_[j_ - 1] + w_ * conjf (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
  6688  }
  6689  
  6690  _l80:;
  6691  _l90:;
  6692  z_[k_ - 1] = wk_;
  6693  }
  6694  
  6695  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  6696  (void) _csscal (n_, &s_, z_, &_k1);
  6697  ynorm_ = 1.0;
  6698  for (kk_ = 1; kk_ <= (*n_); (kk_)++) {
  6699    k_ = (*n_) + 1 - kk_;
  6700    if (lower_) {
  6701      k_ = kk_;
  6702    }
  6703    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  6704    zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
  6705    goto _l110;
  6706  }
  6707  
  6708  s_ = ({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  6709  (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  6710  (void) _csscal (n_, &s_, z_, &_k1);
  6711  ynorm_ = s_ * ynorm_;
  6712  _l110:;
  6713  if (({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  6714  (zdum__1_));}) != 0.0e0) {
  6715  z_[k_ - 1] = z_[k_ - 1] / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
  6716  }
  6717  
  6718  if (({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  6719  (zdum__1_));}) == 0.0e0) {
  6720  z_[k_ - 1] = CMPLXF (1.0, 0.0);
  6721  }
  6722  
  6723  i1_ = 1;
  6724  if (lower_) {
  6725    i1_ = k_ + 1;
  6726  }
  6727  
  6728  if (kk_ >= (*n_)) {
  6729    goto _l120;
  6730  }
  6731  
  6732  w_ = -z_[k_ - 1];
  6733  (void) _caxpy (($0_ = (*n_) - kk_, &$0_), &w_, &t_[i1_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &z_[i1_ - 1], &_k1);
  6734  _l120:;
  6735  }
  6736  
  6737  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  6738  (void) _csscal (n_, &s_, z_, &_k1);
  6739  ynorm_ = s_ * ynorm_;
  6740  if (tnorm_ != 0.0e0) {
  6741    (*rcond_) = ynorm_ / tnorm_;
  6742  }
  6743  
  6744  if (tnorm_ == 0.0e0) {
  6745    (*rcond_) = 0.0;
  6746  }
  6747  
  6748  __calls[45].calls++;
  6749  return 0;
  6750  }
  6751  
  6752  int_4 _ctrdi (complex_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_8 _p_ det_, int_4 _p_ job_, int_4 _p_ info_)
  6753  { // ** body not listed **
  6772  }
  6773  
  6774  det_[0] = CMPLXF (ten_, 0.0) * det_[0];
  6775  det_[1] = det_[1] - CMPLXF (1.0, 0.0);
  6776  goto _l10;
  6777  _l20:;
  6778  _l30:;
  6779  if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
  6780  goto _l40;
  6781  }
  6782  
  6783  det_[0] = det_[0] / CMPLXF (ten_, 0.0);
  6784  det_[1] = det_[1] + CMPLXF (1.0, 0.0);
  6785  goto _l30;
  6786  _l40:;
  6787  }
  6788  
  6789  _l60:;
  6790  _l70:;
  6791  if (_imod ((*job_) / 10, 10) == 0) {
  6792    goto _l170;
  6793  }
  6794  
  6795  if (_imod ((*job_), 10) == 0) {
  6796    goto _l120;
  6797  }
  6798  
  6799  for (k_ = 1; k_ <= (*n_); (k_)++) {
  6800    (*info_) = k_;
  6801    if (({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  6802    (zdum__1_));}) == 0.0e0) {
  6803    goto _l110;
  6804  }
  6805  
  6806  t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
  6807  temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
  6808  (void) _cscal (($0_ = k_ - 1, &$0_), &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1);
  6809  kp1_ = k_ + 1;
  6810  if ((*n_) < kp1_) {
  6811    goto _l90;
  6812  }
  6813  
  6814  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
  6815    temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
  6816    t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
  6817    (void) _caxpy (&k_, &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1);
  6818  }
  6819  
  6820  _l90:;
  6821  }
  6822  
  6823  (*info_) = 0;
  6824  _l110:;
  6825  goto _l160;
  6826  _l120:;
  6827  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  6828    k_ = (*n_) + 1 - kb_;
  6829    (*info_) = k_;
  6830    if (({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  6831    (zdum__1_));}) == 0.0e0) {
  6832    goto _l180;
  6833  }
  6834  
  6835  t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
  6836  temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
  6837  if (k_ != (*n_)) {
  6838    (void) _cscal (($1_ = (*n_) - k_, &$1_), &temp_, &t_[k_ + 1 - 1 + ((*ldt_)) * ((k_ - 1))], &_k1);
  6839  }
  6840  
  6841  km1_ = k_ - 1;
  6842  if (km1_ < 1) {
  6843    goto _l140;
  6844  }
  6845  
  6846  for (j_ = 1; j_ <= km1_; (j_)++) {
  6847    temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
  6848    t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
  6849    (void) _caxpy (($2_ = (*n_) - k_ + 1, &$2_), &temp_, &t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[k_ - 1 + ((*ldt_)) 
  6850    * ((j_ - 1))], &_k1);
  6851  }
  6852  
  6853  _l140:;
  6854  }
  6855  
  6856  (*info_) = 0;
  6857  _l160:;
  6858  _l170:;
  6859  _l180:;
  6860  __calls[46].calls++;
  6861  return 0;
  6862  }
  6863  
  6864  int_4 _ctrsl (complex_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_8 _p_ b_, int_4 _p_ job_, int_4 _p_ info_)
  6865  { // ** body not listed **
  6875  }
  6876  
  6877  (*info_) = 0;
  6878  case_ = 1;
  6879  if (_imod ((*job_), 10) != 0) {
  6880    case_ = 2;
  6881  }
  6882  
  6883  if (_imod ((*job_), 100) / 10 != 0) {
  6884    case_ = case_ + 2;
  6885  }
  6886  
  6887  switch (case_) {
  6888    default:
  6889    case 1: goto _l20;
  6890    case 2: goto _l50;
  6891    case 3: goto _l80;
  6892    case 4: goto _l110;
  6893  }
  6894  
  6895  _l20:;
  6896  b_[0] = b_[0] / t_[0 + ((*ldt_)) * ((0))];
  6897  if ((*n_) < 2) {
  6898    goto _l40;
  6899  }
  6900  
  6901  for (j_ = 2; j_ <= (*n_); (j_)++) {
  6902    temp_ = -b_[j_ - 1 - 1];
  6903    (void) _caxpy (($0_ = (*n_) - j_ + 1, &$0_), &temp_, &t_[j_ - 1 + ((*ldt_)) * ((j_ - 1 - 1))], &_k1, &b_[j_ - 1], &_k1)
  6904    ;
  6905    b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
  6906  }
  6907  
  6908  _l40:;
  6909  goto _l140;
  6910  _l50:;
  6911  b_[(*n_) - 1] = b_[(*n_) - 1] / t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))];
  6912  if ((*n_) < 2) {
  6913    goto _l70;
  6914  }
  6915  
  6916  for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
  6917    j_ = (*n_) - jj_ + 1;
  6918    temp_ = -b_[j_ + 1 - 1];
  6919    (void) _caxpy (&j_, &temp_, &t_[0 + ((*ldt_)) * ((j_ + 1 - 1))], &_k1, &b_[0], &_k1);
  6920    b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
  6921  }
  6922  
  6923  _l70:;
  6924  goto _l140;
  6925  _l80:;
  6926  b_[(*n_) - 1] = b_[(*n_) - 1] / conjf (t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))]);
  6927  if ((*n_) < 2) {
  6928    goto _l100;
  6929  }
  6930  
  6931  for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
  6932    j_ = (*n_) - jj_ + 1;
  6933    b_[j_ - 1] = b_[j_ - 1] - _cdotc (($1_ = jj_ - 1, &$1_), &t_[j_ + 1 - 1 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[j_ + 1 - 
  6934    1], &_k1);
  6935    b_[j_ - 1] = b_[j_ - 1] / conjf (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
  6936  }
  6937  
  6938  _l100:;
  6939  goto _l140;
  6940  _l110:;
  6941  b_[0] = b_[0] / conjf (t_[0 + ((*ldt_)) * ((0))]);
  6942  if ((*n_) < 2) {
  6943    goto _l130;
  6944  }
  6945  
  6946  for (j_ = 2; j_ <= (*n_); (j_)++) {
  6947    b_[j_ - 1] = b_[j_ - 1] - _cdotc (($2_ = j_ - 1, &$2_), &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[0], &_k1);
  6948    b_[j_ - 1] = b_[j_ - 1] / conjf (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
  6949  }
  6950  
  6951  _l130:;
  6952  _l140:;
  6953  _l150:;
  6954  __calls[47].calls++;
  6955  return 0;
  6956  }
  6957  
  6958  int_4 _dchdc (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, real_8 _p_ work_, int_4 _p_ jpvt_, int_4 _p_ job_, int_4 _p_ 
  6959  info_)
  6960  { // ** body not listed **
  7132  }
  7133  
  7134  int_4 _dchdd (real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_8 _p_ x_, real_8 _p_ z_, int_4 _p_ ldz_, int_4 _p_ nz_, 
  7135  real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ info_)
  7136  { // ** body not listed **
  7205  }
  7206  
  7207  int_4 _dchex (real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, real_8 _p_ z_, int_4 _p_ ldz_, 
  7208  int_4 _p_ nz_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ job_)
  7209  { // ** body not listed **
  7327  }
  7328  
  7329  int_4 _dchud (real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_8 _p_ x_, real_8 _p_ z_, int_4 _p_ ldz_, int_4 _p_ nz_, 
  7330  real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_)
  7331  { // ** body not listed **
  7370  }
  7371  
  7372  int_4 _dgbco (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_ 
  7373  rcond_, real_8 _p_ z_)
  7374  { // ** body not listed **
  7526  }
  7527  
  7528  int_4 _dgbdi (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_ 
  7529  det_)
  7530  { // ** body not listed **
  7565  }
  7566  
  7567  int_4 _dgbfa (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 _p_ 
  7568  info_)
  7569  { // ** body not listed **
  7653  }
  7654  
  7655  int_4 _dgbsl (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_ 
  7656  b_, int_4 _p_ job_)
  7657  { // ** body not listed **
  7726  }
  7727  
  7728  int_4 _dgeco (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ rcond_, real_8 _p_ z_)
  7729  { // ** body not listed **
  7860  }
  7861  
  7862  int_4 _dgedi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ det_, real_8 _p_ work_, int_4 
  7863  _p_ job_)
  7864  { // ** body not listed **
  7943  }
  7944  
  7945  int_4 _dgefa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
  7946  { // ** body not listed **
  7995  }
  7996  
  7997  int_4 _dgesl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ b_, int_4 _p_ job_)
  7998  { // ** body not listed **
  8054  }
  8055  
  8056  int_4 _dgtsl (int_4 _p_ n_, real_8 _p_ c_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ b_, int_4 _p_ info_)
  8057  { // ** body not listed **
  8125  }
  8126  
  8127  int_4 _dpbco (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ 
  8128  info_)
  8129  { // ** body not listed **
  8268  }
  8269  
  8270  int_4 _dpbdi (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ det_)
  8271  { // ** body not listed **
  8302  }
  8303  
  8304  int_4 _dpbfa (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
  8305  { // ** body not listed **
  8339  }
  8340  
  8341  int_4 _dpbsl (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ b_)
  8342  { // ** body not listed **
  8364  }
  8365  
  8366  int_4 _dpoco (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ info_)
  8367  { // ** body not listed **
  8490  }
  8491  
  8492  int_4 _dpodi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
  8493  { // ** body not listed **
  8561  }
  8562  
  8563  int_4 _dpofa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
  8564  { // ** body not listed **
  8594  }
  8595  
  8596  int_4 _dposl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ b_)
  8597  { // ** body not listed **
  8614  }
  8615  
  8616  int_4 _dppco (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ info_)
  8617  { // ** body not listed **
  8753  }
  8754  
  8755  int_4 _dppdi (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
  8756  { // ** body not listed **
  8840  }
  8841  
  8842  int_4 _dppfa (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
  8843  { // ** body not listed **
  8878  }
  8879  
  8880  int_4 _dppsl (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ b_)
  8881  { // ** body not listed **
  8901  }
  8902  
  8903  int_4 _dptsl (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ b_)
  8904  { // ** body not listed **
  8956  }
  8957  
  8958  int_4 _dqrdc (real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_8 _p_ qraux_, int_4 _p_ jpvt_, real_8 _p_ 
  8959  work_, int_4 _p_ job_)
  8960  { // ** body not listed **
  9096  }
  9097  
  9098  int_4 _dqrsl (real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ qraux_, real_8 _p_ y_, real_8 _p_ 
  9099  qy_, real_8 _p_ qty_, real_8 _p_ b_, real_8 _p_ rsd_, real_8 _p_ xb_, int_4 _p_ job_, int_4 _p_ info_)
  9100  { // ** body not listed **
  9257  }
  9258  
  9259  int_4 _dsico (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, real_8 _p_ z_)
  9260  { // ** body not listed **
  9479  }
  9480  
  9481  int_4 _dsidi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ det_, int_4 _p_ inert_, real_8 
  9482  _p_ work_, int_4 _p_ job_)
  9483  { // ** body not listed **
  9651  }
  9652  
  9653  int_4 _dsifa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
  9654  { // ** body not listed **
  9796  }
  9797  
  9798  int_4 _dsisl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ b_)
  9799  { // ** body not listed **
  9899  }
  9900  
  9901  int_4 _dspco (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, real_8 _p_ z_)
  9902  { // ** body not listed **
 10153  }
 10154  
 10155  int_4 _dspdi (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ det_, int_4 _p_ inert_, real_8 _p_ work_, int_4 
 10156  _p_ job_)
 10157  { // ** body not listed **
 10345  }
 10346  
 10347  int_4 _dspfa (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 10348  { // ** body not listed **
 10521  }
 10522  
 10523  int_4 _dspsl (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ b_)
 10524  { // ** body not listed **
 10635  }
 10636  
 10637  int_4 _dsvdc (real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_8 _p_ s_, real_8 _p_ e_, real_8 _p_ u_, 
 10638  int_4 _p_ ldu_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ work_, int_4 _p_ job_, int_4 _p_ info_)
 10639  { // ** body not listed **
 11038  }
 11039  
 11040  int_4 _dtrco (real_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ job_)
 11041  { // ** body not listed **
 11164  }
 11165  
 11166  int_4 _dtrdi (real_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_, int_4 _p_ info_)
 11167  { // ** body not listed **
 11259  }
 11260  
 11261  int_4 _dtrsl (real_8 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ job_, int_4 _p_ info_)
 11262  { // ** body not listed **
 11340  }
 11341  
 11342  int_4 _schdc (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, real_4 _p_ work_, int_4 _p_ jpvt_, int_4 _p_ job_, int_4 _p_ 
 11343  info_)
 11344  { // ** body not listed **
 11516  }
 11517  
 11518  int_4 _schdd (real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_4 _p_ x_, real_4 _p_ z_, int_4 _p_ ldz_, int_4 _p_ nz_, 
 11519  real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ info_)
 11520  { // ** body not listed **
 11588  }
 11589  
 11590  int_4 _schex (real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, real_4 _p_ z_, int_4 _p_ ldz_, 
 11591  int_4 _p_ nz_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ job_)
 11592  { // ** body not listed **
 11710  }
 11711  
 11712  int_4 _schud (real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, real_4 _p_ x_, real_4 _p_ z_, int_4 _p_ ldz_, int_4 _p_ nz_, 
 11713  real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_)
 11714  { // ** body not listed **
 11753  }
 11754  
 11755  int_4 _sgbco (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_ 
 11756  rcond_, real_4 _p_ z_)
 11757  { // ** body not listed **
 11909  }
 11910  
 11911  int_4 _sgbdi (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_ 
 11912  det_)
 11913  { // ** body not listed **
 11948  }
 11949  
 11950  int_4 _sgbfa (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 _p_ 
 11951  info_)
 11952  { // ** body not listed **
 12036  }
 12037  
 12038  int_4 _sgbsl (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_ 
 12039  b_, int_4 _p_ job_)
 12040  { // ** body not listed **
 12109  }
 12110  
 12111  int_4 _sgeco (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ rcond_, real_4 _p_ z_)
 12112  { // ** body not listed **
 12243  }
 12244  
 12245  int_4 _sgedi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ det_, real_4 _p_ work_, int_4 
 12246  _p_ job_)
 12247  { // ** body not listed **
 12326  }
 12327  
 12328  int_4 _sgefa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
 12329  { // ** body not listed **
 12378  }
 12379  
 12380  int_4 _sgesl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_4 _p_ b_, int_4 _p_ job_)
 12381  { // ** body not listed **
 12437  }
 12438  
 12439  int_4 _sgtsl (int_4 _p_ n_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ b_, int_4 _p_ info_)
 12440  { // ** body not listed **
 12508  }
 12509  
 12510  int_4 _spbco (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ 
 12511  info_)
 12512  { // ** body not listed **
 12651  }
 12652  
 12653  int_4 _spbdi (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ det_)
 12654  { // ** body not listed **
 12685  }
 12686  
 12687  int_4 _spbfa (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
 12688  { // ** body not listed **
 12722  }
 12723  
 12724  int_4 _spbsl (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ b_)
 12725  { // ** body not listed **
 12747  }
 12748  
 12749  int_4 _spoco (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ info_)
 12750  { // ** body not listed **
 12873  }
 12874  
 12875  int_4 _spodi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
 12876  { // ** body not listed **
 12944  }
 12945  
 12946  int_4 _spofa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
 12947  { // ** body not listed **
 12977  }
 12978  
 12979  int_4 _sposl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ b_)
 12980  { // ** body not listed **
 12997  }
 12998  
 12999  int_4 _sppco (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ info_)
 13000  { // ** body not listed **
 13136  }
 13137  
 13138  int_4 _sppdi (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
 13139  { // ** body not listed **
 13223  }
 13224  
 13225  int_4 _sppfa (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
 13226  { // ** body not listed **
 13261  }
 13262  
 13263  int_4 _sppsl (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ b_)
 13264  { // ** body not listed **
 13284  }
 13285  
 13286  int_4 _sptsl (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ b_)
 13287  { // ** body not listed **
 13339  }
 13340  
 13341  int_4 _sqrdc (real_4 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_4 _p_ qraux_, int_4 _p_ jpvt_, real_4 _p_ 
 13342  work_, int_4 _p_ job_)
 13343  { // ** body not listed **
 13479  }
 13480  
 13481  int_4 _sqrsl (real_4 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ qraux_, real_4 _p_ y_, real_4 _p_ 
 13482  qy_, real_4 _p_ qty_, real_4 _p_ b_, real_4 _p_ rsd_, real_4 _p_ xb_, int_4 _p_ job_, int_4 _p_ info_)
 13483  { // ** body not listed **
 13640  }
 13641  
 13642  int_4 _ssico (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, real_4 _p_ z_)
 13643  { // ** body not listed **
 13862  }
 13863  
 13864  int_4 _ssidi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ det_, int_4 _p_ inert_, real_4 
 13865  _p_ work_, int_4 _p_ job_)
 13866  { // ** body not listed **
 14034  }
 14035  
 14036  int_4 _ssifa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 14037  { // ** body not listed **
 14179  }
 14180  
 14181  int_4 _ssisl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ b_)
 14182  { // ** body not listed **
 14282  }
 14283  
 14284  int_4 _sspco (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, real_4 _p_ z_)
 14285  { // ** body not listed **
 14536  }
 14537  
 14538  int_4 _sspdi (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ det_, int_4 _p_ inert_, real_4 _p_ work_, int_4 
 14539  _p_ job_)
 14540  { // ** body not listed **
 14728  }
 14729  
 14730  int_4 _sspfa (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 14731  { // ** body not listed **
 14904  }
 14905  
 14906  int_4 _sspsl (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ b_)
 14907  { // ** body not listed **
 15018  }
 15019  
 15020  int_4 _ssvdc (real_4 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, real_4 _p_ s_, real_4 _p_ e_, real_4 _p_ u_, 
 15021  int_4 _p_ ldu_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_)
 15022  { // ** body not listed **
 15421  }
 15422  
 15423  int_4 _strco (real_4 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ job_)
 15424  { // ** body not listed **
 15547  }
 15548  
 15549  int_4 _strdi (real_4 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_, int_4 _p_ info_)
 15550  { // ** body not listed **
 15642  }
 15643  
 15644  int_4 _strsl (real_4 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ job_, int_4 _p_ info_)
 15645  { // ** body not listed **
 15723  }
 15724  
 15725  int_4 _zchdc (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ p_, complex_16 _p_ work_, int_4 _p_ jpvt_, int_4 _p_ job_, 
 15726  int_4 _p_ info_)
 15727  { // ** body not listed **
 15903  }
 15904  
 15905  int_4 _zchdd (complex_16 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_16 _p_ x_, complex_16 _p_ z_, int_4 _p_ ldz_, 
 15906  int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ info_)
 15907  { // ** body not listed **
 15977  }
 15978  
 15979  int_4 _zchex (complex_16 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, int_4 _p_ k_, int_4 _p_ l_, complex_16 _p_ z_, int_4 _p_ 
 15980  ldz_, int_4 _p_ nz_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ job_)
 15981  { // ** body not listed **
 16099  }
 16100  
 16101  int_4 _zchud (complex_16 _p_ r_, int_4 _p_ ldr_, int_4 _p_ p_, complex_16 _p_ x_, complex_16 _p_ z_, int_4 _p_ ldz_, 
 16102  int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_)
 16103  { // ** body not listed **
 16143  }
 16144  
 16145  int_4 _zgbco (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 
 16146  _p_ rcond_, complex_16 _p_ z_)
 16147  { // ** body not listed **
 16184  }
 16185  
 16186  s_ = ({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 16187  (zdum__1_));}) / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16188  (void) _zdscal (n_, &s_, z_, &_k1);
 16189  ek_ = CMPLX (s_, 0.0) * ek_;
 16190  _l30:;
 16191  wk_ = ek_ - z_[k_ - 1];
 16192  wkm_ = -ek_ - z_[k_ - 1];
 16193  s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16194  sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16195  if (({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 16196  == 0.0e0) {
 16197  goto _l40;
 16198  }
 16199  
 16200  wk_ = wk_ / conj (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
 16201  wkm_ = wkm_ / conj (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
 16202  goto _l50;
 16203  _l40:;
 16204  wk_ = CMPLX (1.0, 0.0);
 16205  wkm_ = CMPLX (1.0, 0.0);
 16206  _l50:;
 16207  kp1_ = k_ + 1;
 16208  ju_ = _min (_max (ju_, (*mu_) + ipvt_[k_ - 1]), (*n_));
 16209  mm_ = m_;
 16210  if (kp1_ > ju_) {
 16211    goto _l90;
 16212  }
 16213  
 16214  for (j_ = kp1_; j_ <= ju_; (j_)++) {
 16215    mm_ = mm_ - 1;
 16216    sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal 
 16217    (zdum__1_)) + _abs (cimag (zdum__1_));});
 16218    z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
 16219    s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16220  }
 16221  
 16222  if (s_ >= sm_) {
 16223    goto _l80;
 16224  }
 16225  
 16226  t_ = wkm_ - wk_;
 16227  wk_ = wkm_;
 16228  mm_ = m_;
 16229  for (j_ = kp1_; j_ <= ju_; (j_)++) {
 16230    mm_ = mm_ - 1;
 16231    z_[j_ - 1] = z_[j_ - 1] + t_ * conj (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
 16232  }
 16233  
 16234  _l80:;
 16235  _l90:;
 16236  z_[k_ - 1] = wk_;
 16237  }
 16238  
 16239  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 16240  (void) _zdscal (n_, &s_, z_, &_k1);
 16241  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 16242    k_ = (*n_) + 1 - kb_;
 16243    lm_ = _min ((*ml_), (*n_) - k_);
 16244    if (k_ < (*n_)) {
 16245      z_[k_ - 1] = z_[k_ - 1] + _zdotc (&lm_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
 16246    }
 16247    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= 1.0e0) {
 16248    goto _l110;
 16249  }
 16250  
 16251  s_ = 1.0e0 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16252  (void) _zdscal (n_, &s_, z_, &_k1);
 16253  _l110:;
 16254  l_ = ipvt_[k_ - 1];
 16255  t_ = z_[l_ - 1];
 16256  z_[l_ - 1] = z_[k_ - 1];
 16257  z_[k_ - 1] = t_;
 16258  }
 16259  
 16260  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 16261  (void) _zdscal (n_, &s_, z_, &_k1);
 16262  ynorm_ = 1.0;
 16263  for (k_ = 1; k_ <= (*n_); (k_)++) {
 16264    l_ = ipvt_[k_ - 1];
 16265    t_ = z_[l_ - 1];
 16266    z_[l_ - 1] = z_[k_ - 1];
 16267    z_[k_ - 1] = t_;
 16268    lm_ = _min ((*ml_), (*n_) - k_);
 16269    if (k_ < (*n_)) {
 16270      (void) _zaxpy (&lm_, &t_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
 16271    }
 16272    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= 1.0e0) {
 16273    goto _l130;
 16274  }
 16275  
 16276  s_ = 1.0e0 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16277  (void) _zdscal (n_, &s_, z_, &_k1);
 16278  ynorm_ = s_ * ynorm_;
 16279  _l130:;
 16280  }
 16281  
 16282  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 16283  (void) _zdscal (n_, &s_, z_, &_k1);
 16284  ynorm_ = s_ * ynorm_;
 16285  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 16286    k_ = (*n_) + 1 - kb_;
 16287    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 16288    abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 16289    goto _l150;
 16290  }
 16291  
 16292  s_ = ({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 16293  (zdum__1_));}) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16294  (void) _zdscal (n_, &s_, z_, &_k1);
 16295  ynorm_ = s_ * ynorm_;
 16296  _l150:;
 16297  if (({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 16298  != 0.0e0) {
 16299  z_[k_ - 1] = z_[k_ - 1] / abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))];
 16300  }
 16301  
 16302  if (({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 16303  == 0.0e0) {
 16304  z_[k_ - 1] = CMPLX (1.0, 0.0);
 16305  }
 16306  
 16307  lm_ = _min (k_, m_) - 1;
 16308  la_ = m_ - lm_;
 16309  lz_ = k_ - lm_;
 16310  t_ = -z_[k_ - 1];
 16311  (void) _zaxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lz_ - 1], &_k1);
 16312  }
 16313  
 16314  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 16315  (void) _zdscal (n_, &s_, z_, &_k1);
 16316  ynorm_ = s_ * ynorm_;
 16317  if (anorm_ != 0.0e0) {
 16318    (*rcond_) = ynorm_ / anorm_;
 16319  }
 16320  
 16321  if (anorm_ == 0.0e0) {
 16322    (*rcond_) = 0.0;
 16323  }
 16324  
 16325  __calls[132].calls++;
 16326  return 0;
 16327  }
 16328  
 16329  int_4 _zgbdi (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
 16330  complex_16 _p_ det_)
 16331  { // ** body not listed **
 16350  }
 16351  
 16352  det_[0] = CMPLX (ten_, 0.0) * det_[0];
 16353  det_[1] = det_[1] - CMPLX (1.0, 0.0);
 16354  goto _l10;
 16355  _l20:;
 16356  _l30:;
 16357  if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < ten_) {
 16358  goto _l40;
 16359  }
 16360  
 16361  det_[0] = det_[0] / CMPLX (ten_, 0.0);
 16362  det_[1] = det_[1] + CMPLX (1.0, 0.0);
 16363  goto _l30;
 16364  _l40:;
 16365  }
 16366  
 16367  _l60:;
 16368  __calls[133].calls++;
 16369  return 0;
 16370  }
 16371  
 16372  int_4 _zgbfa (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 
 16373  _p_ info_)
 16374  { // ** body not listed **
 16451  }
 16452  
 16453  _l130:;
 16454  ipvt_[(*n_) - 1] = (*n_);
 16455  if (({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * (((*n_) - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 16456  (zdum__1_));}) == 0.0e0) {
 16457  (*info_) = (*n_);
 16458  }
 16459  
 16460  __calls[134].calls++;
 16461  return 0;
 16462  }
 16463  
 16464  int_4 _zgbsl (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
 16465  complex_16 _p_ b_, int_4 _p_ job_)
 16466  { // ** body not listed **
 16535  }
 16536  
 16537  int_4 _zgeco (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
 16538  { // ** body not listed **
 16563  }
 16564  
 16565  s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 16566  / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16567  (void) _zdscal (n_, &s_, z_, &_k1);
 16568  ek_ = CMPLX (s_, 0.0) * ek_;
 16569  _l30:;
 16570  wk_ = ek_ - z_[k_ - 1];
 16571  wkm_ = -ek_ - z_[k_ - 1];
 16572  s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16573  sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16574  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 16575  == 0.0e0) {
 16576  goto _l40;
 16577  }
 16578  
 16579  wk_ = wk_ / conj (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
 16580  wkm_ = wkm_ / conj (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
 16581  goto _l50;
 16582  _l40:;
 16583  wk_ = CMPLX (1.0, 0.0);
 16584  wkm_ = CMPLX (1.0, 0.0);
 16585  _l50:;
 16586  kp1_ = k_ + 1;
 16587  if (kp1_ > (*n_)) {
 16588    goto _l90;
 16589  }
 16590  
 16591  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
 16592    sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal 
 16593    (zdum__1_)) + _abs (cimag (zdum__1_));});
 16594    z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
 16595    s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16596  }
 16597  
 16598  if (s_ >= sm_) {
 16599    goto _l80;
 16600  }
 16601  
 16602  t_ = wkm_ - wk_;
 16603  wk_ = wkm_;
 16604  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
 16605    z_[j_ - 1] = z_[j_ - 1] + t_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
 16606  }
 16607  
 16608  _l80:;
 16609  _l90:;
 16610  z_[k_ - 1] = wk_;
 16611  }
 16612  
 16613  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 16614  (void) _zdscal (n_, &s_, z_, &_k1);
 16615  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 16616    k_ = (*n_) + 1 - kb_;
 16617    if (k_ < (*n_)) {
 16618      z_[k_ - 1] = z_[k_ - 1] + _zdotc (($0_ = (*n_) - k_, &$0_), &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 
 16619      - 1], &_k1);
 16620    }
 16621    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= 1.0e0) {
 16622    goto _l110;
 16623  }
 16624  
 16625  s_ = 1.0e0 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16626  (void) _zdscal (n_, &s_, z_, &_k1);
 16627  _l110:;
 16628  l_ = ipvt_[k_ - 1];
 16629  t_ = z_[l_ - 1];
 16630  z_[l_ - 1] = z_[k_ - 1];
 16631  z_[k_ - 1] = t_;
 16632  }
 16633  
 16634  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 16635  (void) _zdscal (n_, &s_, z_, &_k1);
 16636  ynorm_ = 1.0;
 16637  for (k_ = 1; k_ <= (*n_); (k_)++) {
 16638    l_ = ipvt_[k_ - 1];
 16639    t_ = z_[l_ - 1];
 16640    z_[l_ - 1] = z_[k_ - 1];
 16641    z_[k_ - 1] = t_;
 16642    if (k_ < (*n_)) {
 16643      (void) _zaxpy (($1_ = (*n_) - k_, &$1_), &t_, &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
 16644    }
 16645    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= 1.0e0) {
 16646    goto _l130;
 16647  }
 16648  
 16649  s_ = 1.0e0 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16650  (void) _zdscal (n_, &s_, z_, &_k1);
 16651  ynorm_ = s_ * ynorm_;
 16652  _l130:;
 16653  }
 16654  
 16655  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 16656  (void) _zdscal (n_, &s_, z_, &_k1);
 16657  ynorm_ = s_ * ynorm_;
 16658  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 16659    k_ = (*n_) + 1 - kb_;
 16660    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 16661    a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 16662    goto _l150;
 16663  }
 16664  
 16665  s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 16666  / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 16667  (void) _zdscal (n_, &s_, z_, &_k1);
 16668  ynorm_ = s_ * ynorm_;
 16669  _l150:;
 16670  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 16671  != 0.0e0) {
 16672  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 16673  }
 16674  
 16675  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 16676  == 0.0e0) {
 16677  z_[k_ - 1] = CMPLX (1.0, 0.0);
 16678  }
 16679  
 16680  t_ = -z_[k_ - 1];
 16681  (void) _zaxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 16682  }
 16683  
 16684  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 16685  (void) _zdscal (n_, &s_, z_, &_k1);
 16686  ynorm_ = s_ * ynorm_;
 16687  if (anorm_ != 0.0e0) {
 16688    (*rcond_) = ynorm_ / anorm_;
 16689  }
 16690  
 16691  if (anorm_ == 0.0e0) {
 16692    (*rcond_) = 0.0;
 16693  }
 16694  
 16695  __calls[136].calls++;
 16696  return 0;
 16697  }
 16698  
 16699  int_4 _zgedi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_16 _p_ det_, complex_16 _p_ 
 16700  work_, int_4 _p_ job_)
 16701  { // ** body not listed **
 16723  }
 16724  
 16725  det_[0] = CMPLX (ten_, 0.0) * det_[0];
 16726  det_[1] = det_[1] - CMPLX (1.0, 0.0);
 16727  goto _l10;
 16728  _l20:;
 16729  _l30:;
 16730  if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < ten_) {
 16731  goto _l40;
 16732  }
 16733  
 16734  det_[0] = det_[0] / CMPLX (ten_, 0.0);
 16735  det_[1] = det_[1] + CMPLX (1.0, 0.0);
 16736  goto _l30;
 16737  _l40:;
 16738  }
 16739  
 16740  _l60:;
 16741  _l70:;
 16742  if (_imod ((*job_), 10) == 0) {
 16743    goto _l150;
 16744  }
 16745  
 16746  for (k_ = 1; k_ <= (*n_); (k_)++) {
 16747    a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 16748    t_ = -a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 16749    (void) _zscal (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 16750    kp1_ = k_ + 1;
 16751    if ((*n_) < kp1_) {
 16752      goto _l90;
 16753    }
 16754    for (j_ = kp1_; j_ <= (*n_); (j_)++) {
 16755      t_ = a_[k_ - 1 + ((*lda_)) * ((j_ - 1))];
 16756      a_[k_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
 16757      (void) _zaxpy (&k_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
 16758    }
 16759    _l90:;
 16760  }
 16761  
 16762  nm1_ = (*n_) - 1;
 16763  if (nm1_ < 1) {
 16764    goto _l140;
 16765  }
 16766  
 16767  for (kb_ = 1; kb_ <= nm1_; (kb_)++) {
 16768    k_ = (*n_) - kb_;
 16769    kp1_ = k_ + 1;
 16770    for (i_ = kp1_; i_ <= (*n_); (i_)++) {
 16771      work_[i_ - 1] = a_[i_ - 1 + ((*lda_)) * ((k_ - 1))];
 16772      a_[i_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLX (0.0, 0.0);
 16773    }
 16774    for (j_ = kp1_; j_ <= (*n_); (j_)++) {
 16775      t_ = work_[j_ - 1];
 16776      (void) _zaxpy (n_, &t_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 16777    }
 16778    l_ = ipvt_[k_ - 1];
 16779    if (l_ != k_) {
 16780      (void) _zswap (n_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((l_ - 1))], &_k1);
 16781    }
 16782  }
 16783  
 16784  _l140:;
 16785  _l150:;
 16786  __calls[137].calls++;
 16787  return 0;
 16788  }
 16789  
 16790  int_4 _zgefa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
 16791  { // ** body not listed **
 16833  }
 16834  
 16835  _l70:;
 16836  ipvt_[(*n_) - 1] = (*n_);
 16837  if (({complex_16 zdum__1_ = a_[(*n_) - 1 + ((*lda_)) * (((*n_) - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 16838  (zdum__1_));}) == 0.0e0) {
 16839  (*info_) = (*n_);
 16840  }
 16841  __calls[138].calls++;
 16842  return 0;
 16843  }
 16844  
 16845  int_4 _zgesl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, complex_16 _p_ b_, int_4 _p_ job_)
 16846  { // ** body not listed **
 16902  }
 16903  
 16904  int_4 _zgtsl (int_4 _p_ n_, complex_16 _p_ c_, complex_16 _p_ d_, complex_16 _p_ e_, complex_16 _p_ b_, int_4 _p_ info_
 16905  )
 16906  { // ** body not listed **
 16939  }
 16940  
 16941  (*info_) = k_;
 16942  goto _l100;
 16943  _l20:;
 16944  t_ = -c_[kp1_ - 1] / c_[k_ - 1];
 16945  c_[kp1_ - 1] = d_[kp1_ - 1] + t_ * d_[k_ - 1];
 16946  d_[kp1_ - 1] = e_[kp1_ - 1] + t_ * e_[k_ - 1];
 16947  e_[kp1_ - 1] = CMPLX (0.0, 0.0);
 16948  b_[kp1_ - 1] = b_[kp1_ - 1] + t_ * b_[k_ - 1];
 16949  }
 16950  
 16951  _l40:;
 16952  if (({complex_16 zdum__1_ = c_[(*n_) - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 16953  goto _l50;
 16954  }
 16955  
 16956  (*info_) = (*n_);
 16957  goto _l90;
 16958  _l50:;
 16959  nm2_ = (*n_) - 2;
 16960  b_[(*n_) - 1] = b_[(*n_) - 1] / c_[(*n_) - 1];
 16961  if ((*n_) == 1) {
 16962    goto _l80;
 16963  }
 16964  
 16965  b_[nm1_ - 1] = (b_[nm1_ - 1] - d_[nm1_ - 1] * b_[(*n_) - 1]) / c_[nm1_ - 1];
 16966  if (nm2_ < 1) {
 16967    goto _l70;
 16968  }
 16969  
 16970  for (kb_ = 1; kb_ <= nm2_; (kb_)++) {
 16971    k_ = nm2_ - kb_ + 1;
 16972    b_[k_ - 1] = (b_[k_ - 1] - d_[k_ - 1] * b_[k_ + 1 - 1] - e_[k_ - 1] * b_[k_ + 2 - 1]) / c_[k_ - 1];
 16973  }
 16974  
 16975  _l70:;
 16976  _l80:;
 16977  _l90:;
 16978  _l100:;
 16979  __calls[140].calls++;
 16980  return 0;
 16981  }
 16982  
 16983  int_4 _zhico (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
 16984  { // ** body not listed **
 17034  }
 17035  
 17036  z_[k_ - 1] = z_[k_ - 1] + ek_;
 17037  (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 17038  if (ks_ == 1) {
 17039    goto _l80;
 17040  }
 17041  
 17042  if (({complex_16 zdum__1_ = z_[k_ - 1 - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 17043  ek_ = ({complex_16 zdum__1_ = ek_; complex_16 zdum2__1_ = z_[k_ - 1 - 1]; ({complex_16 zdum__2_ = zdum__1_; _abs (creal 
 17044  (zdum__2_)) + _abs (cimag (zdum__2_));}) * (zdum2__1_ / ({complex_16 zdum__2_ = zdum2__1_; _abs (creal (zdum__2_)) + 
 17045  _abs (cimag (zdum__2_));}));});
 17046  }
 17047  
 17048  z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 17049  (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 17050  _l80:;
 17051  if (ks_ == 2) {
 17052    goto _l100;
 17053  }
 17054  
 17055  if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 17056  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 17057  goto _l90;
 17058  }
 17059  
 17060  s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 17061  / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 17062  (void) _zdscal (n_, &s_, z_, &_k1);
 17063  ek_ = CMPLX (s_, 0.0) * ek_;
 17064  _l90:;
 17065  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 17066  != 0.0e0) {
 17067  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 17068  }
 17069  
 17070  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 17071  == 0.0e0) {
 17072  z_[k_ - 1] = CMPLX (1.0, 0.0);
 17073  }
 17074  
 17075  goto _l110;
 17076  _l100:;
 17077  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 17078  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 17079  bk_ = z_[k_ - 1] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 17080  bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 17081  denom_ = ak_ * akm1_ - 1.0e0;
 17082  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 17083  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 17084  _l110:;
 17085  k_ = k_ - ks_;
 17086  goto _l60;
 17087  _l120:;
 17088  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 17089  (void) _zdscal (n_, &s_, z_, &_k1);
 17090  k_ = 1;
 17091  _l130:;
 17092  if (k_ > (*n_)) {
 17093    goto _l160;
 17094  }
 17095  
 17096  ks_ = 1;
 17097  if (kpvt_[k_ - 1] < 0) {
 17098    ks_ = 2;
 17099  }
 17100  
 17101  if (k_ == 1) {
 17102    goto _l150;
 17103  }
 17104  
 17105  z_[k_ - 1] = z_[k_ - 1] + _zdotc (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 17106  if (ks_ == 2) {
 17107    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
 17108    &_k1);
 17109  }
 17110  
 17111  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 17112  if (kp_ == k_) {
 17113    goto _l140;
 17114  }
 17115  
 17116  t_ = z_[k_ - 1];
 17117  z_[k_ - 1] = z_[kp_ - 1];
 17118  z_[kp_ - 1] = t_;
 17119  _l140:;
 17120  _l150:;
 17121  k_ = k_ + ks_;
 17122  goto _l130;
 17123  _l160:;
 17124  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 17125  (void) _zdscal (n_, &s_, z_, &_k1);
 17126  ynorm_ = 1.0;
 17127  k_ = (*n_);
 17128  _l170:;
 17129  if (k_ == 0) {
 17130    goto _l230;
 17131  }
 17132  
 17133  ks_ = 1;
 17134  if (kpvt_[k_ - 1] < 0) {
 17135    ks_ = 2;
 17136  }
 17137  
 17138  if (k_ == ks_) {
 17139    goto _l190;
 17140  }
 17141  
 17142  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 17143  kps_ = k_ + 1 - ks_;
 17144  if (kp_ == kps_) {
 17145    goto _l180;
 17146  }
 17147  
 17148  t_ = z_[kps_ - 1];
 17149  z_[kps_ - 1] = z_[kp_ - 1];
 17150  z_[kp_ - 1] = t_;
 17151  _l180:;
 17152  (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 17153  if (ks_ == 2) {
 17154    (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 17155  }
 17156  
 17157  _l190:;
 17158  if (ks_ == 2) {
 17159    goto _l210;
 17160  }
 17161  
 17162  if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 17163  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 17164  goto _l200;
 17165  }
 17166  
 17167  s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 17168  / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 17169  (void) _zdscal (n_, &s_, z_, &_k1);
 17170  ynorm_ = s_ * ynorm_;
 17171  _l200:;
 17172  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 17173  != 0.0e0) {
 17174  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 17175  }
 17176  
 17177  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 17178  == 0.0e0) {
 17179  z_[k_ - 1] = CMPLX (1.0, 0.0);
 17180  }
 17181  
 17182  goto _l220;
 17183  _l210:;
 17184  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 17185  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 17186  bk_ = z_[k_ - 1] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 17187  bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 17188  denom_ = ak_ * akm1_ - 1.0e0;
 17189  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 17190  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 17191  _l220:;
 17192  k_ = k_ - ks_;
 17193  goto _l170;
 17194  _l230:;
 17195  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 17196  (void) _zdscal (n_, &s_, z_, &_k1);
 17197  ynorm_ = s_ * ynorm_;
 17198  k_ = 1;
 17199  _l240:;
 17200  if (k_ > (*n_)) {
 17201    goto _l270;
 17202  }
 17203  
 17204  ks_ = 1;
 17205  if (kpvt_[k_ - 1] < 0) {
 17206    ks_ = 2;
 17207  }
 17208  
 17209  if (k_ == 1) {
 17210    goto _l260;
 17211  }
 17212  
 17213  z_[k_ - 1] = z_[k_ - 1] + _zdotc (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 17214  if (ks_ == 2) {
 17215    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
 17216    &_k1);
 17217  }
 17218  
 17219  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 17220  if (kp_ == k_) {
 17221    goto _l250;
 17222  }
 17223  
 17224  t_ = z_[k_ - 1];
 17225  z_[k_ - 1] = z_[kp_ - 1];
 17226  z_[kp_ - 1] = t_;
 17227  _l250:;
 17228  _l260:;
 17229  k_ = k_ + ks_;
 17230  goto _l240;
 17231  _l270:;
 17232  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 17233  (void) _zdscal (n_, &s_, z_, &_k1);
 17234  ynorm_ = s_ * ynorm_;
 17235  if (anorm_ != 0.0e0) {
 17236    (*rcond_) = ynorm_ / anorm_;
 17237  }
 17238  
 17239  if (anorm_ == 0.0e0) {
 17240    (*rcond_) = 0.0;
 17241  }
 17242  
 17243  __calls[141].calls++;
 17244  return 0;
 17245  }
 17246  
 17247  int_4 _zhidi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ det_, int_4 _p_ inert_, 
 17248  complex_16 _p_ work_, int_4 _p_ job_)
 17249  { // ** body not listed **
 17418  }
 17419  
 17420  int_4 _zhifa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 17421  { // ** body not listed **
 17442  }
 17443  
 17444  goto _l200;
 17445  _l20:;
 17446  km1_ = k_ - 1;
 17447  absakk_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 17448  (zdum__1_));});
 17449  imax_ = _izamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 17450  colmax_ = ({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 17451  (zdum__1_));});
 17452  if (absakk_ < alpha_ * colmax_) {
 17453    goto _l30;
 17454  }
 17455  
 17456  kstep_ = 1;
 17457  swap_ = FALSE;
 17458  goto _l90;
 17459  _l30:;
 17460  rowmax_ = 0.0;
 17461  imaxp1_ = imax_ + 1;
 17462  for (j_ = imaxp1_; j_ <= k_; (j_)++) {
 17463    rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs (creal (zdum__1_)) + _abs 
 17464    (cimag (zdum__1_));}));
 17465  }
 17466  
 17467  if (imax_ == 1) {
 17468    goto _l50;
 17469  }
 17470  
 17471  jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
 17472  rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum__1_)) + 
 17473  _abs (cimag (zdum__1_));}));
 17474  _l50:;
 17475  if (({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 17476  (zdum__1_));}) < alpha_ * rowmax_) {
 17477  goto _l60;
 17478  }
 17479  
 17480  kstep_ = 1;
 17481  swap_ = TRUE;
 17482  goto _l80;
 17483  _l60:;
 17484  if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
 17485    goto _l70;
 17486  }
 17487  
 17488  kstep_ = 1;
 17489  swap_ = FALSE;
 17490  goto _l80;
 17491  _l70:;
 17492  kstep_ = 2;
 17493  swap_ = imax_ != km1_;
 17494  _l80:;
 17495  _l90:;
 17496  if (_max (absakk_, colmax_) != 0.0e0) {
 17497    goto _l100;
 17498  }
 17499  
 17500  kpvt_[k_ - 1] = k_;
 17501  (*info_) = k_;
 17502  goto _l190;
 17503  _l100:;
 17504  if (kstep_ == 2) {
 17505    goto _l140;
 17506  }
 17507  
 17508  if (! (swap_)) {
 17509    goto _l120;
 17510  }
 17511  
 17512  (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 17513  for (jj_ = imax_; jj_ <= k_; (jj_)++) {
 17514    j_ = k_ + imax_ - jj_;
 17515    t_ = conj (a_[j_ - 1 + ((*lda_)) * ((k_ - 1))]);
 17516    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = conj (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
 17517    a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 17518  }
 17519  
 17520  _l120:;
 17521  for (jj_ = 1; jj_ <= km1_; (jj_)++) {
 17522    j_ = k_ - jj_;
 17523    mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 17524    t_ = conj (mulk_);
 17525    (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
 17526    a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLX (creal (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))]), 0.0);
 17527    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
 17528  }
 17529  
 17530  kpvt_[k_ - 1] = k_;
 17531  if (swap_) {
 17532    kpvt_[k_ - 1] = imax_;
 17533  }
 17534  
 17535  goto _l190;
 17536  _l140:;
 17537  if (! (swap_)) {
 17538    goto _l160;
 17539  }
 17540  
 17541  (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
 17542  for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
 17543    j_ = km1_ + imax_ - jj_;
 17544    t_ = conj (a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))]);
 17545    a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = conj (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
 17546    a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 17547  }
 17548  
 17549  t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 17550  a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
 17551  a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
 17552  _l160:;
 17553  km2_ = k_ - 2;
 17554  if (km2_ == 0) {
 17555    goto _l180;
 17556  }
 17557  
 17558  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 17559  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 17560  denom_ = 1.0e0 - ak_ * akm1_;
 17561  for (jj_ = 1; jj_ <= km2_; (jj_)++) {
 17562    j_ = km1_ - jj_;
 17563    bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 17564    bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 17565    mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
 17566    mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
 17567    t_ = conj (mulk_);
 17568    (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
 17569    t_ = conj (mulkm1_);
 17570    (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
 17571    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
 17572    a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
 17573    a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLX (creal (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))]), 0.0);
 17574  }
 17575  
 17576  _l180:;
 17577  kpvt_[k_ - 1] = 1 - k_;
 17578  if (swap_) {
 17579    kpvt_[k_ - 1] = -imax_;
 17580  }
 17581  
 17582  kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 17583  _l190:;
 17584  k_ = k_ - kstep_;
 17585  goto _l10;
 17586  _l200:;
 17587  __calls[143].calls++;
 17588  return 0;
 17589  }
 17590  
 17591  int_4 _zhisl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
 17592  { // ** body not listed **
 17692  }
 17693  
 17694  int_4 _zhpco (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
 17695  { // ** body not listed **
 17752  }
 17753  
 17754  z_[k_ - 1] = z_[k_ - 1] + ek_;
 17755  (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 17756  if (ks_ == 1) {
 17757    goto _l80;
 17758  }
 17759  
 17760  if (({complex_16 zdum__1_ = z_[k_ - 1 - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 17761  ek_ = ({complex_16 zdum__1_ = ek_; complex_16 zdum2__1_ = z_[k_ - 1 - 1]; ({complex_16 zdum__2_ = zdum__1_; _abs (creal 
 17762  (zdum__2_)) + _abs (cimag (zdum__2_));}) * (zdum2__1_ / ({complex_16 zdum__2_ = zdum2__1_; _abs (creal (zdum__2_)) + 
 17763  _abs (cimag (zdum__2_));}));});
 17764  }
 17765  
 17766  z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 17767  (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 17768  _l80:;
 17769  if (ks_ == 2) {
 17770    goto _l100;
 17771  }
 17772  
 17773  if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 17774  ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 17775  goto _l90;
 17776  }
 17777  
 17778  s_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) / ({complex_16 zdum__1_ 
 17779  = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 17780  (void) _zdscal (n_, &s_, z_, &_k1);
 17781  ek_ = CMPLX (s_, 0.0) * ek_;
 17782  _l90:;
 17783  if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 17784  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 17785  }
 17786  
 17787  if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 17788  z_[k_ - 1] = CMPLX (1.0, 0.0);
 17789  }
 17790  
 17791  goto _l110;
 17792  _l100:;
 17793  km1k_ = ik_ + k_ - 1;
 17794  km1km1_ = ikm1_ + k_ - 1;
 17795  ak_ = ap_[kk_ - 1] / conj (ap_[km1k_ - 1]);
 17796  akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 17797  bk_ = z_[k_ - 1] / conj (ap_[km1k_ - 1]);
 17798  bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 17799  denom_ = ak_ * akm1_ - 1.0e0;
 17800  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 17801  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 17802  _l110:;
 17803  k_ = k_ - ks_;
 17804  ik_ = ik_ - k_;
 17805  if (ks_ == 2) {
 17806    ik_ = ik_ - (k_ + 1);
 17807  }
 17808  
 17809  goto _l60;
 17810  _l120:;
 17811  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 17812  (void) _zdscal (n_, &s_, z_, &_k1);
 17813  k_ = 1;
 17814  ik_ = 0;
 17815  _l130:;
 17816  if (k_ > (*n_)) {
 17817    goto _l160;
 17818  }
 17819  
 17820  ks_ = 1;
 17821  if (kpvt_[k_ - 1] < 0) {
 17822    ks_ = 2;
 17823  }
 17824  
 17825  if (k_ == 1) {
 17826    goto _l150;
 17827  }
 17828  
 17829  z_[k_ - 1] = z_[k_ - 1] + _zdotc (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 17830  ikp1_ = ik_ + k_;
 17831  if (ks_ == 2) {
 17832    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 17833  }
 17834  
 17835  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 17836  if (kp_ == k_) {
 17837    goto _l140;
 17838  }
 17839  
 17840  t_ = z_[k_ - 1];
 17841  z_[k_ - 1] = z_[kp_ - 1];
 17842  z_[kp_ - 1] = t_;
 17843  _l140:;
 17844  _l150:;
 17845  ik_ = ik_ + k_;
 17846  if (ks_ == 2) {
 17847    ik_ = ik_ + (k_ + 1);
 17848  }
 17849  
 17850  k_ = k_ + ks_;
 17851  goto _l130;
 17852  _l160:;
 17853  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 17854  (void) _zdscal (n_, &s_, z_, &_k1);
 17855  ynorm_ = 1.0;
 17856  k_ = (*n_);
 17857  ik_ = (*n_) * ((*n_) - 1) / 2;
 17858  _l170:;
 17859  if (k_ == 0) {
 17860    goto _l230;
 17861  }
 17862  
 17863  kk_ = ik_ + k_;
 17864  ikm1_ = ik_ - (k_ - 1);
 17865  ks_ = 1;
 17866  if (kpvt_[k_ - 1] < 0) {
 17867    ks_ = 2;
 17868  }
 17869  
 17870  if (k_ == ks_) {
 17871    goto _l190;
 17872  }
 17873  
 17874  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 17875  kps_ = k_ + 1 - ks_;
 17876  if (kp_ == kps_) {
 17877    goto _l180;
 17878  }
 17879  
 17880  t_ = z_[kps_ - 1];
 17881  z_[kps_ - 1] = z_[kp_ - 1];
 17882  z_[kp_ - 1] = t_;
 17883  _l180:;
 17884  (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 17885  if (ks_ == 2) {
 17886    (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 17887  }
 17888  
 17889  _l190:;
 17890  if (ks_ == 2) {
 17891    goto _l210;
 17892  }
 17893  
 17894  if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 17895  ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 17896  goto _l200;
 17897  }
 17898  
 17899  s_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) / ({complex_16 zdum__1_ 
 17900  = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 17901  (void) _zdscal (n_, &s_, z_, &_k1);
 17902  ynorm_ = s_ * ynorm_;
 17903  _l200:;
 17904  if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 17905  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 17906  }
 17907  
 17908  if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 17909  z_[k_ - 1] = CMPLX (1.0, 0.0);
 17910  }
 17911  
 17912  goto _l220;
 17913  _l210:;
 17914  km1k_ = ik_ + k_ - 1;
 17915  km1km1_ = ikm1_ + k_ - 1;
 17916  ak_ = ap_[kk_ - 1] / conj (ap_[km1k_ - 1]);
 17917  akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 17918  bk_ = z_[k_ - 1] / conj (ap_[km1k_ - 1]);
 17919  bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 17920  denom_ = ak_ * akm1_ - 1.0e0;
 17921  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 17922  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 17923  _l220:;
 17924  k_ = k_ - ks_;
 17925  ik_ = ik_ - k_;
 17926  if (ks_ == 2) {
 17927    ik_ = ik_ - (k_ + 1);
 17928  }
 17929  
 17930  goto _l170;
 17931  _l230:;
 17932  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 17933  (void) _zdscal (n_, &s_, z_, &_k1);
 17934  ynorm_ = s_ * ynorm_;
 17935  k_ = 1;
 17936  ik_ = 0;
 17937  _l240:;
 17938  if (k_ > (*n_)) {
 17939    goto _l270;
 17940  }
 17941  
 17942  ks_ = 1;
 17943  if (kpvt_[k_ - 1] < 0) {
 17944    ks_ = 2;
 17945  }
 17946  
 17947  if (k_ == 1) {
 17948    goto _l260;
 17949  }
 17950  
 17951  z_[k_ - 1] = z_[k_ - 1] + _zdotc (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 17952  ikp1_ = ik_ + k_;
 17953  if (ks_ == 2) {
 17954    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 17955  }
 17956  
 17957  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 17958  if (kp_ == k_) {
 17959    goto _l250;
 17960  }
 17961  
 17962  t_ = z_[k_ - 1];
 17963  z_[k_ - 1] = z_[kp_ - 1];
 17964  z_[kp_ - 1] = t_;
 17965  _l250:;
 17966  _l260:;
 17967  ik_ = ik_ + k_;
 17968  if (ks_ == 2) {
 17969    ik_ = ik_ + (k_ + 1);
 17970  }
 17971  
 17972  k_ = k_ + ks_;
 17973  goto _l240;
 17974  _l270:;
 17975  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 17976  (void) _zdscal (n_, &s_, z_, &_k1);
 17977  ynorm_ = s_ * ynorm_;
 17978  if (anorm_ != 0.0e0) {
 17979    (*rcond_) = ynorm_ / anorm_;
 17980  }
 17981  
 17982  if (anorm_ == 0.0e0) {
 17983    (*rcond_) = 0.0;
 17984  }
 17985  
 17986  __calls[145].calls++;
 17987  return 0;
 17988  }
 17989  
 17990  int_4 _zhpdi (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ det_, int_4 _p_ inert_, complex_16 _p_ 
 17991  work_, int_4 _p_ job_)
 17992  { // ** body not listed **
 18181  }
 18182  
 18183  int_4 _zhpfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 18184  { // ** body not listed **
 18206  }
 18207  
 18208  goto _l200;
 18209  _l20:;
 18210  km1_ = k_ - 1;
 18211  kk_ = ik_ + k_;
 18212  absakk_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 18213  imax_ = _izamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
 18214  imk_ = ik_ + imax_;
 18215  colmax_ = ({complex_16 zdum__1_ = ap_[imk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 18216  if (absakk_ < alpha_ * colmax_) {
 18217    goto _l30;
 18218  }
 18219  
 18220  kstep_ = 1;
 18221  swap_ = FALSE;
 18222  goto _l90;
 18223  _l30:;
 18224  rowmax_ = 0.0;
 18225  imaxp1_ = imax_ + 1;
 18226  im_ = imax_ * (imax_ - 1) / 2;
 18227  imj_ = im_ + 2 * imax_;
 18228  for (j_ = imaxp1_; j_ <= k_; (j_)++) {
 18229    rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = ap_[imj_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}));
 18230    imj_ = imj_ + j_;
 18231  }
 18232  
 18233  if (imax_ == 1) {
 18234    goto _l50;
 18235  }
 18236  jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
 18237  jmim_ = jmax_ + im_;
 18238  rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = ap_[jmim_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}))
 18239  ;
 18240  _l50:;
 18241  imim_ = imax_ + im_;
 18242  if (({complex_16 zdum__1_ = ap_[imim_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < alpha_ * rowmax_) {
 18243  goto _l60;
 18244  }
 18245  
 18246  kstep_ = 1;
 18247  swap_ = TRUE;
 18248  goto _l80;
 18249  _l60:;
 18250  if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
 18251    goto _l70;
 18252  }
 18253  
 18254  kstep_ = 1;
 18255  swap_ = FALSE;
 18256  goto _l80;
 18257  _l70:;
 18258  kstep_ = 2;
 18259  swap_ = imax_ != km1_;
 18260  _l80:;
 18261  _l90:;
 18262  if (_max (absakk_, colmax_) != 0.0e0) {
 18263    goto _l100;
 18264  }
 18265  
 18266  kpvt_[k_ - 1] = k_;
 18267  (*info_) = k_;
 18268  goto _l190;
 18269  _l100:;
 18270  if (kstep_ == 2) {
 18271    goto _l140;
 18272  }
 18273  
 18274  if (! (swap_)) {
 18275    goto _l120;
 18276  }
 18277  
 18278  (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 18279  imj_ = ik_ + imax_;
 18280  for (jj_ = imax_; jj_ <= k_; (jj_)++) {
 18281    j_ = k_ + imax_ - jj_;
 18282    jk_ = ik_ + j_;
 18283    t_ = conj (ap_[jk_ - 1]);
 18284    ap_[jk_ - 1] = conj (ap_[imj_ - 1]);
 18285    ap_[imj_ - 1] = t_;
 18286    imj_ = imj_ - (j_ - 1);
 18287  }
 18288  
 18289  _l120:;
 18290  ij_ = ik_ - (k_ - 1);
 18291  for (jj_ = 1; jj_ <= km1_; (jj_)++) {
 18292    j_ = k_ - jj_;
 18293    jk_ = ik_ + j_;
 18294    mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
 18295    t_ = conj (mulk_);
 18296    (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
 18297    ijj_ = ij_ + j_;
 18298    ap_[ijj_ - 1] = CMPLX (creal (ap_[ijj_ - 1]), 0.0);
 18299    ap_[jk_ - 1] = mulk_;
 18300    ij_ = ij_ - (j_ - 1);
 18301  }
 18302  
 18303  kpvt_[k_ - 1] = k_;
 18304  if (swap_) {
 18305    kpvt_[k_ - 1] = imax_;
 18306  }
 18307  
 18308  goto _l190;
 18309  _l140:;
 18310  km1k_ = ik_ + k_ - 1;
 18311  ikm1_ = ik_ - (k_ - 1);
 18312  if (! (swap_)) {
 18313    goto _l160;
 18314  }
 18315  
 18316  (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
 18317  imj_ = ikm1_ + imax_;
 18318  for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
 18319    j_ = km1_ + imax_ - jj_;
 18320    jkm1_ = ikm1_ + j_;
 18321    t_ = conj (ap_[jkm1_ - 1]);
 18322    ap_[jkm1_ - 1] = conj (ap_[imj_ - 1]);
 18323    ap_[imj_ - 1] = t_;
 18324    imj_ = imj_ - (j_ - 1);
 18325  }
 18326  
 18327  t_ = ap_[km1k_ - 1];
 18328  ap_[km1k_ - 1] = ap_[imk_ - 1];
 18329  ap_[imk_ - 1] = t_;
 18330  _l160:;
 18331  km2_ = k_ - 2;
 18332  if (km2_ == 0) {
 18333    goto _l180;
 18334  }
 18335  
 18336  ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 18337  km1km1_ = ikm1_ + k_ - 1;
 18338  akm1_ = ap_[km1km1_ - 1] / conj (ap_[km1k_ - 1]);
 18339  denom_ = 1.0e0 - ak_ * akm1_;
 18340  ij_ = ik_ - (k_ - 1) - (k_ - 2);
 18341  for (jj_ = 1; jj_ <= km2_; (jj_)++) {
 18342    j_ = km1_ - jj_;
 18343    jk_ = ik_ + j_;
 18344    bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
 18345    jkm1_ = ikm1_ + j_;
 18346    bkm1_ = ap_[jkm1_ - 1] / conj (ap_[km1k_ - 1]);
 18347    mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
 18348    mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
 18349    t_ = conj (mulk_);
 18350    (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
 18351    t_ = conj (mulkm1_);
 18352    (void) _zaxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
 18353    ap_[jk_ - 1] = mulk_;
 18354    ap_[jkm1_ - 1] = mulkm1_;
 18355    ijj_ = ij_ + j_;
 18356    ap_[ijj_ - 1] = CMPLX (creal (ap_[ijj_ - 1]), 0.0);
 18357    ij_ = ij_ - (j_ - 1);
 18358  }
 18359  
 18360  _l180:;
 18361  kpvt_[k_ - 1] = 1 - k_;
 18362  if (swap_) {
 18363    kpvt_[k_ - 1] = -imax_;
 18364  }
 18365  
 18366  kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 18367  _l190:;
 18368  ik_ = ik_ - (k_ - 1);
 18369  if (kstep_ == 2) {
 18370    ik_ = ik_ - (k_ - 2);
 18371  }
 18372  
 18373  k_ = k_ - kstep_;
 18374  goto _l10;
 18375  _l200:;
 18376  __calls[147].calls++;
 18377  return 0;
 18378  }
 18379  
 18380  int_4 _zhpsl (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
 18381  { // ** body not listed **
 18492  }
 18493  
 18494  real_8 _zmach (int_4 _p_ job_)
 18495  { // ** body not listed **
 18530  }
 18531  
 18532  int_4 _zpbco (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ rcond_, complex_16 _p_ z_, 
 18533  int_4 _p_ info_)
 18534  { // ** body not listed **
 18576  }
 18577  
 18578  s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal 
 18579  (zdum__1_)) + _abs (cimag (zdum__1_));});
 18580  (void) _zdscal (n_, &s_, z_, &_k1);
 18581  ek_ = CMPLX (s_, 0.0) * ek_;
 18582  _l60:;
 18583  wk_ = ek_ - z_[k_ - 1];
 18584  wkm_ = -ek_ - z_[k_ - 1];
 18585  s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 18586  sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 18587  wk_ = wk_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 18588  wkm_ = wkm_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 18589  kp1_ = k_ + 1;
 18590  j2_ = _min (k_ + (*m_), (*n_));
 18591  i_ = (*m_) + 1;
 18592  if (kp1_ > j2_) {
 18593    goto _l100;
 18594  }
 18595  
 18596  for (j_ = kp1_; j_ <= j2_; (j_)++) {
 18597    i_ = i_ - 1;
 18598    sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal 
 18599    (zdum__1_)) + _abs (cimag (zdum__1_));});
 18600    z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
 18601    s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 18602  }
 18603  
 18604  if (s_ >= sm_) {
 18605    goto _l90;
 18606  }
 18607  
 18608  t_ = wkm_ - wk_;
 18609  wk_ = wkm_;
 18610  i_ = (*m_) + 1;
 18611  for (j_ = kp1_; j_ <= j2_; (j_)++) {
 18612    i_ = i_ - 1;
 18613    z_[j_ - 1] = z_[j_ - 1] + t_ * conj (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
 18614  }
 18615  
 18616  _l90:;
 18617  _l100:;
 18618  z_[k_ - 1] = wk_;
 18619  }
 18620  
 18621  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 18622  (void) _zdscal (n_, &s_, z_, &_k1);
 18623  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 18624    k_ = (*n_) + 1 - kb_;
 18625    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (abd_[(*m_) + 1 - 
 18626    1 + ((*lda_)) * ((k_ - 1))])) {
 18627    goto _l120;
 18628  }
 18629  
 18630  s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) 
 18631  + _abs (cimag (zdum__1_));});
 18632  (void) _zdscal (n_, &s_, z_, &_k1);
 18633  _l120:;
 18634  z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 18635  lm_ = _min (k_ - 1, (*m_));
 18636  la_ = (*m_) + 1 - lm_;
 18637  lb_ = k_ - lm_;
 18638  t_ = -z_[k_ - 1];
 18639  (void) _zaxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
 18640  }
 18641  
 18642  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 18643  (void) _zdscal (n_, &s_, z_, &_k1);
 18644  ynorm_ = 1.0;
 18645  for (k_ = 1; k_ <= (*n_); (k_)++) {
 18646    lm_ = _min (k_ - 1, (*m_));
 18647    la_ = (*m_) + 1 - lm_;
 18648    lb_ = k_ - lm_;
 18649    z_[k_ - 1] = z_[k_ - 1] - _zdotc (&lm_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
 18650    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (abd_[(*m_) + 1 - 
 18651    1 + ((*lda_)) * ((k_ - 1))])) {
 18652    goto _l140;
 18653  }
 18654  
 18655  s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) 
 18656  + _abs (cimag (zdum__1_));});
 18657  (void) _zdscal (n_, &s_, z_, &_k1);
 18658  ynorm_ = s_ * ynorm_;
 18659  _l140:;
 18660  z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 18661  }
 18662  
 18663  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 18664  (void) _zdscal (n_, &s_, z_, &_k1);
 18665  ynorm_ = s_ * ynorm_;
 18666  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 18667    k_ = (*n_) + 1 - kb_;
 18668    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (abd_[(*m_) + 1 - 
 18669    1 + ((*lda_)) * ((k_ - 1))])) {
 18670    goto _l160;
 18671  }
 18672  
 18673  s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) 
 18674  + _abs (cimag (zdum__1_));});
 18675  (void) _zdscal (n_, &s_, z_, &_k1);
 18676  ynorm_ = s_ * ynorm_;
 18677  _l160:;
 18678  z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 18679  lm_ = _min (k_ - 1, (*m_));
 18680  la_ = (*m_) + 1 - lm_;
 18681  lb_ = k_ - lm_;
 18682  t_ = -z_[k_ - 1];
 18683  (void) _zaxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
 18684  }
 18685  
 18686  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 18687  (void) _zdscal (n_, &s_, z_, &_k1);
 18688  ynorm_ = s_ * ynorm_;
 18689  if (anorm_ != 0.0e0) {
 18690    (*rcond_) = ynorm_ / anorm_;
 18691  }
 18692  
 18693  if (anorm_ == 0.0e0) {
 18694    (*rcond_) = 0.0;
 18695  }
 18696  
 18697  _l180:;
 18698  __calls[150].calls++;
 18699  return 0;
 18700  }
 18701  
 18702  int_4 _zpbdi (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ det_)
 18703  { // ** body not listed **
 18736  }
 18737  
 18738  int_4 _zpbfa (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
 18739  { // ** body not listed **
 18774  }
 18775  
 18776  int_4 _zpbsl (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, complex_16 _p_ b_)
 18777  { // ** body not listed **
 18799  }
 18800  
 18801  int_4 _zpoco (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4 _p_ info_)
 18802  { // ** body not listed **
 18842  }
 18843  
 18844  s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum__1_)) + 
 18845  _abs (cimag (zdum__1_));});
 18846  (void) _zdscal (n_, &s_, z_, &_k1);
 18847  ek_ = CMPLX (s_, 0.0) * ek_;
 18848  _l60:;
 18849  wk_ = ek_ - z_[k_ - 1];
 18850  wkm_ = -ek_ - z_[k_ - 1];
 18851  s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 18852  sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 18853  wk_ = wk_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 18854  wkm_ = wkm_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 18855  kp1_ = k_ + 1;
 18856  if (kp1_ > (*n_)) {
 18857    goto _l100;
 18858  }
 18859  
 18860  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
 18861    sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal 
 18862    (zdum__1_)) + _abs (cimag (zdum__1_));});
 18863    z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
 18864    s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 18865  }
 18866  
 18867  if (s_ >= sm_) {
 18868    goto _l90;
 18869  }
 18870  
 18871  t_ = wkm_ - wk_;
 18872  wk_ = wkm_;
 18873  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
 18874    z_[j_ - 1] = z_[j_ - 1] + t_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
 18875  }
 18876  
 18877  _l90:;
 18878  _l100:;
 18879  z_[k_ - 1] = wk_;
 18880  }
 18881  
 18882  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 18883  (void) _zdscal (n_, &s_, z_, &_k1);
 18884  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 18885    k_ = (*n_) + 1 - kb_;
 18886    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (a_[k_ - 1 + 
 18887    ((*lda_)) * ((k_ - 1))])) {
 18888    goto _l120;
 18889  }
 18890  
 18891  s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs 
 18892  (cimag (zdum__1_));});
 18893  (void) _zdscal (n_, &s_, z_, &_k1);
 18894  _l120:;
 18895  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 18896  t_ = -z_[k_ - 1];
 18897  (void) _zaxpy (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 18898  }
 18899  
 18900  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 18901  (void) _zdscal (n_, &s_, z_, &_k1);
 18902  ynorm_ = 1.0;
 18903  for (k_ = 1; k_ <= (*n_); (k_)++) {
 18904    z_[k_ - 1] = z_[k_ - 1] - _zdotc (($1_ = k_ - 1, &$1_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 18905    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (a_[k_ - 1 + 
 18906    ((*lda_)) * ((k_ - 1))])) {
 18907    goto _l140;
 18908  }
 18909  s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs 
 18910  (cimag (zdum__1_));});
 18911  (void) _zdscal (n_, &s_, z_, &_k1);
 18912  ynorm_ = s_ * ynorm_;
 18913  _l140:;
 18914  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 18915  }
 18916  
 18917  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 18918  (void) _zdscal (n_, &s_, z_, &_k1);
 18919  ynorm_ = s_ * ynorm_;
 18920  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 18921    k_ = (*n_) + 1 - kb_;
 18922    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (a_[k_ - 1 + 
 18923    ((*lda_)) * ((k_ - 1))])) {
 18924    goto _l160;
 18925  }
 18926  
 18927  s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs 
 18928  (cimag (zdum__1_));});
 18929  (void) _zdscal (n_, &s_, z_, &_k1);
 18930  ynorm_ = s_ * ynorm_;
 18931  _l160:;
 18932  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 18933  t_ = -z_[k_ - 1];
 18934  (void) _zaxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 18935  }
 18936  
 18937  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 18938  (void) _zdscal (n_, &s_, z_, &_k1);
 18939  ynorm_ = s_ * ynorm_;
 18940  if (anorm_ != 0.0e0) {
 18941    (*rcond_) = ynorm_ / anorm_;
 18942  }
 18943  
 18944  if (anorm_ == 0.0e0) {
 18945    (*rcond_) = 0.0;
 18946  }
 18947  
 18948  _l180:;
 18949  __calls[154].calls++;
 18950  return 0;
 18951  }
 18952  
 18953  int_4 _zpodi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
 18954  { // ** body not listed **
 19024  }
 19025  
 19026  int_4 _zpofa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
 19027  { // ** body not listed **
 19058  }
 19059  
 19060  int_4 _zposl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_16 _p_ b_)
 19061  { // ** body not listed **
 19078  }
 19079  
 19080  int_4 _zppco (complex_16 _p_ ap_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4 _p_ info_)
 19081  { // ** body not listed **
 19127  }
 19128  
 19129  s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag 
 19130  (zdum__1_));});
 19131  (void) _zdscal (n_, &s_, z_, &_k1);
 19132  ek_ = CMPLX (s_, 0.0) * ek_;
 19133  _l60:;
 19134  wk_ = ek_ - z_[k_ - 1];
 19135  wkm_ = -ek_ - z_[k_ - 1];
 19136  s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 19137  sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 19138  wk_ = wk_ / ap_[kk_ - 1];
 19139  wkm_ = wkm_ / ap_[kk_ - 1];
 19140  kp1_ = k_ + 1;
 19141  kj_ = kk_ + k_;
 19142  if (kp1_ > (*n_)) {
 19143    goto _l100;
 19144  }
 19145  
 19146  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
 19147    sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (ap_[kj_ - 1]); _abs (creal (zdum__1_)) + _abs (cimag 
 19148    (zdum__1_));});
 19149    z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (ap_[kj_ - 1]);
 19150    s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 19151    kj_ = kj_ + j_;
 19152  }
 19153  
 19154  if (s_ >= sm_) {
 19155    goto _l90;
 19156  }
 19157  
 19158  t_ = wkm_ - wk_;
 19159  wk_ = wkm_;
 19160  kj_ = kk_ + k_;
 19161  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
 19162    z_[j_ - 1] = z_[j_ - 1] + t_ * conj (ap_[kj_ - 1]);
 19163    kj_ = kj_ + j_;
 19164  }
 19165  
 19166  _l90:;
 19167  _l100:;
 19168  z_[k_ - 1] = wk_;
 19169  }
 19170  
 19171  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 19172  (void) _zdscal (n_, &s_, z_, &_k1);
 19173  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 19174    k_ = (*n_) + 1 - kb_;
 19175    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (ap_[kk_ - 1])) 
 19176    {
 19177    goto _l120;
 19178  }
 19179  
 19180  s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 19181  (void) _zdscal (n_, &s_, z_, &_k1);
 19182  _l120:;
 19183  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 19184  kk_ = kk_ - k_;
 19185  t_ = -z_[k_ - 1];
 19186  (void) _zaxpy (($0_ = k_ - 1, &$0_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
 19187  }
 19188  
 19189  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 19190  (void) _zdscal (n_, &s_, z_, &_k1);
 19191  ynorm_ = 1.0;
 19192  for (k_ = 1; k_ <= (*n_); (k_)++) {
 19193    z_[k_ - 1] = z_[k_ - 1] - _zdotc (($1_ = k_ - 1, &$1_), &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
 19194    kk_ = kk_ + k_;
 19195    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (ap_[kk_ - 1])) 
 19196    {
 19197    goto _l140;
 19198  }
 19199  
 19200  s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 19201  (void) _zdscal (n_, &s_, z_, &_k1);
 19202  ynorm_ = s_ * ynorm_;
 19203  _l140:;
 19204  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 19205  }
 19206  
 19207  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 19208  (void) _zdscal (n_, &s_, z_, &_k1);
 19209  ynorm_ = s_ * ynorm_;
 19210  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 19211    k_ = (*n_) + 1 - kb_;
 19212    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (ap_[kk_ - 1])) 
 19213    {
 19214    goto _l160;
 19215  }
 19216  
 19217  s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 19218  (void) _zdscal (n_, &s_, z_, &_k1);
 19219  ynorm_ = s_ * ynorm_;
 19220  _l160:;
 19221  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 19222  kk_ = kk_ - k_;
 19223  t_ = -z_[k_ - 1];
 19224  (void) _zaxpy (($2_ = k_ - 1, &$2_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
 19225  }
 19226  
 19227  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 19228  (void) _zdscal (n_, &s_, z_, &_k1);
 19229  ynorm_ = s_ * ynorm_;
 19230  if (anorm_ != 0.0e0) {
 19231    (*rcond_) = ynorm_ / anorm_;
 19232  }
 19233  
 19234  if (anorm_ == 0.0e0) {
 19235    (*rcond_) = 0.0;
 19236  }
 19237  
 19238  _l180:;
 19239  __calls[158].calls++;
 19240  return 0;
 19241  }
 19242  
 19243  int_4 _zppdi (complex_16 _p_ ap_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
 19244  { // ** body not listed **
 19330  }
 19331  
 19332  int_4 _zppfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
 19333  { // ** body not listed **
 19369  }
 19370  
 19371  int_4 _zppsl (complex_16 _p_ ap_, int_4 _p_ n_, complex_16 _p_ b_)
 19372  { // ** body not listed **
 19392  }
 19393  
 19394  int_4 _zptsl (int_4 _p_ n_, complex_16 _p_ d_, complex_16 _p_ e_, complex_16 _p_ b_)
 19395  { // ** body not listed **
 19447  }
 19448  
 19449  int_4 _zqrdc (complex_16 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_16 _p_ qraux_, int_4 _p_ jpvt_, 
 19450  complex_16 _p_ work_, int_4 _p_ job_)
 19451  { // ** body not listed **
 19549  }
 19550  
 19551  (void) _zscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = CMPLX (1.0, 0.0) / nrmxl_, &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 
 19552  1))], &_k1);
 19553  x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLX (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 19554  lp1_ = l_ + 1;
 19555  if ((*p_) < lp1_) {
 19556    goto _l170;
 19557  }
 19558  
 19559  for (j_ = lp1_; j_ <= (*p_); (j_)++) {
 19560    t_ = -_zdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ - 
 19561    1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 19562    (void) _zaxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * 
 19563    ((j_ - 1))], &_k1);
 19564    if (j_ < pl_ || j_ > pu_) {
 19565      goto _l150;
 19566    }
 19567    if (({complex_16 zdum__1_ = qraux_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 19568    goto _l150;
 19569  }
 19570  
 19571  tt_ = 1.0e0 - ($5_ = (cabs (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]) / creal (qraux_[j_ - 1])), $5_ * $5_);
 19572  tt_ = _max (tt_, 0.0);
 19573  t_ = CMPLX (tt_, 0.0);
 19574  tt_ = 1.0e0 + 0.05e0 * tt_ * ($6_ = (creal (qraux_[j_ - 1]) / creal (work_[j_ - 1])), $6_ * $6_);
 19575  if (tt_ == 1.0e0) {
 19576    goto _l130;
 19577  }
 19578  
 19579  qraux_[j_ - 1] = qraux_[j_ - 1] * csqrt (t_);
 19580  goto _l140;
 19581  _l130:;
 19582  qraux_[j_ - 1] = CMPLX (_dznrm2 (($7_ = (*n_) - l_, &$7_), &x_[l_ + 1 - 1 + ((*ldx_)) * ((j_ - 1))], &_k1), 0.0);
 19583  work_[j_ - 1] = qraux_[j_ - 1];
 19584  _l140:;
 19585  _l150:;
 19586  }
 19587  
 19588  _l170:;
 19589  qraux_[l_ - 1] = x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 19590  x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = -nrmxl_;
 19591  _l180:;
 19592  _l190:;
 19593  }
 19594  
 19595  __calls[163].calls++;
 19596  return 0;
 19597  }
 19598  
 19599  int_4 _zqrsl (complex_16 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ k_, complex_16 _p_ qraux_, complex_16 _p_ y_, 
 19600  complex_16 _p_ qy_, complex_16 _p_ qty_, complex_16 _p_ b_, complex_16 _p_ rsd_, complex_16 _p_ xb_, int_4 _p_ job_, 
 19601  int_4 _p_ info_)
 19602  { // ** body not listed **
 19633  }
 19634  
 19635  (*info_) = 1;
 19636  goto _l20;
 19637  _l10:;
 19638  b_[0] = y_[0] / x_[0 + ((*ldx_)) * ((0))];
 19639  _l20:;
 19640  _l30:;
 19641  if (cr_) {
 19642    rsd_[0] = CMPLX (0.0, 0.0);
 19643  }
 19644  
 19645  goto _l250;
 19646  _l40:;
 19647  if (cqy_) {
 19648    (void) _zcopy (n_, y_, &_k1, qy_, &_k1);
 19649  }
 19650  
 19651  if (cqty_) {
 19652    (void) _zcopy (n_, y_, &_k1, qty_, &_k1);
 19653  }
 19654  
 19655  if (! (cqy_)) {
 19656    goto _l70;
 19657  }
 19658  
 19659  for (jj_ = 1; jj_ <= ju_; (jj_)++) {
 19660    j_ = ju_ - jj_ + 1;
 19661    if (({complex_16 zdum__1_ = qraux_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 19662    goto _l50;
 19663  }
 19664  
 19665  temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 19666  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
 19667  t_ = -_zdotc (($0_ = (*n_) - j_ + 1, &$0_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1) / x_[j_ - 1 
 19668  + ((*ldx_)) * ((j_ - 1))];
 19669  (void) _zaxpy (($1_ = (*n_) - j_ + 1, &$1_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1);
 19670  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
 19671  _l50:;
 19672  }
 19673  
 19674  _l70:;
 19675  if (! (cqty_)) {
 19676    goto _l100;
 19677  }
 19678  
 19679  for (j_ = 1; j_ <= ju_; (j_)++) {
 19680    if (({complex_16 zdum__1_ = qraux_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 19681    goto _l80;
 19682  }
 19683  
 19684  temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 19685  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
 19686  t_ = -_zdotc (($2_ = (*n_) - j_ + 1, &$2_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1) / x_[j_ - 
 19687  1 + ((*ldx_)) * ((j_ - 1))];
 19688  (void) _zaxpy (($3_ = (*n_) - j_ + 1, &$3_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1);
 19689  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
 19690  _l80:;
 19691  }
 19692  
 19693  _l100:;
 19694  if (cb_) {
 19695    (void) _zcopy (k_, qty_, &_k1, b_, &_k1);
 19696  }
 19697  
 19698  kp1_ = (*k_) + 1;
 19699  if (cxb_) {
 19700    (void) _zcopy (k_, qty_, &_k1, xb_, &_k1);
 19701  }
 19702  
 19703  if (cr_ && (*k_) < (*n_)) {
 19704    (void) _zcopy (($4_ = (*n_) - (*k_), &$4_), &qty_[kp1_ - 1], &_k1, &rsd_[kp1_ - 1], &_k1);
 19705  }
 19706  
 19707  if (! (cxb_) || kp1_ > (*n_)) {
 19708    goto _l120;
 19709  }
 19710  
 19711  for (i_ = kp1_; i_ <= (*n_); (i_)++) {
 19712    xb_[i_ - 1] = CMPLX (0.0, 0.0);
 19713  }
 19714  
 19715  _l120:;
 19716  if (! (cr_)) {
 19717    goto _l140;
 19718  }
 19719  
 19720  for (i_ = 1; i_ <= (*k_); (i_)++) {
 19721    rsd_[i_ - 1] = CMPLX (0.0, 0.0);
 19722  }
 19723  
 19724  _l140:;
 19725  if (! (cb_)) {
 19726    goto _l190;
 19727  }
 19728  
 19729  for (jj_ = 1; jj_ <= (*k_); (jj_)++) {
 19730    j_ = (*k_) - jj_ + 1;
 19731    if (({complex_16 zdum__1_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 19732    != 0.0e0) {
 19733    goto _l150;
 19734  }
 19735  
 19736  (*info_) = j_;
 19737  goto _l180;
 19738  _l150:;
 19739  b_[j_ - 1] = b_[j_ - 1] / x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 19740  if (j_ == 1) {
 19741    goto _l160;
 19742  }
 19743  
 19744  t_ = -b_[j_ - 1];
 19745  (void) _zaxpy (($5_ = j_ - 1, &$5_), &t_, &x_[0 + ((*ldx_)) * ((j_ - 1))], &_k1, b_, &_k1);
 19746  _l160:;
 19747  }
 19748  
 19749  _l180:;
 19750  _l190:;
 19751  if (! (cr_) && ! (cxb_)) {
 19752    goto _l240;
 19753  }
 19754  
 19755  for (jj_ = 1; jj_ <= ju_; (jj_)++) {
 19756    j_ = ju_ - jj_ + 1;
 19757    if (({complex_16 zdum__1_ = qraux_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 19758    goto _l220;
 19759  }
 19760  
 19761  temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 19762  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
 19763  if (! (cr_)) {
 19764    goto _l200;
 19765  }
 19766  
 19767  t_ = -_zdotc (($6_ = (*n_) - j_ + 1, &$6_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1) / x_[j_ - 
 19768  1 + ((*ldx_)) * ((j_ - 1))];
 19769  (void) _zaxpy (($7_ = (*n_) - j_ + 1, &$7_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1);
 19770  _l200:;
 19771  if (! (cxb_)) {
 19772    goto _l210;
 19773  }
 19774  
 19775  t_ = -_zdotc (($8_ = (*n_) - j_ + 1, &$8_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1) / x_[j_ - 1 
 19776  + ((*ldx_)) * ((j_ - 1))];
 19777  (void) _zaxpy (($9_ = (*n_) - j_ + 1, &$9_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1);
 19778  _l210:;
 19779  x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
 19780  _l220:;
 19781  }
 19782  
 19783  _l240:;
 19784  _l250:;
 19785  __calls[164].calls++;
 19786  return 0;
 19787  }
 19788  
 19789  int_4 _zsico (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
 19790  { // ** body not listed **
 19840  }
 19841  
 19842  z_[k_ - 1] = z_[k_ - 1] + ek_;
 19843  (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 19844  if (ks_ == 1) {
 19845    goto _l80;
 19846  }
 19847  
 19848  if (({complex_16 zdum__1_ = z_[k_ - 1 - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 19849  ek_ = ({complex_16 zdum__1_ = ek_; complex_16 zdum2__1_ = z_[k_ - 1 - 1]; ({complex_16 zdum__2_ = zdum__1_; _abs (creal 
 19850  (zdum__2_)) + _abs (cimag (zdum__2_));}) * (zdum2__1_ / ({complex_16 zdum__2_ = zdum2__1_; _abs (creal (zdum__2_)) + 
 19851  _abs (cimag (zdum__2_));}));});
 19852  }
 19853  
 19854  z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 19855  (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 19856  _l80:;
 19857  if (ks_ == 2) {
 19858    goto _l100;
 19859  }
 19860  
 19861  if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 19862  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 19863  goto _l90;
 19864  }
 19865  
 19866  s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 19867  / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 19868  (void) _zdscal (n_, &s_, z_, &_k1);
 19869  ek_ = CMPLX (s_, 0.0) * ek_;
 19870  _l90:;
 19871  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 19872  != 0.0e0) {
 19873  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 19874  }
 19875  
 19876  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 19877  == 0.0e0) {
 19878  z_[k_ - 1] = CMPLX (1.0, 0.0);
 19879  }
 19880  
 19881  goto _l110;
 19882  _l100:;
 19883  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 19884  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 19885  bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 19886  bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 19887  denom_ = ak_ * akm1_ - 1.0e0;
 19888  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 19889  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 19890  _l110:;
 19891  k_ = k_ - ks_;
 19892  goto _l60;
 19893  _l120:;
 19894  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 19895  (void) _zdscal (n_, &s_, z_, &_k1);
 19896  k_ = 1;
 19897  _l130:;
 19898  if (k_ > (*n_)) {
 19899    goto _l160;
 19900  }
 19901  
 19902  ks_ = 1;
 19903  if (kpvt_[k_ - 1] < 0) {
 19904    ks_ = 2;
 19905  }
 19906  
 19907  if (k_ == 1) {
 19908    goto _l150;
 19909  }
 19910  
 19911  z_[k_ - 1] = z_[k_ - 1] + _zdotu (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 19912  if (ks_ == 2) {
 19913    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
 19914    &_k1);
 19915  }
 19916  
 19917  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 19918  if (kp_ == k_) {
 19919    goto _l140;
 19920  }
 19921  
 19922  t_ = z_[k_ - 1];
 19923  z_[k_ - 1] = z_[kp_ - 1];
 19924  z_[kp_ - 1] = t_;
 19925  _l140:;
 19926  _l150:;
 19927  k_ = k_ + ks_;
 19928  goto _l130;
 19929  _l160:;
 19930  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 19931  (void) _zdscal (n_, &s_, z_, &_k1);
 19932  ynorm_ = 1.0;
 19933  k_ = (*n_);
 19934  _l170:;
 19935  if (k_ == 0) {
 19936    goto _l230;
 19937  }
 19938  
 19939  ks_ = 1;
 19940  if (kpvt_[k_ - 1] < 0) {
 19941    ks_ = 2;
 19942  }
 19943  
 19944  if (k_ == ks_) {
 19945    goto _l190;
 19946  }
 19947  
 19948  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 19949  kps_ = k_ + 1 - ks_;
 19950  if (kp_ == kps_) {
 19951    goto _l180;
 19952  }
 19953  
 19954  t_ = z_[kps_ - 1];
 19955  z_[kps_ - 1] = z_[kp_ - 1];
 19956  z_[kp_ - 1] = t_;
 19957  _l180:;
 19958  (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 19959  if (ks_ == 2) {
 19960    (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 19961  }
 19962  
 19963  _l190:;
 19964  if (ks_ == 2) {
 19965    goto _l210;
 19966  }
 19967  
 19968  if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 19969  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 19970  goto _l200;
 19971  }
 19972  
 19973  s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 19974  / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 19975  (void) _zdscal (n_, &s_, z_, &_k1);
 19976  ynorm_ = s_ * ynorm_;
 19977  _l200:;
 19978  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 19979  != 0.0e0) {
 19980  z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 19981  }
 19982  
 19983  if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 19984  == 0.0e0) {
 19985  z_[k_ - 1] = CMPLX (1.0, 0.0);
 19986  }
 19987  
 19988  goto _l220;
 19989  _l210:;
 19990  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 19991  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 19992  bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 19993  bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 19994  denom_ = ak_ * akm1_ - 1.0e0;
 19995  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 19996  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 19997  _l220:;
 19998  k_ = k_ - ks_;
 19999  goto _l170;
 20000  _l230:;
 20001  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 20002  (void) _zdscal (n_, &s_, z_, &_k1);
 20003  ynorm_ = s_ * ynorm_;
 20004  k_ = 1;
 20005  _l240:;
 20006  if (k_ > (*n_)) {
 20007    goto _l270;
 20008  }
 20009  
 20010  ks_ = 1;
 20011  if (kpvt_[k_ - 1] < 0) {
 20012    ks_ = 2;
 20013  }
 20014  
 20015  if (k_ == 1) {
 20016    goto _l260;
 20017  }
 20018  
 20019  z_[k_ - 1] = z_[k_ - 1] + _zdotu (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 20020  if (ks_ == 2) {
 20021    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
 20022    &_k1);
 20023  }
 20024  
 20025  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 20026  if (kp_ == k_) {
 20027    goto _l250;
 20028  }
 20029  
 20030  t_ = z_[k_ - 1];
 20031  z_[k_ - 1] = z_[kp_ - 1];
 20032  z_[kp_ - 1] = t_;
 20033  _l250:;
 20034  _l260:;
 20035  k_ = k_ + ks_;
 20036  goto _l240;
 20037  _l270:;
 20038  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 20039  (void) _zdscal (n_, &s_, z_, &_k1);
 20040  ynorm_ = s_ * ynorm_;
 20041  if (anorm_ != 0.0e0) {
 20042    (*rcond_) = ynorm_ / anorm_;
 20043  }
 20044  
 20045  if (anorm_ == 0.0e0) {
 20046    (*rcond_) = 0.0;
 20047  }
 20048  
 20049  __calls[165].calls++;
 20050  return 0;
 20051  }
 20052  
 20053  int_4 _zsidi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ det_, complex_16 _p_ 
 20054  work_, int_4 _p_ job_)
 20055  { // ** body not listed **
 20090  }
 20091  
 20092  _l40:;
 20093  if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) >= 1.0e0) {
 20094  goto _l50;
 20095  }
 20096  
 20097  det_[0] = CMPLX (ten_, 0.0) * det_[0];
 20098  det_[1] = det_[1] - CMPLX (1.0, 0.0);
 20099  goto _l40;
 20100  _l50:;
 20101  _l60:;
 20102  if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < ten_) {
 20103  goto _l70;
 20104  }
 20105  det_[0] = det_[0] / CMPLX (ten_, 0.0);
 20106  det_[1] = det_[1] + CMPLX (1.0, 0.0);
 20107  goto _l60;
 20108  _l70:;
 20109  _l80:;
 20110  }
 20111  
 20112  _l100:;
 20113  if (noinv_) {
 20114    goto _l230;
 20115  }
 20116  
 20117  k_ = 1;
 20118  _l110:;
 20119  if (k_ > (*n_)) {
 20120    goto _l220;
 20121  }
 20122  
 20123  km1_ = k_ - 1;
 20124  if (kpvt_[k_ - 1] < 0) {
 20125    goto _l140;
 20126  }
 20127  
 20128  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 20129  if (km1_ < 1) {
 20130    goto _l130;
 20131  }
 20132  
 20133  (void) _zcopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
 20134  for (j_ = 1; j_ <= km1_; (j_)++) {
 20135    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _zdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
 20136    (void) _zaxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 
 20137    1))], &_k1);
 20138  }
 20139  
 20140  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _zdotu (&km1_, work_, &_k1, &a_[0 + 
 20141  ((*lda_)) * ((k_ - 1))], &_k1);
 20142  _l130:;
 20143  kstep_ = 1;
 20144  goto _l180;
 20145  _l140:;
 20146  t_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
 20147  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / t_;
 20148  akp1_ = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
 20149  akkp1_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
 20150  d_ = t_ * (ak_ * akp1_ - CMPLX (1.0, 0.0));
 20151  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = akp1_ / d_;
 20152  a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = ak_ / d_;
 20153  a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = -akkp1_ / d_;
 20154  if (km1_ < 1) {
 20155    goto _l170;
 20156  }
 20157  
 20158  (void) _zcopy (&km1_, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, work_, &_k1);
 20159  for (j_ = 1; j_ <= km1_; (j_)++) {
 20160    a_[j_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = _zdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
 20161    (void) _zaxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ + 
 20162    1 - 1))], &_k1);
 20163  }
 20164  
 20165  a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _zdotu (&km1_, work_, &_k1, 
 20166  &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
 20167  a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _zdotu (&km1_, &a_[0 + ((*lda_)) * 
 20168  ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
 20169  (void) _zcopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
 20170  for (j_ = 1; j_ <= km1_; (j_)++) {
 20171    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _zdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
 20172    (void) _zaxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 
 20173    1))], &_k1);
 20174  }
 20175  
 20176  a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _zdotu (&km1_, work_, &_k1, &a_[0 + 
 20177  ((*lda_)) * ((k_ - 1))], &_k1);
 20178  _l170:;
 20179  kstep_ = 2;
 20180  _l180:;
 20181  ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
 20182  if (ks_ == k_) {
 20183    goto _l210;
 20184  }
 20185  
 20186  (void) _zswap (&ks_, &a_[0 + ((*lda_)) * ((ks_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 20187  for (jb_ = ks_; jb_ <= k_; (jb_)++) {
 20188    j_ = k_ + ks_ - jb_;
 20189    temp_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
 20190    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))];
 20191    a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))] = temp_;
 20192  }
 20193  
 20194  if (kstep_ == 1) {
 20195    goto _l200;
 20196  }
 20197  
 20198  temp_ = a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
 20199  a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
 20200  a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = temp_;
 20201  _l200:;
 20202  _l210:;
 20203  k_ = k_ + kstep_;
 20204  goto _l110;
 20205  _l220:;
 20206  _l230:;
 20207  __calls[166].calls++;
 20208  return 0;
 20209  }
 20210  
 20211  int_4 _zsifa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 20212  { // ** body not listed **
 20233  }
 20234  
 20235  goto _l200;
 20236  _l20:;
 20237  km1_ = k_ - 1;
 20238  absakk_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 20239  (zdum__1_));});
 20240  imax_ = _izamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 20241  colmax_ = ({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 20242  (zdum__1_));});
 20243  if (absakk_ < alpha_ * colmax_) {
 20244    goto _l30;
 20245  }
 20246  
 20247  kstep_ = 1;
 20248  swap_ = FALSE;
 20249  goto _l90;
 20250  _l30:;
 20251  rowmax_ = 0.0;
 20252  imaxp1_ = imax_ + 1;
 20253  for (j_ = imaxp1_; j_ <= k_; (j_)++) {
 20254    rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs (creal (zdum__1_)) + _abs 
 20255    (cimag (zdum__1_));}));
 20256  }
 20257  
 20258  if (imax_ == 1) {
 20259    goto _l50;
 20260  }
 20261  
 20262  jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
 20263  rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum__1_)) + 
 20264  _abs (cimag (zdum__1_));}));
 20265  _l50:;
 20266  if (({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 20267  (zdum__1_));}) < alpha_ * rowmax_) {
 20268  goto _l60;
 20269  }
 20270  
 20271  kstep_ = 1;
 20272  swap_ = TRUE;
 20273  goto _l80;
 20274  _l60:;
 20275  if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
 20276    goto _l70;
 20277  }
 20278  
 20279  kstep_ = 1;
 20280  swap_ = FALSE;
 20281  goto _l80;
 20282  _l70:;
 20283  kstep_ = 2;
 20284  swap_ = imax_ != km1_;
 20285  _l80:;
 20286  _l90:;
 20287  if (_max (absakk_, colmax_) != 0.0e0) {
 20288    goto _l100;
 20289  }
 20290  
 20291  kpvt_[k_ - 1] = k_;
 20292  (*info_) = k_;
 20293  goto _l190;
 20294  _l100:;
 20295  if (kstep_ == 2) {
 20296    goto _l140;
 20297  }
 20298  
 20299  if (! (swap_)) {
 20300    goto _l120;
 20301  }
 20302  
 20303  (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 20304  for (jj_ = imax_; jj_ <= k_; (jj_)++) {
 20305    j_ = k_ + imax_ - jj_;
 20306    t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
 20307    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
 20308    a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 20309  }
 20310  
 20311  _l120:;
 20312  for (jj_ = 1; jj_ <= km1_; (jj_)++) {
 20313    j_ = k_ - jj_;
 20314    mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 20315    t_ = mulk_;
 20316    (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
 20317    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
 20318  }
 20319  
 20320  kpvt_[k_ - 1] = k_;
 20321  if (swap_) {
 20322    kpvt_[k_ - 1] = imax_;
 20323  }
 20324  
 20325  goto _l190;
 20326  _l140:;
 20327  if (! (swap_)) {
 20328    goto _l160;
 20329  }
 20330  
 20331  (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
 20332  for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
 20333    j_ = km1_ + imax_ - jj_;
 20334    t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))];
 20335    a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
 20336    a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 20337  }
 20338  
 20339  t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 20340  a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
 20341  a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
 20342  _l160:;
 20343  km2_ = k_ - 2;
 20344  if (km2_ == 0) {
 20345    goto _l180;
 20346  }
 20347  
 20348  ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 20349  akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 20350  denom_ = 1.0e0 - ak_ * akm1_;
 20351  for (jj_ = 1; jj_ <= km2_; (jj_)++) {
 20352    j_ = km1_ - jj_;
 20353    bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 20354    bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 20355    mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
 20356    mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
 20357    t_ = mulk_;
 20358    (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
 20359    t_ = mulkm1_;
 20360    (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
 20361    a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
 20362    a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
 20363  }
 20364  
 20365  _l180:;
 20366  kpvt_[k_ - 1] = 1 - k_;
 20367  if (swap_) {
 20368    kpvt_[k_ - 1] = -imax_;
 20369  }
 20370  
 20371  kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 20372  _l190:;
 20373  k_ = k_ - kstep_;
 20374  goto _l10;
 20375  _l200:;
 20376  __calls[167].calls++;
 20377  return 0;
 20378  }
 20379  
 20380  int_4 _zsisl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
 20381  { // ** body not listed **
 20481  }
 20482  
 20483  int_4 _zspco (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
 20484  { // ** body not listed **
 20541  }
 20542  
 20543  z_[k_ - 1] = z_[k_ - 1] + ek_;
 20544  (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 20545  if (ks_ == 1) {
 20546    goto _l80;
 20547  }
 20548  
 20549  if (({complex_16 zdum__1_ = z_[k_ - 1 - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 20550  ek_ = ({complex_16 zdum__1_ = ek_; complex_16 zdum2__1_ = z_[k_ - 1 - 1]; ({complex_16 zdum__2_ = zdum__1_; _abs (creal 
 20551  (zdum__2_)) + _abs (cimag (zdum__2_));}) * (zdum2__1_ / ({complex_16 zdum__2_ = zdum2__1_; _abs (creal (zdum__2_)) + 
 20552  _abs (cimag (zdum__2_));}));});
 20553  }
 20554  
 20555  z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 20556  (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 20557  _l80:;
 20558  if (ks_ == 2) {
 20559    goto _l100;
 20560  }
 20561  
 20562  if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 20563  ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 20564  goto _l90;
 20565  }
 20566  
 20567  s_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) / ({complex_16 zdum__1_ 
 20568  = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 20569  (void) _zdscal (n_, &s_, z_, &_k1);
 20570  ek_ = CMPLX (s_, 0.0) * ek_;
 20571  _l90:;
 20572  if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 20573  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 20574  }
 20575  
 20576  if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 20577  z_[k_ - 1] = CMPLX (1.0, 0.0);
 20578  }
 20579  
 20580  goto _l110;
 20581  _l100:;
 20582  km1k_ = ik_ + k_ - 1;
 20583  km1km1_ = ikm1_ + k_ - 1;
 20584  ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 20585  akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 20586  bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
 20587  bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 20588  denom_ = ak_ * akm1_ - 1.0e0;
 20589  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 20590  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 20591  _l110:;
 20592  k_ = k_ - ks_;
 20593  ik_ = ik_ - k_;
 20594  if (ks_ == 2) {
 20595    ik_ = ik_ - (k_ + 1);
 20596  }
 20597  
 20598  goto _l60;
 20599  _l120:;
 20600  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 20601  (void) _zdscal (n_, &s_, z_, &_k1);
 20602  k_ = 1;
 20603  ik_ = 0;
 20604  _l130:;
 20605  if (k_ > (*n_)) {
 20606    goto _l160;
 20607  }
 20608  
 20609  ks_ = 1;
 20610  if (kpvt_[k_ - 1] < 0) {
 20611    ks_ = 2;
 20612  }
 20613  
 20614  if (k_ == 1) {
 20615    goto _l150;
 20616  }
 20617  
 20618  z_[k_ - 1] = z_[k_ - 1] + _zdotu (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 20619  ikp1_ = ik_ + k_;
 20620  if (ks_ == 2) {
 20621    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 20622  }
 20623  
 20624  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 20625  if (kp_ == k_) {
 20626    goto _l140;
 20627  }
 20628  
 20629  t_ = z_[k_ - 1];
 20630  z_[k_ - 1] = z_[kp_ - 1];
 20631  z_[kp_ - 1] = t_;
 20632  _l140:;
 20633  _l150:;
 20634  ik_ = ik_ + k_;
 20635  if (ks_ == 2) {
 20636    ik_ = ik_ + (k_ + 1);
 20637  }
 20638  
 20639  k_ = k_ + ks_;
 20640  goto _l130;
 20641  _l160:;
 20642  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 20643  (void) _zdscal (n_, &s_, z_, &_k1);
 20644  ynorm_ = 1.0;
 20645  k_ = (*n_);
 20646  ik_ = (*n_) * ((*n_) - 1) / 2;
 20647  _l170:;
 20648  if (k_ == 0) {
 20649    goto _l230;
 20650  }
 20651  
 20652  kk_ = ik_ + k_;
 20653  ikm1_ = ik_ - (k_ - 1);
 20654  ks_ = 1;
 20655  if (kpvt_[k_ - 1] < 0) {
 20656    ks_ = 2;
 20657  }
 20658  
 20659  if (k_ == ks_) {
 20660    goto _l190;
 20661  }
 20662  
 20663  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 20664  kps_ = k_ + 1 - ks_;
 20665  if (kp_ == kps_) {
 20666    goto _l180;
 20667  }
 20668  
 20669  t_ = z_[kps_ - 1];
 20670  z_[kps_ - 1] = z_[kp_ - 1];
 20671  z_[kp_ - 1] = t_;
 20672  _l180:;
 20673  (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 20674  if (ks_ == 2) {
 20675    (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 20676  }
 20677  
 20678  _l190:;
 20679  if (ks_ == 2) {
 20680    goto _l210;
 20681  }
 20682  
 20683  if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 20684  ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 20685  goto _l200;
 20686  }
 20687  
 20688  s_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) / ({complex_16 zdum__1_ 
 20689  = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 20690  (void) _zdscal (n_, &s_, z_, &_k1);
 20691  ynorm_ = s_ * ynorm_;
 20692  _l200:;
 20693  if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 20694  z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 20695  }
 20696  
 20697  if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 20698  z_[k_ - 1] = CMPLX (1.0, 0.0);
 20699  }
 20700  
 20701  goto _l220;
 20702  _l210:;
 20703  km1k_ = ik_ + k_ - 1;
 20704  km1km1_ = ikm1_ + k_ - 1;
 20705  ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 20706  akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 20707  bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
 20708  bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 20709  denom_ = ak_ * akm1_ - 1.0e0;
 20710  z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 20711  z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 20712  _l220:;
 20713  k_ = k_ - ks_;
 20714  ik_ = ik_ - k_;
 20715  if (ks_ == 2) {
 20716    ik_ = ik_ - (k_ + 1);
 20717  }
 20718  
 20719  goto _l170;
 20720  _l230:;
 20721  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 20722  (void) _zdscal (n_, &s_, z_, &_k1);
 20723  ynorm_ = s_ * ynorm_;
 20724  k_ = 1;
 20725  ik_ = 0;
 20726  _l240:;
 20727  if (k_ > (*n_)) {
 20728    goto _l270;
 20729  }
 20730  
 20731  ks_ = 1;
 20732  if (kpvt_[k_ - 1] < 0) {
 20733    ks_ = 2;
 20734  }
 20735  
 20736  if (k_ == 1) {
 20737    goto _l260;
 20738  }
 20739  
 20740  z_[k_ - 1] = z_[k_ - 1] + _zdotu (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 20741  ikp1_ = ik_ + k_;
 20742  if (ks_ == 2) {
 20743    z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 20744  }
 20745  
 20746  kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 20747  if (kp_ == k_) {
 20748    goto _l250;
 20749  }
 20750  
 20751  t_ = z_[k_ - 1];
 20752  z_[k_ - 1] = z_[kp_ - 1];
 20753  z_[kp_ - 1] = t_;
 20754  _l250:;
 20755  _l260:;
 20756  ik_ = ik_ + k_;
 20757  if (ks_ == 2) {
 20758    ik_ = ik_ + (k_ + 1);
 20759  }
 20760  
 20761  k_ = k_ + ks_;
 20762  goto _l240;
 20763  _l270:;
 20764  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 20765  (void) _zdscal (n_, &s_, z_, &_k1);
 20766  ynorm_ = s_ * ynorm_;
 20767  if (anorm_ != 0.0e0) {
 20768    (*rcond_) = ynorm_ / anorm_;
 20769  }
 20770  
 20771  if (anorm_ == 0.0e0) {
 20772    (*rcond_) = 0.0;
 20773  }
 20774  
 20775  __calls[169].calls++;
 20776  return 0;
 20777  }
 20778  
 20779  int_4 _zspdi (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ det_, complex_16 _p_ work_, int_4 _p_ 
 20780  job_)
 20781  { // ** body not listed **
 20823  }
 20824  
 20825  _l40:;
 20826  if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) >= 1.0e0) {
 20827  goto _l50;
 20828  }
 20829  
 20830  det_[0] = CMPLX (ten_, 0.0) * det_[0];
 20831  det_[1] = det_[1] - CMPLX (1.0, 0.0);
 20832  goto _l40;
 20833  _l50:;
 20834  _l60:;
 20835  if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < ten_) {
 20836  goto _l70;
 20837  }
 20838  
 20839  det_[0] = det_[0] / CMPLX (ten_, 0.0);
 20840  det_[1] = det_[1] + CMPLX (1.0, 0.0);
 20841  goto _l60;
 20842  _l70:;
 20843  _l80:;
 20844  _l90:;
 20845  ik_ = ik_ + k_;
 20846  }
 20847  
 20848  _l110:;
 20849  if (noinv_) {
 20850    goto _l240;
 20851  }
 20852  
 20853  k_ = 1;
 20854  ik_ = 0;
 20855  _l120:;
 20856  if (k_ > (*n_)) {
 20857    goto _l230;
 20858  }
 20859  
 20860  km1_ = k_ - 1;
 20861  kk_ = ik_ + k_;
 20862  ikp1_ = ik_ + k_;
 20863  if (kpvt_[k_ - 1] < 0) {
 20864    goto _l150;
 20865  }
 20866  
 20867  ap_[kk_ - 1] = CMPLX (1.0, 0.0) / ap_[kk_ - 1];
 20868  if (km1_ < 1) {
 20869    goto _l140;
 20870  }
 20871  
 20872  (void) _zcopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
 20873  ij_ = 0;
 20874  for (j_ = 1; j_ <= km1_; (j_)++) {
 20875    jk_ = ik_ + j_;
 20876    ap_[jk_ - 1] = _zdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
 20877    (void) _zaxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 20878    ij_ = ij_ + j_;
 20879  }
 20880  
 20881  ap_[kk_ - 1] = ap_[kk_ - 1] + _zdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
 20882  _l140:;
 20883  kstep_ = 1;
 20884  goto _l190;
 20885  _l150:;
 20886  kkp1_ = ikp1_ + k_;
 20887  t_ = ap_[kkp1_ - 1];
 20888  ak_ = ap_[kk_ - 1] / t_;
 20889  akp1_ = ap_[kkp1_ + 1 - 1] / t_;
 20890  akkp1_ = ap_[kkp1_ - 1] / t_;
 20891  d_ = t_ * (ak_ * akp1_ - CMPLX (1.0, 0.0));
 20892  ap_[kk_ - 1] = akp1_ / d_;
 20893  ap_[kkp1_ + 1 - 1] = ak_ / d_;
 20894  ap_[kkp1_ - 1] = -akkp1_ / d_;
 20895  if (km1_ < 1) {
 20896    goto _l180;
 20897  }
 20898  
 20899  (void) _zcopy (&km1_, &ap_[ikp1_ + 1 - 1], &_k1, work_, &_k1);
 20900  ij_ = 0;
 20901  for (j_ = 1; j_ <= km1_; (j_)++) {
 20902    jkp1_ = ikp1_ + j_;
 20903    ap_[jkp1_ - 1] = _zdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
 20904    (void) _zaxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
 20905    ij_ = ij_ + j_;
 20906  }
 20907  
 20908  ap_[kkp1_ + 1 - 1] = ap_[kkp1_ + 1 - 1] + _zdotu (&km1_, work_, &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
 20909  ap_[kkp1_ - 1] = ap_[kkp1_ - 1] + _zdotu (&km1_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
 20910  (void) _zcopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
 20911  ij_ = 0;
 20912  for (j_ = 1; j_ <= km1_; (j_)++) {
 20913    jk_ = ik_ + j_;
 20914    ap_[jk_ - 1] = _zdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
 20915    (void) _zaxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 20916    ij_ = ij_ + j_;
 20917  }
 20918  
 20919  ap_[kk_ - 1] = ap_[kk_ - 1] + _zdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
 20920  _l180:;
 20921  kstep_ = 2;
 20922  _l190:;
 20923  ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
 20924  if (ks_ == k_) {
 20925    goto _l220;
 20926  }
 20927  
 20928  iks_ = (ks_ * (ks_ - 1)) / 2;
 20929  (void) _zswap (&ks_, &ap_[iks_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 20930  ksj_ = ik_ + ks_;
 20931  for (jb_ = ks_; jb_ <= k_; (jb_)++) {
 20932    j_ = k_ + ks_ - jb_;
 20933    jk_ = ik_ + j_;
 20934    temp_ = ap_[jk_ - 1];
 20935    ap_[jk_ - 1] = ap_[ksj_ - 1];
 20936    ap_[ksj_ - 1] = temp_;
 20937    ksj_ = ksj_ - (j_ - 1);
 20938  }
 20939  
 20940  if (kstep_ == 1) {
 20941    goto _l210;
 20942  }
 20943  kskp1_ = ikp1_ + ks_;
 20944  temp_ = ap_[kskp1_ - 1];
 20945  ap_[kskp1_ - 1] = ap_[kkp1_ - 1];
 20946  ap_[kkp1_ - 1] = temp_;
 20947  _l210:;
 20948  _l220:;
 20949  ik_ = ik_ + k_;
 20950  if (kstep_ == 2) {
 20951    ik_ = ik_ + k_ + 1;
 20952  }
 20953  
 20954  k_ = k_ + kstep_;
 20955  goto _l120;
 20956  _l230:;
 20957  _l240:;
 20958  __calls[170].calls++;
 20959  return 0;
 20960  }
 20961  
 20962  int_4 _zspfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 20963  { // ** body not listed **
 20985  }
 20986  
 20987  goto _l200;
 20988  _l20:;
 20989  km1_ = k_ - 1;
 20990  kk_ = ik_ + k_;
 20991  absakk_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 20992  imax_ = _izamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
 20993  imk_ = ik_ + imax_;
 20994  colmax_ = ({complex_16 zdum__1_ = ap_[imk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 20995  if (absakk_ < alpha_ * colmax_) {
 20996    goto _l30;
 20997  }
 20998  
 20999  kstep_ = 1;
 21000  swap_ = FALSE;
 21001  goto _l90;
 21002  _l30:;
 21003  rowmax_ = 0.0;
 21004  imaxp1_ = imax_ + 1;
 21005  im_ = imax_ * (imax_ - 1) / 2;
 21006  imj_ = im_ + 2 * imax_;
 21007  for (j_ = imaxp1_; j_ <= k_; (j_)++) {
 21008    rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = ap_[imj_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}));
 21009    imj_ = imj_ + j_;
 21010  }
 21011  
 21012  if (imax_ == 1) {
 21013    goto _l50;
 21014  }
 21015  jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
 21016  jmim_ = jmax_ + im_;
 21017  rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = ap_[jmim_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}))
 21018  ;
 21019  _l50:;
 21020  imim_ = imax_ + im_;
 21021  if (({complex_16 zdum__1_ = ap_[imim_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < alpha_ * rowmax_) {
 21022  goto _l60;
 21023  }
 21024  
 21025  kstep_ = 1;
 21026  swap_ = TRUE;
 21027  goto _l80;
 21028  _l60:;
 21029  if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
 21030    goto _l70;
 21031  }
 21032  
 21033  kstep_ = 1;
 21034  swap_ = FALSE;
 21035  goto _l80;
 21036  _l70:;
 21037  kstep_ = 2;
 21038  swap_ = imax_ != km1_;
 21039  _l80:;
 21040  _l90:;
 21041  if (_max (absakk_, colmax_) != 0.0e0) {
 21042    goto _l100;
 21043  }
 21044  
 21045  kpvt_[k_ - 1] = k_;
 21046  (*info_) = k_;
 21047  goto _l190;
 21048  _l100:;
 21049  if (kstep_ == 2) {
 21050    goto _l140;
 21051  }
 21052  
 21053  if (! (swap_)) {
 21054    goto _l120;
 21055  }
 21056  
 21057  (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 21058  imj_ = ik_ + imax_;
 21059  for (jj_ = imax_; jj_ <= k_; (jj_)++) {
 21060    j_ = k_ + imax_ - jj_;
 21061    jk_ = ik_ + j_;
 21062    t_ = ap_[jk_ - 1];
 21063    ap_[jk_ - 1] = ap_[imj_ - 1];
 21064    ap_[imj_ - 1] = t_;
 21065    imj_ = imj_ - (j_ - 1);
 21066  }
 21067  
 21068  _l120:;
 21069  ij_ = ik_ - (k_ - 1);
 21070  for (jj_ = 1; jj_ <= km1_; (jj_)++) {
 21071    j_ = k_ - jj_;
 21072    jk_ = ik_ + j_;
 21073    mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
 21074    t_ = mulk_;
 21075    (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
 21076    ijj_ = ij_ + j_;
 21077    ap_[jk_ - 1] = mulk_;
 21078    ij_ = ij_ - (j_ - 1);
 21079  }
 21080  
 21081  kpvt_[k_ - 1] = k_;
 21082  if (swap_) {
 21083    kpvt_[k_ - 1] = imax_;
 21084  }
 21085  
 21086  goto _l190;
 21087  _l140:;
 21088  km1k_ = ik_ + k_ - 1;
 21089  ikm1_ = ik_ - (k_ - 1);
 21090  if (! (swap_)) {
 21091    goto _l160;
 21092  }
 21093  
 21094  (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
 21095  imj_ = ikm1_ + imax_;
 21096  for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
 21097    j_ = km1_ + imax_ - jj_;
 21098    jkm1_ = ikm1_ + j_;
 21099    t_ = ap_[jkm1_ - 1];
 21100    ap_[jkm1_ - 1] = ap_[imj_ - 1];
 21101    ap_[imj_ - 1] = t_;
 21102    imj_ = imj_ - (j_ - 1);
 21103  }
 21104  
 21105  t_ = ap_[km1k_ - 1];
 21106  ap_[km1k_ - 1] = ap_[imk_ - 1];
 21107  ap_[imk_ - 1] = t_;
 21108  _l160:;
 21109  km2_ = k_ - 2;
 21110  if (km2_ == 0) {
 21111    goto _l180;
 21112  }
 21113  
 21114  ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 21115  km1km1_ = ikm1_ + k_ - 1;
 21116  akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 21117  denom_ = 1.0e0 - ak_ * akm1_;
 21118  ij_ = ik_ - (k_ - 1) - (k_ - 2);
 21119  for (jj_ = 1; jj_ <= km2_; (jj_)++) {
 21120    j_ = km1_ - jj_;
 21121    jk_ = ik_ + j_;
 21122    bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
 21123    jkm1_ = ikm1_ + j_;
 21124    bkm1_ = ap_[jkm1_ - 1] / ap_[km1k_ - 1];
 21125    mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
 21126    mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
 21127    t_ = mulk_;
 21128    (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
 21129    t_ = mulkm1_;
 21130    (void) _zaxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
 21131    ap_[jk_ - 1] = mulk_;
 21132    ap_[jkm1_ - 1] = mulkm1_;
 21133    ijj_ = ij_ + j_;
 21134    ij_ = ij_ - (j_ - 1);
 21135  }
 21136  
 21137  _l180:;
 21138  kpvt_[k_ - 1] = 1 - k_;
 21139  if (swap_) {
 21140    kpvt_[k_ - 1] = -imax_;
 21141  }
 21142  
 21143  kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 21144  _l190:;
 21145  ik_ = ik_ - (k_ - 1);
 21146  if (kstep_ == 2) {
 21147    ik_ = ik_ - (k_ - 2);
 21148  }
 21149  
 21150  k_ = k_ - kstep_;
 21151  goto _l10;
 21152  _l200:;
 21153  __calls[171].calls++;
 21154  return 0;
 21155  }
 21156  
 21157  int_4 _zspsl (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
 21158  { // ** body not listed **
 21269  }
 21270  
 21271  int_4 _zsvdc (complex_16 _p_ x_, int_4 _p_ ldx_, int_4 _p_ n_, int_4 _p_ p_, complex_16 _p_ s_, complex_16 _p_ e_, 
 21272  complex_16 _p_ u_, int_4 _p_ ldu_, complex_16 _p_ v_, int_4 _p_ ldv_, complex_16 _p_ work_, int_4 _p_ job_, int_4 _p_ 
 21273  info_)
 21274  { // ** body not listed **
 21319  }
 21320  
 21321  (void) _zscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = 1.0e0 / s_[l_ - 1], &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], 
 21322  &_k1);
 21323  x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLX (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 21324  _l10:;
 21325  s_[l_ - 1] = -s_[l_ - 1];
 21326  _l20:;
 21327  if ((*p_) < lp1_) {
 21328    goto _l50;
 21329  }
 21330  
 21331  for (j_ = lp1_; j_ <= (*p_); (j_)++) {
 21332    if (l_ > nct_) {
 21333      goto _l30;
 21334    }
 21335    if (({complex_16 zdum__1_ = s_[l_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 21336    goto _l30;
 21337  }
 21338  
 21339  t_ = -_zdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ - 
 21340  1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 21341  (void) _zaxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * 
 21342  ((j_ - 1))], &_k1);
 21343  _l30:;
 21344  e_[j_ - 1] = conj (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]);
 21345  }
 21346  
 21347  _l50:;
 21348  if (! (wantu_) || l_ > nct_) {
 21349    goto _l70;
 21350  }
 21351  
 21352  for (i_ = l_; i_ <= (*n_); (i_)++) {
 21353    u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = x_[i_ - 1 + ((*ldx_)) * ((l_ - 1))];
 21354  }
 21355  
 21356  _l70:;
 21357  if (l_ > nrt_) {
 21358    goto _l150;
 21359  }
 21360  
 21361  e_[l_ - 1] = CMPLX (_dznrm2 (($5_ = (*p_) - l_, &$5_), &e_[lp1_ - 1], &_k1), 0.0);
 21362  if (({complex_16 zdum__1_ = e_[l_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 21363  goto _l80;
 21364  }
 21365  
 21366  if (({complex_16 zdum__1_ = e_[lp1_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 21367  e_[l_ - 1] = ({complex_16 zdum1__1_ = e_[l_ - 1]; complex_16 zdum2__1_ = e_[lp1_ - 1]; cabs (zdum1__1_) * (zdum2__1_ / 
 21368  cabs (zdum2__1_));});
 21369  }
 21370  
 21371  (void) _zscal (($6_ = (*p_) - l_, &$6_), ($7_ = 1.0e0 / e_[l_ - 1], &$7_), &e_[lp1_ - 1], &_k1);
 21372  e_[lp1_ - 1] = CMPLX (1.0, 0.0) + e_[lp1_ - 1];
 21373  _l80:;
 21374  e_[l_ - 1] = -conj (e_[l_ - 1]);
 21375  if (lp1_ > (*n_) || ({complex_16 zdum__1_ = e_[l_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) 
 21376  { // ** body not listed **
 21378  }
 21379  
 21380  for (i_ = lp1_; i_ <= (*n_); (i_)++) {
 21381    work_[i_ - 1] = CMPLX (0.0, 0.0);
 21382  }
 21383  
 21384  for (j_ = lp1_; j_ <= (*p_); (j_)++) {
 21385    (void) _zaxpy (($8_ = (*n_) - l_, &$8_), &e_[j_ - 1], &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &work_[lp1_ - 1], 
 21386    &_k1);
 21387  }
 21388  
 21389  for (j_ = lp1_; j_ <= (*p_); (j_)++) {
 21390    (void) _zaxpy (($9_ = (*n_) - l_, &$9_), ($10_ = conj (-e_[j_ - 1] / e_[lp1_ - 1]), &$10_), &work_[lp1_ - 1], &_k1, 
 21391    &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1);
 21392  }
 21393  
 21394  _l120:;
 21395  if (! (wantv_)) {
 21396    goto _l140;
 21397  }
 21398  
 21399  for (i_ = lp1_; i_ <= (*p_); (i_)++) {
 21400    v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = e_[i_ - 1];
 21401  }
 21402  
 21403  _l140:;
 21404  _l150:;
 21405  }
 21406  
 21407  _l170:;
 21408  m_ = _min ((*p_), (*n_) + 1);
 21409  nctp1_ = nct_ + 1;
 21410  nrtp1_ = nrt_ + 1;
 21411  if (nct_ < (*p_)) {
 21412    s_[nctp1_ - 1] = x_[nctp1_ - 1 + ((*ldx_)) * ((nctp1_ - 1))];
 21413  }
 21414  
 21415  if ((*n_) < m_) {
 21416    s_[m_ - 1] = CMPLX (0.0, 0.0);
 21417  }
 21418  
 21419  if (nrtp1_ < m_) {
 21420    e_[nrtp1_ - 1] = x_[nrtp1_ - 1 + ((*ldx_)) * ((m_ - 1))];
 21421  }
 21422  
 21423  e_[m_ - 1] = CMPLX (0.0, 0.0);
 21424  if (! (wantu_)) {
 21425    goto _l300;
 21426  }
 21427  
 21428  if (ncu_ < nctp1_) {
 21429    goto _l200;
 21430  }
 21431  
 21432  for (j_ = nctp1_; j_ <= ncu_; (j_)++) {
 21433    for (i_ = 1; i_ <= (*n_); (i_)++) {
 21434      u_[i_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
 21435    }
 21436    u_[j_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLX (1.0, 0.0);
 21437  }
 21438  
 21439  _l200:;
 21440  if (nct_ < 1) {
 21441    goto _l290;
 21442  }
 21443  for (ll_ = 1; ll_ <= nct_; (ll_)++) {
 21444    l_ = nct_ - ll_ + 1;
 21445    if (({complex_16 zdum__1_ = s_[l_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 21446    goto _l250;
 21447  }
 21448  
 21449  lp1_ = l_ + 1;
 21450  if (ncu_ < lp1_) {
 21451    goto _l220;
 21452  }
 21453  
 21454  for (j_ = lp1_; j_ <= ncu_; (j_)++) {
 21455    t_ = -_zdotc (($11_ = (*n_) - l_ + 1, &$11_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_)) * ((j_ 
 21456    - 1))], &_k1) / u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
 21457    (void) _zaxpy (($12_ = (*n_) - l_ + 1, &$12_), &t_, &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_)) 
 21458    * ((j_ - 1))], &_k1);
 21459  }
 21460  
 21461  _l220:;
 21462  (void) _zscal (($13_ = (*n_) - l_ + 1, &$13_), ($14_ = CMPLX (-1.0, 0.0), &$14_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], 
 21463  &_k1);
 21464  u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (1.0, 0.0) + u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
 21465  lm1_ = l_ - 1;
 21466  if (lm1_ < 1) {
 21467    goto _l240;
 21468  }
 21469  
 21470  for (i_ = 1; i_ <= lm1_; (i_)++) {
 21471    u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (0.0, 0.0);
 21472  }
 21473  
 21474  _l240:;
 21475  goto _l270;
 21476  _l250:;
 21477  for (i_ = 1; i_ <= (*n_); (i_)++) {
 21478    u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (0.0, 0.0);
 21479  }
 21480  
 21481  u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (1.0, 0.0);
 21482  _l270:;
 21483  }
 21484  
 21485  _l290:;
 21486  _l300:;
 21487  if (! (wantv_)) {
 21488    goto _l350;
 21489  }
 21490  
 21491  for (ll_ = 1; ll_ <= (*p_); (ll_)++) {
 21492    l_ = (*p_) - ll_ + 1;
 21493    lp1_ = l_ + 1;
 21494    if (l_ > nrt_) {
 21495      goto _l320;
 21496    }
 21497    if (({complex_16 zdum__1_ = e_[l_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 21498    goto _l320;
 21499  }
 21500  
 21501  for (j_ = lp1_; j_ <= (*p_); (j_)++) {
 21502    t_ = -_zdotc (($15_ = (*p_) - l_, &$15_), &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_)) * ((j_ 
 21503    - 1))], &_k1) / v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))];
 21504    (void) _zaxpy (($16_ = (*p_) - l_, &$16_), &t_, &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_)) 
 21505    * ((j_ - 1))], &_k1);
 21506  }
 21507  
 21508  _l320:;
 21509  for (i_ = 1; i_ <= (*p_); (i_)++) {
 21510    v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLX (0.0, 0.0);
 21511  }
 21512  
 21513  v_[l_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLX (1.0, 0.0);
 21514  }
 21515  
 21516  _l350:;
 21517  for (i_ = 1; i_ <= m_; (i_)++) {
 21518    if (({complex_16 zdum__1_ = s_[i_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 21519    goto _l360;
 21520  }
 21521  
 21522  t_ = CMPLX (cabs (s_[i_ - 1]), 0.0);
 21523  r_ = s_[i_ - 1] / t_;
 21524  s_[i_ - 1] = t_;
 21525  if (i_ < m_) {
 21526    e_[i_ - 1] = e_[i_ - 1] / r_;
 21527  }
 21528  
 21529  if (wantu_) {
 21530    (void) _zscal (n_, &r_, &u_[0 + ((*ldu_)) * ((i_ - 1))], &_k1);
 21531  }
 21532  
 21533  _l360:;
 21534  if (i_ == m_) {
 21535    goto _l390;
 21536  }
 21537  
 21538  if (({complex_16 zdum__1_ = e_[i_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 21539  goto _l370;
 21540  }
 21541  
 21542  t_ = CMPLX (cabs (e_[i_ - 1]), 0.0);
 21543  r_ = t_ / e_[i_ - 1];
 21544  e_[i_ - 1] = t_;
 21545  s_[i_ + 1 - 1] = s_[i_ + 1 - 1] * r_;
 21546  if (wantv_) {
 21547    (void) _zscal (p_, &r_, &v_[0 + ((*ldv_)) * ((i_ + 1 - 1))], &_k1);
 21548  }
 21549  
 21550  _l370:;
 21551  }
 21552  
 21553  _l390:;
 21554  mm_ = m_;
 21555  iter_ = 0;
 21556  _l400:;
 21557  if (m_ == 0) {
 21558    goto _l660;
 21559  }
 21560  
 21561  if (iter_ < maxit_) {
 21562    goto _l410;
 21563  }
 21564  
 21565  (*info_) = m_;
 21566  goto _l660;
 21567  _l410:;
 21568  for (ll_ = 1; ll_ <= m_; (ll_)++) {
 21569    l_ = m_ - ll_;
 21570    if (l_ == 0) {
 21571      goto _l440;
 21572    }
 21573    test_ = cabs (s_[l_ - 1]) + cabs (s_[l_ + 1 - 1]);
 21574    ztest_ = test_ + cabs (e_[l_ - 1]);
 21575    if (ztest_ != test_) {
 21576      goto _l420;
 21577    }
 21578    e_[l_ - 1] = CMPLX (0.0, 0.0);
 21579    goto _l440;
 21580    _l420:;
 21581  }
 21582  
 21583  _l440:;
 21584  if (l_ != m_ - 1) {
 21585    goto _l450;
 21586  }
 21587  
 21588  kase_ = 4;
 21589  goto _l520;
 21590  _l450:;
 21591  lp1_ = l_ + 1;
 21592  mp1_ = m_ + 1;
 21593  for (lls_ = lp1_; lls_ <= mp1_; (lls_)++) {
 21594    ls_ = m_ - lls_ + lp1_;
 21595    if (ls_ == l_) {
 21596      goto _l480;
 21597    }
 21598    test_ = 0.0;
 21599    if (ls_ != m_) {
 21600      test_ = test_ + cabs (e_[ls_ - 1]);
 21601    }
 21602    if (ls_ != l_ + 1) {
 21603      test_ = test_ + cabs (e_[ls_ - 1 - 1]);
 21604    }
 21605    ztest_ = test_ + cabs (s_[ls_ - 1]);
 21606    if (ztest_ != test_) {
 21607      goto _l460;
 21608    }
 21609    s_[ls_ - 1] = CMPLX (0.0, 0.0);
 21610    goto _l480;
 21611    _l460:;
 21612  }
 21613  
 21614  _l480:;
 21615  if (ls_ != l_) {
 21616    goto _l490;
 21617  }
 21618  
 21619  kase_ = 3;
 21620  goto _l510;
 21621  _l490:;
 21622  if (ls_ != m_) {
 21623    goto _l500;
 21624  }
 21625  
 21626  kase_ = 1;
 21627  goto _l510;
 21628  _l500:;
 21629  kase_ = 2;
 21630  l_ = ls_;
 21631  _l510:;
 21632  _l520:;
 21633  l_ = l_ + 1;
 21634  switch (kase_) {
 21635    default:
 21636    case 1: goto _l530;
 21637    case 2: goto _l560;
 21638    case 3: goto _l580;
 21639    case 4: goto _l610;
 21640  }
 21641  
 21642  _l530:;
 21643  mm1_ = m_ - 1;
 21644  f_ = creal (e_[m_ - 1 - 1]);
 21645  e_[m_ - 1 - 1] = CMPLX (0.0, 0.0);
 21646  for (kk_ = l_; kk_ <= mm1_; (kk_)++) {
 21647    k_ = mm1_ - kk_ + l_;
 21648    t1_ = creal (s_[k_ - 1]);
 21649    (void) _drotg (&t1_, &f_, &cs_, &sn_);
 21650    s_[k_ - 1] = CMPLX (t1_, 0.0);
 21651    if (k_ == l_) {
 21652      goto _l540;
 21653    }
 21654    f_ = -sn_ * creal (e_[k_ - 1 - 1]);
 21655    e_[k_ - 1 - 1] = cs_ * e_[k_ - 1 - 1];
 21656    _l540:;
 21657    if (wantv_) {
 21658      (void) _zdrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((m_ - 1))], &_k1, &cs_, &sn_);
 21659    }
 21660  }
 21661  
 21662  goto _l650;
 21663  _l560:;
 21664  f_ = creal (e_[l_ - 1 - 1]);
 21665  e_[l_ - 1 - 1] = CMPLX (0.0, 0.0);
 21666  for (k_ = l_; k_ <= m_; (k_)++) {
 21667    t1_ = creal (s_[k_ - 1]);
 21668    (void) _drotg (&t1_, &f_, &cs_, &sn_);
 21669    s_[k_ - 1] = CMPLX (t1_, 0.0);
 21670    f_ = -sn_ * creal (e_[k_ - 1]);
 21671    e_[k_ - 1] = cs_ * e_[k_ - 1];
 21672    if (wantu_) {
 21673      (void) _zdrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ - 1 - 1))], &_k1, &cs_, &sn_);
 21674    }
 21675  }
 21676  
 21677  goto _l650;
 21678  _l580:;
 21679  scale_ = ($17_ = _max (cabs (s_[m_ - 1]), cabs (s_[m_ - 1 - 1])), $17_ = _max ($17_, cabs (e_[m_ - 1 - 1])), $17_ = 
 21680  _max ($17_, cabs (s_[l_ - 1])), _max ($17_, cabs (e_[l_ - 1])));
 21681  sm_ = creal (s_[m_ - 1]) / scale_;
 21682  smm1_ = creal (s_[m_ - 1 - 1]) / scale_;
 21683  emm1_ = creal (e_[m_ - 1 - 1]) / scale_;
 21684  sl_ = creal (s_[l_ - 1]) / scale_;
 21685  el_ = creal (e_[l_ - 1]) / scale_;
 21686  b_ = ((smm1_ + sm_) * (smm1_ - sm_) + (emm1_ * emm1_)) / 2.0e0;
 21687  c_ = ($18_ = (sm_ * emm1_), $18_ * $18_);
 21688  shift_ = 0.0;
 21689  if (b_ == 0.0e0 && c_ == 0.0e0) {
 21690    goto _l590;
 21691  }
 21692  
 21693  shift_ = sqrt ((b_ * b_) + c_);
 21694  if (b_ < 0.0e0) {
 21695    shift_ = -shift_;
 21696  }
 21697  
 21698  shift_ = c_ / (b_ + shift_);
 21699  _l590:;
 21700  f_ = (sl_ + sm_) * (sl_ - sm_) + shift_;
 21701  g_ = sl_ * el_;
 21702  mm1_ = m_ - 1;
 21703  for (k_ = l_; k_ <= mm1_; (k_)++) {
 21704    (void) _drotg (&f_, &g_, &cs_, &sn_);
 21705    if (k_ != l_) {
 21706      e_[k_ - 1 - 1] = CMPLX (f_, 0.0);
 21707    }
 21708    f_ = cs_ * creal (s_[k_ - 1]) + sn_ * creal (e_[k_ - 1]);
 21709    e_[k_ - 1] = cs_ * e_[k_ - 1] - sn_ * s_[k_ - 1];
 21710    g_ = sn_ * creal (s_[k_ + 1 - 1]);
 21711    s_[k_ + 1 - 1] = cs_ * s_[k_ + 1 - 1];
 21712    if (wantv_) {
 21713      (void) _zdrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
 21714    }
 21715    (void) _drotg (&f_, &g_, &cs_, &sn_);
 21716    s_[k_ - 1] = CMPLX (f_, 0.0);
 21717    f_ = cs_ * creal (e_[k_ - 1]) + sn_ * creal (s_[k_ + 1 - 1]);
 21718    s_[k_ + 1 - 1] = -sn_ * e_[k_ - 1] + cs_ * s_[k_ + 1 - 1];
 21719    g_ = sn_ * creal (e_[k_ + 1 - 1]);
 21720    e_[k_ + 1 - 1] = cs_ * e_[k_ + 1 - 1];
 21721    if (wantu_ && k_ < (*n_)) {
 21722      (void) _zdrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
 21723    }
 21724  }
 21725  
 21726  e_[m_ - 1 - 1] = CMPLX (f_, 0.0);
 21727  iter_ = iter_ + 1;
 21728  goto _l650;
 21729  _l610:;
 21730  if (creal (s_[l_ - 1]) >= 0.0e0) {
 21731    goto _l620;
 21732  }
 21733  
 21734  s_[l_ - 1] = -s_[l_ - 1];
 21735  if (wantv_) {
 21736    (void) _zscal (p_, ($19_ = CMPLX (-1.0, 0.0), &$19_), &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1);
 21737  }
 21738  
 21739  _l620:;
 21740  _l630:;
 21741  if (l_ == mm_) {
 21742    goto _l640;
 21743  }
 21744  
 21745  if (creal (s_[l_ - 1]) >= creal (s_[l_ + 1 - 1])) {
 21746    goto _l640;
 21747  }
 21748  
 21749  t_ = s_[l_ - 1];
 21750  s_[l_ - 1] = s_[l_ + 1 - 1];
 21751  s_[l_ + 1 - 1] = t_;
 21752  if (wantv_ && l_ < (*p_)) {
 21753    (void) _zswap (p_, &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((l_ + 1 - 1))], &_k1);
 21754  }
 21755  
 21756  if (wantu_ && l_ < (*n_)) {
 21757    (void) _zswap (n_, &u_[0 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ + 1 - 1))], &_k1);
 21758  }
 21759  
 21760  l_ = l_ + 1;
 21761  goto _l630;
 21762  _l640:;
 21763  iter_ = 0;
 21764  m_ = m_ - 1;
 21765  _l650:;
 21766  goto _l400;
 21767  _l660:;
 21768  __calls[173].calls++;
 21769  return 0;
 21770  }
 21771  
 21772  int_4 _ztrco (complex_16 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4 _p_ job_)
 21773  { // ** body not listed **
 21810  }
 21811  
 21812  s_ = ({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 21813  / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 21814  (void) _zdscal (n_, &s_, z_, &_k1);
 21815  ek_ = CMPLX (s_, 0.0) * ek_;
 21816  _l30:;
 21817  wk_ = ek_ - z_[k_ - 1];
 21818  wkm_ = -ek_ - z_[k_ - 1];
 21819  s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 21820  sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 21821  if (({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 21822  == 0.0e0) {
 21823  goto _l40;
 21824  }
 21825  
 21826  wk_ = wk_ / conj (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
 21827  wkm_ = wkm_ / conj (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
 21828  goto _l50;
 21829  _l40:;
 21830  wk_ = CMPLX (1.0, 0.0);
 21831  wkm_ = CMPLX (1.0, 0.0);
 21832  _l50:;
 21833  if (kk_ == (*n_)) {
 21834    goto _l90;
 21835  }
 21836  
 21837  j1_ = k_ + 1;
 21838  if (lower_) {
 21839    j1_ = 1;
 21840  }
 21841  
 21842  j2_ = (*n_);
 21843  if (lower_) {
 21844    j2_ = k_ - 1;
 21845  }
 21846  
 21847  for (j_ = j1_; j_ <= j2_; (j_)++) {
 21848    sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]); _abs (creal 
 21849    (zdum__1_)) + _abs (cimag (zdum__1_));});
 21850    z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
 21851    s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 21852  }
 21853  
 21854  if (s_ >= sm_) {
 21855    goto _l80;
 21856  }
 21857  
 21858  w_ = wkm_ - wk_;
 21859  wk_ = wkm_;
 21860  for (j_ = j1_; j_ <= j2_; (j_)++) {
 21861    z_[j_ - 1] = z_[j_ - 1] + w_ * conj (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
 21862  }
 21863  
 21864  _l80:;
 21865  _l90:;
 21866  z_[k_ - 1] = wk_;
 21867  }
 21868  
 21869  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 21870  (void) _zdscal (n_, &s_, z_, &_k1);
 21871  ynorm_ = 1.0;
 21872  for (kk_ = 1; kk_ <= (*n_); (kk_)++) {
 21873    k_ = (*n_) + 1 - kk_;
 21874    if (lower_) {
 21875      k_ = kk_;
 21876    }
 21877    if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 21878    t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 21879    goto _l110;
 21880  }
 21881  s_ = ({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 21882  / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 21883  (void) _zdscal (n_, &s_, z_, &_k1);
 21884  ynorm_ = s_ * ynorm_;
 21885  _l110:;
 21886  if (({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 21887  != 0.0e0) {
 21888  z_[k_ - 1] = z_[k_ - 1] / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 21889  }
 21890  
 21891  if (({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 21892  == 0.0e0) {
 21893  z_[k_ - 1] = CMPLX (1.0, 0.0);
 21894  }
 21895  
 21896  i1_ = 1;
 21897  if (lower_) {
 21898    i1_ = k_ + 1;
 21899  }
 21900  
 21901  if (kk_ >= (*n_)) {
 21902    goto _l120;
 21903  }
 21904  
 21905  w_ = -z_[k_ - 1];
 21906  (void) _zaxpy (($0_ = (*n_) - kk_, &$0_), &w_, &t_[i1_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &z_[i1_ - 1], &_k1);
 21907  _l120:;
 21908  }
 21909  
 21910  s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 21911  (void) _zdscal (n_, &s_, z_, &_k1);
 21912  ynorm_ = s_ * ynorm_;
 21913  if (tnorm_ != 0.0e0) {
 21914    (*rcond_) = ynorm_ / tnorm_;
 21915  }
 21916  
 21917  if (tnorm_ == 0.0e0) {
 21918    (*rcond_) = 0.0;
 21919  }
 21920  
 21921  __calls[174].calls++;
 21922  return 0;
 21923  }
 21924  
 21925  int_4 _ztrdi (complex_16 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_16 _p_ det_, int_4 _p_ job_, int_4 _p_ info_)
 21926  { // ** body not listed **
 21945  }
 21946  
 21947  det_[0] = CMPLX (ten_, 0.0) * det_[0];
 21948  det_[1] = det_[1] - CMPLX (1.0, 0.0);
 21949  goto _l10;
 21950  _l20:;
 21951  _l30:;
 21952  if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < ten_) {
 21953  goto _l40;
 21954  }
 21955  
 21956  det_[0] = det_[0] / CMPLX (ten_, 0.0);
 21957  det_[1] = det_[1] + CMPLX (1.0, 0.0);
 21958  goto _l30;
 21959  _l40:;
 21960  }
 21961  
 21962  _l60:;
 21963  _l70:;
 21964  if (_imod ((*job_) / 10, 10) == 0) {
 21965    goto _l170;
 21966  }
 21967  
 21968  if (_imod ((*job_), 10) == 0) {
 21969    goto _l120;
 21970  }
 21971  
 21972  for (k_ = 1; k_ <= (*n_); (k_)++) {
 21973    (*info_) = k_;
 21974    if (({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 21975    == 0.0e0) {
 21976    goto _l110;
 21977  }
 21978  
 21979  t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 21980  temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 21981  (void) _zscal (($0_ = k_ - 1, &$0_), &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1);
 21982  kp1_ = k_ + 1;
 21983  if ((*n_) < kp1_) {
 21984    goto _l90;
 21985  }
 21986  
 21987  for (j_ = kp1_; j_ <= (*n_); (j_)++) {
 21988    temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
 21989    t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
 21990    (void) _zaxpy (&k_, &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1);
 21991  }
 21992  
 21993  _l90:;
 21994  }
 21995  
 21996  (*info_) = 0;
 21997  _l110:;
 21998  goto _l160;
 21999  _l120:;
 22000  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
 22001    k_ = (*n_) + 1 - kb_;
 22002    (*info_) = k_;
 22003    if (({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 22004    == 0.0e0) {
 22005    goto _l180;
 22006  }
 22007  
 22008  t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 22009  temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 22010  if (k_ != (*n_)) {
 22011    (void) _zscal (($1_ = (*n_) - k_, &$1_), &temp_, &t_[k_ + 1 - 1 + ((*ldt_)) * ((k_ - 1))], &_k1);
 22012  }
 22013  
 22014  km1_ = k_ - 1;
 22015  if (km1_ < 1) {
 22016    goto _l140;
 22017  }
 22018  
 22019  for (j_ = 1; j_ <= km1_; (j_)++) {
 22020    temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
 22021    t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
 22022    (void) _zaxpy (($2_ = (*n_) - k_ + 1, &$2_), &temp_, &t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[k_ - 1 + ((*ldt_)) 
 22023    * ((j_ - 1))], &_k1);
 22024  }
 22025  
 22026  _l140:;
 22027  }
 22028  
 22029  (*info_) = 0;
 22030  _l160:;
 22031  _l170:;
 22032  _l180:;
 22033  __calls[175].calls++;
 22034  return 0;
 22035  }
 22036  
 22037  int_4 _ztrsl (complex_16 _p_ t_, int_4 _p_ ldt_, int_4 _p_ n_, complex_16 _p_ b_, int_4 _p_ job_, int_4 _p_ info_)
 22038  { // ** body not listed **
 22048  }
 22049  
 22050  (*info_) = 0;
 22051  case_ = 1;
 22052  if (_imod ((*job_), 10) != 0) {
 22053    case_ = 2;
 22054  }
 22055  
 22056  if (_imod ((*job_), 100) / 10 != 0) {
 22057    case_ = case_ + 2;
 22058  }
 22059  
 22060  switch (case_) {
 22061    default:
 22062    case 1: goto _l20;
 22063    case 2: goto _l50;
 22064    case 3: goto _l80;
 22065    case 4: goto _l110;
 22066  }
 22067  
 22068  _l20:;
 22069  b_[0] = b_[0] / t_[0 + ((*ldt_)) * ((0))];
 22070  if ((*n_) < 2) {
 22071    goto _l40;
 22072  }
 22073  
 22074  for (j_ = 2; j_ <= (*n_); (j_)++) {
 22075    temp_ = -b_[j_ - 1 - 1];
 22076    (void) _zaxpy (($0_ = (*n_) - j_ + 1, &$0_), &temp_, &t_[j_ - 1 + ((*ldt_)) * ((j_ - 1 - 1))], &_k1, &b_[j_ - 1], &_k1)
 22077    ;
 22078    b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
 22079  }
 22080  
 22081  _l40:;
 22082  goto _l140;
 22083  _l50:;
 22084  b_[(*n_) - 1] = b_[(*n_) - 1] / t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))];
 22085  if ((*n_) < 2) {
 22086    goto _l70;
 22087  }
 22088  
 22089  for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
 22090    j_ = (*n_) - jj_ + 1;
 22091    temp_ = -b_[j_ + 1 - 1];
 22092    (void) _zaxpy (&j_, &temp_, &t_[0 + ((*ldt_)) * ((j_ + 1 - 1))], &_k1, &b_[0], &_k1);
 22093    b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
 22094  }
 22095  
 22096  _l70:;
 22097  goto _l140;
 22098  _l80:;
 22099  b_[(*n_) - 1] = b_[(*n_) - 1] / conj (t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))]);
 22100  if ((*n_) < 2) {
 22101    goto _l100;
 22102  }
 22103  
 22104  for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
 22105    j_ = (*n_) - jj_ + 1;
 22106    b_[j_ - 1] = b_[j_ - 1] - _zdotc (($1_ = jj_ - 1, &$1_), &t_[j_ + 1 - 1 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[j_ + 1 - 
 22107    1], &_k1);
 22108    b_[j_ - 1] = b_[j_ - 1] / conj (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
 22109  }
 22110  
 22111  _l100:;
 22112  goto _l140;
 22113  _l110:;
 22114  b_[0] = b_[0] / conj (t_[0 + ((*ldt_)) * ((0))]);
 22115  if ((*n_) < 2) {
 22116    goto _l130;
 22117  }
 22118  
 22119  for (j_ = 2; j_ <= (*n_); (j_)++) {
 22120    b_[j_ - 1] = b_[j_ - 1] - _zdotc (($2_ = j_ - 1, &$2_), &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[0], &_k1);
 22121    b_[j_ - 1] = b_[j_ - 1] / conj (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
 22122  }
 22123  
 22124  _l130:;
 22125  _l140:;
 22126  _l150:;
 22127  __calls[176].calls++;
 22128  return 0;
 22129  }
 22130  


© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)