☰  Menu Navigation ‣ Home ‣ About Marcel ‣ Privacy and cookies Algol 68 Genie ‣ The Algol 68 Genie project ‣ Downloads and tutorials ‣ Code browser Blog ‣ Vintage Fortran compiler ‣ Thermodynamics ex machina ‣ Wireless headsets, HiFi and Linux ‣ Snoopy calendar 1969-2025 ‣ Partial Least Squares Regression in Algol 68 ‣ The battle for Arnhem bridge ‣ …

mathlib-linpack.c

 //! @file mathlib-linpack.c
 //
 //! @section copyright
 //
 // This file is part of VIF - vintage fortran compiler.
 // Copyright 2020-2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
 //
 //! @section license
 //
 // This program is free software; you can redistribute it and/or modify it 
 // under the terms of the gnu general public license as published by the 
 // free software foundation; either version 3 of the license, or 
 // (at your option) any later version.
 //
 // This program is distributed in the hope that it will be useful, but 
 // without any warranty; without even the implied warranty of merchantability 
 // or fitness for a particular purpose. See the GNU general public license for 
 // more details. you should have received a copy of the GNU general public 
 // license along with this program. If not, see <http://www.gnu.org/licenses/>.
 //
 //! @Synopsis
 //
 //! 177 subprograms from LINPACK
 
 // Compiled from Fortran source code by VIF.
 // Selected subprograms are:
 //
 // CCHDC  CHPDI  CSICO  DGBFA  DPPSL  SCHEX  SPOSL  STRDI  ZHIFA  ZPPFA
 // CCHDD  CHPFA  CSIDI  DGBSL  DPTSL  SCHUD  SPPCO  STRSL  ZHISL  ZPPSL
 // CCHEX  CHPSL  CSIFA  DGECO  DQRDC  SGBCO  SPPDI  ZCHDC  ZHPCO  ZPTSL
 // CCHUD  CPBCO  CSISL  DGEDI  DQRSL  SGBDI  SPPFA  ZCHDD  ZHPDI  ZQRDC
 // CGBCO  CPBDI  CSPCO  DGEFA  DSICO  SGBFA  SPPSL  ZCHEX  ZHPFA  ZQRSL
 // CGBDI  CPBFA  CSPDI  DGESL  DSIDI  SGBSL  SPTSL  ZCHUD  ZHPSL  ZSICO
 // CGBFA  CPBSL  CSPFA  DGTSL  DSIFA  SGECO  SQRDC  ZGBCO  ZMACH  ZSIDI
 // CGBSL  CPOCO  CSPSL  DPBCO  DSISL  SGEDI  SQRSL  ZGBDI  ZPBCO  ZSIFA
 // CGECO  CPODI  CSVDC  DPBDI  DSPCO  SGEFA  SSICO  ZGBFA  ZPBDI  ZSISL
 // CGEDI  CPOFA  CTRCO  DPBFA  DSPDI  SGESL  SSIDI  ZGBSL  ZPBFA  ZSPCO
 // CGEFA  CPOSL  CTRDI  DPBSL  DSPFA  SGTSL  SSIFA  ZGECO  ZPBSL  ZSPDI
 // CGESL  CPPCO  CTRSL  DPOCO  DSPSL  SPBCO  SSISL  ZGEDI  ZPOCO  ZSPFA
 // CGTSL  CPPDI  DCHDC  DPODI  DSVDC  SPBDI  SSPCO  ZGEFA  ZPODI  ZSPSL
 // CHICO  CPPFA  DCHDD  DPOFA  DTRCO  SPBFA  SSPDI  ZGESL  ZPOFA  ZSVDC
 // CHIDI  CPPSL  DCHEX  DPOSL  DTRDI  SPBSL  SSPFA  ZGTSL  ZPOSL  ZTRCO
 // CHIFA  CPTSL  DCHUD  DPPCO  DTRSL  SPOCO  SSPSL  ZHICO  ZPPCO  ZTRDI
 // CHISL  CQRDC  DGBCO  DPPDI  SCHDC  SPODI  SSVDC  ZHIDI  ZPPDI  ZTRSL
 // CHPCO  CQRSL  DGBDI  DPPFA  SCHDD  SPOFA  STRCO
 
 // LINPACK is a collection of Fortran subroutines that analyze and
 // solve linear equations and linear least-squares probles.  The
 // package solves linear systems whose matrices are general, banded,
 // symmetric indefinite, symmetric positive definite, triangular,
 // and tridiagonal square.  In addition, the package computes
 // the QR and singular value decompositions of rectangular matrices
 // and applies them to least-squares problems.  LINPACK uses
 // column-oriented algorithms to increase efficiency by preserving
 // locality of reference.
 // 
 // LINPACK was designed for supercomputers in use in the 1970s and
 // early 1980s. LINPACK has been largely superceded by LAPACK
 // which has been designed to run efficiently on shared-memory, vector
 // supercomputers.
 // 
 // Original authors are Jack Dongarra, Jim Bunch, Cleve Moler,
 // Pete Stewart, et alii.
 // 
 // Source: netlib/linpack/
 
 // The license for LINPACK Fortran source code is:
 //
 // LINPACK is licensed under the Modified 3 clause BSD license.
 // 
 // Prof. Jack Dongarra; Innovative Computing Laboratory; EECS Department;
 // 1122 Volunteer Blvd; University of Tennessee; Knoxville TN 37996-3450;
 // +1-865-974-8295; dongarra.edu; http://www.cs.utk.edu/~dongarra/
 // 
 // All rights reserved.
 // 
 // Redistribution and use in source and binary forms, with or without
 // modification, are permitted provided that the following conditions are met:
 // 
 // * Redistributions of source code must retain the above copyright notice, this
 //   list of conditions and the following disclaimer.
 // 
 // * Redistributions in binary form must reproduce the above copyright notice,
 //   this list of conditions and the following disclaimer in the documentation
 //   and/or other materials provided with the distribution.
 // 
 // * Neither the name of [project] nor the names of its
 //   contributors may be used to endorse or promote products derived from
 //   this software without specific prior written permission.
 // 
 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 // DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
 // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
 // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 // OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 // 
 
 /*
 Generated by VIF - experimental VIntage Fortran compiler.
 VIF release 1.2.12
 */
 static CALLS __calls[__ncalls] = {
   {"cchdc", 0}, // subroutine
   {"cchdd", 0}, // subroutine
   {"cchex", 0}, // subroutine
   {"cchud", 0}, // subroutine
   {"cgbco", 0}, // subroutine
   {"cgbdi", 0}, // subroutine
   {"cgbfa", 0}, // subroutine
   {"cgbsl", 0}, // subroutine
   {"cgeco", 0}, // subroutine
   {"cgedi", 0}, // subroutine
   {"cgefa", 0}, // subroutine
   {"cgesl", 0}, // subroutine
   {"cgtsl", 0}, // subroutine
   {"chico", 0}, // subroutine
   {"chidi", 0}, // subroutine
   {"chifa", 0}, // subroutine
   {"chisl", 0}, // subroutine
   {"chpco", 0}, // subroutine
   {"chpdi", 0}, // subroutine
   {"chpfa", 0}, // subroutine
   {"chpsl", 0}, // subroutine
   {"cpbco", 0}, // subroutine
   {"cpbdi", 0}, // subroutine
   {"cpbfa", 0}, // subroutine
   {"cpbsl", 0}, // subroutine
   {"cpoco", 0}, // subroutine
   {"cpodi", 0}, // subroutine
   {"cpofa", 0}, // subroutine
   {"cposl", 0}, // subroutine
   {"cppco", 0}, // subroutine
   {"cppdi", 0}, // subroutine
   {"cppfa", 0}, // subroutine
   {"cppsl", 0}, // subroutine
   {"cptsl", 0}, // subroutine
   {"cqrdc", 0}, // subroutine
   {"cqrsl", 0}, // subroutine
   {"csico", 0}, // subroutine
   {"csidi", 0}, // subroutine
   {"csifa", 0}, // subroutine
   {"csisl", 0}, // subroutine
   {"cspco", 0}, // subroutine
   {"cspdi", 0}, // subroutine
   {"cspfa", 0}, // subroutine
   {"cspsl", 0}, // subroutine
   {"csvdc", 0}, // subroutine
   {"ctrco", 0}, // subroutine
   {"ctrdi", 0}, // subroutine
   {"ctrsl", 0}, // subroutine
   {"dchdc", 0}, // subroutine
   {"dchdd", 0}, // subroutine
   {"dchex", 0}, // subroutine
   {"dchud", 0}, // subroutine
   {"dgbco", 0}, // subroutine
   {"dgbdi", 0}, // subroutine
   {"dgbfa", 0}, // subroutine
   {"dgbsl", 0}, // subroutine
   {"dgeco", 0}, // subroutine
   {"dgedi", 0}, // subroutine
   {"dgefa", 0}, // subroutine
   {"dgesl", 0}, // subroutine
   {"dgtsl", 0}, // subroutine
   {"dpbco", 0}, // subroutine
   {"dpbdi", 0}, // subroutine
   {"dpbfa", 0}, // subroutine
   {"dpbsl", 0}, // subroutine
   {"dpoco", 0}, // subroutine
   {"dpodi", 0}, // subroutine
   {"dpofa", 0}, // subroutine
   {"dposl", 0}, // subroutine
   {"dppco", 0}, // subroutine
   {"dppdi", 0}, // subroutine
   {"dppfa", 0}, // subroutine
   {"dppsl", 0}, // subroutine
   {"dptsl", 0}, // subroutine
   {"dqrdc", 0}, // subroutine
   {"dqrsl", 0}, // subroutine
   {"dsico", 0}, // subroutine
   {"dsidi", 0}, // subroutine
   {"dsifa", 0}, // subroutine
   {"dsisl", 0}, // subroutine
   {"dspco", 0}, // subroutine
   {"dspdi", 0}, // subroutine
   {"dspfa", 0}, // subroutine
   {"dspsl", 0}, // subroutine
   {"dsvdc", 0}, // subroutine
   {"dtrco", 0}, // subroutine
   {"dtrdi", 0}, // subroutine
   {"dtrsl", 0}, // subroutine
   {"schdc", 0}, // subroutine
   {"schdd", 0}, // subroutine
   {"schex", 0}, // subroutine
   {"schud", 0}, // subroutine
   {"sgbco", 0}, // subroutine
   {"sgbdi", 0}, // subroutine
   {"sgbfa", 0}, // subroutine
   {"sgbsl", 0}, // subroutine
   {"sgeco", 0}, // subroutine
   {"sgedi", 0}, // subroutine
   {"sgefa", 0}, // subroutine
   {"sgesl", 0}, // subroutine
   {"sgtsl", 0}, // subroutine
   {"spbco", 0}, // subroutine
   {"spbdi", 0}, // subroutine
   {"spbfa", 0}, // subroutine
   {"spbsl", 0}, // subroutine
   {"spoco", 0}, // subroutine
   {"spodi", 0}, // subroutine
   {"spofa", 0}, // subroutine
   {"sposl", 0}, // subroutine
   {"sppco", 0}, // subroutine
   {"sppdi", 0}, // subroutine
   {"sppfa", 0}, // subroutine
   {"sppsl", 0}, // subroutine
   {"sptsl", 0}, // subroutine
   {"sqrdc", 0}, // subroutine
   {"sqrsl", 0}, // subroutine
   {"ssico", 0}, // subroutine
   {"ssidi", 0}, // subroutine
   {"ssifa", 0}, // subroutine
   {"ssisl", 0}, // subroutine
   {"sspco", 0}, // subroutine
   {"sspdi", 0}, // subroutine
   {"sspfa", 0}, // subroutine
   {"sspsl", 0}, // subroutine
   {"ssvdc", 0}, // subroutine
   {"strco", 0}, // subroutine
   {"strdi", 0}, // subroutine
   {"strsl", 0}, // subroutine
   {"zchdc", 0}, // subroutine
   {"zchdd", 0}, // subroutine
   {"zchex", 0}, // subroutine
   {"zchud", 0}, // subroutine
   {"zgbco", 0}, // subroutine
   {"zgbdi", 0}, // subroutine
   {"zgbfa", 0}, // subroutine
   {"zgbsl", 0}, // subroutine
   {"zgeco", 0}, // subroutine
   {"zgedi", 0}, // subroutine
   {"zgefa", 0}, // subroutine
   {"zgesl", 0}, // subroutine
   {"zgtsl", 0}, // subroutine
   {"zhico", 0}, // subroutine
   {"zhidi", 0}, // subroutine
   {"zhifa", 0}, // subroutine
   {"zhisl", 0}, // subroutine
   {"zhpco", 0}, // subroutine
   {"zhpdi", 0}, // subroutine
   {"zhpfa", 0}, // subroutine
   {"zhpsl", 0}, // subroutine
   {"zmach", 0}, // real*8 function
   {"zpbco", 0}, // subroutine
   {"zpbdi", 0}, // subroutine
   {"zpbfa", 0}, // subroutine
   {"zpbsl", 0}, // subroutine
   {"zpoco", 0}, // subroutine
   {"zpodi", 0}, // subroutine
   {"zpofa", 0}, // subroutine
   {"zposl", 0}, // subroutine
   {"zppco", 0}, // subroutine
   {"zppdi", 0}, // subroutine
   {"zppfa", 0}, // subroutine
   {"zppsl", 0}, // subroutine
   {"zptsl", 0}, // subroutine
   {"zqrdc", 0}, // subroutine
   {"zqrsl", 0}, // subroutine
   {"zsico", 0}, // subroutine
   {"zsidi", 0}, // subroutine
   {"zsifa", 0}, // subroutine
   {"zsisl", 0}, // subroutine
   {"zspco", 0}, // subroutine
   {"zspdi", 0}, // subroutine
   {"zspfa", 0}, // subroutine
   {"zspsl", 0}, // subroutine
   {"zsvdc", 0}, // subroutine
   {"ztrco", 0}, // subroutine
   {"ztrdi", 0}, // subroutine
   {"ztrsl", 0}, // subroutine
   {NULL, 0}
 };
 
 job_, int_4 _p_ info_);
 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_);
 int_4 _p_ ldz_, int_4 _p_ nz_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ job_);
 ldz_, int_4 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_);
 , real_4 _p_ rcond_, complex_8 _p_ z_);
 , complex_8 _p_ det_);
 , int_4 _p_ info_);
 , complex_8 _p_ b_, int_4 _p_ job_);
 _p_ z_);
 _p_ work_, int_4 _p_ job_);
 job_);
 info_);
 _p_ z_);
 inert_, complex_8 _p_ work_, int_4 _p_ job_);
 _p_ work_, int_4 _p_ job_);
 _p_ z_, int_4 _p_ info_);
 info_);
 jpvt_, complex_8 _p_ work_, int_4 _p_ job_);
 _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_, 
 int_4 _p_ info_);
 _p_ z_);
 _p_ work_, int_4 _p_ job_);
 int_4 _p_ job_);
 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_ 
 info_);
 job_);
 info_);
 info_);
 int_4 _p_ info_);
 int_4 _p_ nz_, real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ info_);
 _p_ ldz_, int_4 _p_ nz_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ job_);
 int_4 _p_ nz_, real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_);
 real_8 _p_ rcond_, real_8 _p_ z_);
 real_8 _p_ det_);
 int_4 _p_ info_);
 real_8 _p_ b_, int_4 _p_ job_);
 ;
 , int_4 _p_ job_);
 int_4 _p_ info_);
 ;
 real_8 _p_ work_, int_4 _p_ job_);
 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_);
 ;
 , real_8 _p_ work_, int_4 _p_ job_);
 work_, int_4 _p_ job_);
 _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_);
 int_4 _p_ info_);
 int_4 _p_ nz_, real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ info_);
 _p_ ldz_, int_4 _p_ nz_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ job_);
 int_4 _p_ nz_, real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_);
 real_4 _p_ rcond_, real_4 _p_ z_);
 real_4 _p_ det_);
 int_4 _p_ info_);
 real_4 _p_ b_, int_4 _p_ job_);
 ;
 , int_4 _p_ job_);
 int_4 _p_ info_);
 ;
 real_4 _p_ work_, int_4 _p_ job_);
 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_);
 ;
 , real_4 _p_ work_, int_4 _p_ job_);
 work_, int_4 _p_ job_);
 _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_);
 _p_ job_, int_4 _p_ info_);
 _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_);
 int_4 _p_ ldz_, int_4 _p_ nz_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ job_);
 _p_ ldz_, int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_);
 ipvt_, real_8 _p_ rcond_, complex_16 _p_ z_);
 ipvt_, complex_16 _p_ det_);
 ipvt_, int_4 _p_ info_);
 ipvt_, complex_16 _p_ b_, int_4 _p_ job_);
 _p_ z_);
 complex_16 _p_ work_, int_4 _p_ job_);
 job_);
 _p_ info_);
 _p_ z_);
 inert_, complex_16 _p_ work_, int_4 _p_ job_);
 complex_16 _p_ work_, int_4 _p_ job_);
 _p_ z_, int_4 _p_ info_);
 _p_ info_);
 jpvt_, complex_16 _p_ work_, int_4 _p_ job_);
 complex_16 _p_ y_, complex_16 _p_ qy_, complex_16 _p_ qty_, complex_16 _p_ b_, complex_16 _p_ rsd_, complex_16 _p_ xb_, 
 int_4 _p_ job_, int_4 _p_ info_);
 _p_ z_);
 complex_16 _p_ work_, int_4 _p_ job_);
 int_4 _p_ job_);
 _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_, 
 int_4 _p_ info_);
 _p_ job_);
 info_);
 info_);
 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_, 
 int_4 _p_ info_)
 { // ** body not listed **
 }
 
 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 
 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 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_ 
 ldz_, int_4 _p_ nz_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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 
 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_)
 { // ** body not listed **
 }
 
 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 
 _p_ rcond_, complex_8 _p_ z_)
 { // ** body not listed **
 }
 
 s_ = ({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ek_ = CMPLXF (s_, 0.0) * ek_;
 _l30:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 if (({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 goto _l40;
 }
 
 wk_ = wk_ / conjf (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
 wkm_ = wkm_ / conjf (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
 goto _l50;
 _l40:;
 wk_ = CMPLXF (1.0, 0.0);
 wkm_ = CMPLXF (1.0, 0.0);
 _l50:;
 kp1_ = k_ + 1;
 ju_ = _min (_max (ju_, (*mu_) + ipvt_[k_ - 1]), (*n_));
 mm_ = m_;
 if (kp1_ > ju_) {
   goto _l90;
 }
 
 for (j_ = kp1_; j_ <= ju_; (j_)++) {
   mm_ = mm_ - 1;
   sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4) 
   (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
   s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 }
 
 if (s_ >= sm_) {
   goto _l80;
 }
 
 t_ = wkm_ - wk_;
 wk_ = wkm_;
 mm_ = m_;
 for (j_ = kp1_; j_ <= ju_; (j_)++) {
   mm_ = mm_ - 1;
   z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
 }
 
 _l80:;
 _l90:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   lm_ = _min ((*ml_), (*n_) - k_);
   if (k_ < (*n_)) {
     z_[k_ - 1] = z_[k_ - 1] + _cdotc (&lm_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
   }
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= 1.0e0) {
   goto _l110;
 }
 s_ = 1.0e0 / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 _l110:;
 l_ = ipvt_[k_ - 1];
 t_ = z_[l_ - 1];
 z_[l_ - 1] = z_[k_ - 1];
 z_[k_ - 1] = t_;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   l_ = ipvt_[k_ - 1];
   t_ = z_[l_ - 1];
   z_[l_ - 1] = z_[k_ - 1];
   z_[k_ - 1] = t_;
   lm_ = _min ((*ml_), (*n_) - k_);
   if (k_ < (*n_)) {
     (void) _caxpy (&lm_, &t_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
   }
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= 1.0e0) {
   goto _l130;
 }
 
 s_ = 1.0e0 / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l130:;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
   zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
   goto _l150;
 }
 
 s_ = ({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l150:;
 if (({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 lm_ = _min (k_, m_) - 1;
 la_ = m_ - lm_;
 lz_ = k_ - lm_;
 t_ = -z_[k_ - 1];
 (void) _caxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lz_ - 1], &_k1);
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[4].calls++;
 return 0;
 }
 
 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_, 
 complex_8 _p_ det_)
 { // ** body not listed **
 }
 
 det_[0] = CMPLXF (ten_, 0.0) * det_[0];
 det_[1] = det_[1] - CMPLXF (1.0, 0.0);
 goto _l10;
 _l20:;
 _l30:;
 if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
 goto _l40;
 }
 
 det_[0] = det_[0] / CMPLXF (ten_, 0.0);
 det_[1] = det_[1] + CMPLXF (1.0, 0.0);
 goto _l30;
 _l40:;
 }
 
 _l60:;
 __calls[5].calls++;
 return 0;
 }
 
 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 
 _p_ info_)
 { // ** body not listed **
 }
 
 _l130:;
 ipvt_[(*n_) - 1] = (*n_);
 if (({complex_8 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * (((*n_) - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 (*info_) = (*n_);
 }
 
 __calls[6].calls++;
 return 0;
 }
 
 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_, 
 complex_8 _p_ b_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ek_ = CMPLXF (s_, 0.0) * ek_;
 _l30:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 goto _l40;
 }
 
 wk_ = wk_ / conjf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
 wkm_ = wkm_ / conjf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
 goto _l50;
 _l40:;
 wk_ = CMPLXF (1.0, 0.0);
 wkm_ = CMPLXF (1.0, 0.0);
 _l50:;
 kp1_ = k_ + 1;
 if (kp1_ > (*n_)) {
   goto _l90;
 }
 
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4) 
   (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
   s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 }
 
 if (s_ >= sm_) {
   goto _l80;
 }
 
 t_ = wkm_ - wk_;
 wk_ = wkm_;
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
 }
 
 _l80:;
 _l90:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (k_ < (*n_)) {
     z_[k_ - 1] = z_[k_ - 1] + _cdotc (($0_ = (*n_) - k_, &$0_), &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 
     - 1], &_k1);
   }
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= 1.0e0) {
   goto _l110;
 }
 
 s_ = 1.0e0 / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 _l110:;
 l_ = ipvt_[k_ - 1];
 t_ = z_[l_ - 1];
 z_[l_ - 1] = z_[k_ - 1];
 z_[k_ - 1] = t_;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   l_ = ipvt_[k_ - 1];
   t_ = z_[l_ - 1];
   z_[l_ - 1] = z_[k_ - 1];
   z_[k_ - 1] = t_;
   if (k_ < (*n_)) {
     (void) _caxpy (($1_ = (*n_) - k_, &$1_), &t_, &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
   }
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= 1.0e0) {
   goto _l130;
 }
 
 s_ = 1.0e0 / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l130:;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
   zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
   goto _l150;
 }
 
 s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l150:;
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 
 t_ = -z_[k_ - 1];
 (void) _caxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[8].calls++;
 return 0;
 }
 
 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_, 
 int_4 _p_ job_)
 { // ** body not listed **
 }
 
 det_[0] = CMPLXF (ten_, 0.0) * det_[0];
 det_[1] = det_[1] - CMPLXF (1.0, 0.0);
 goto _l10;
 _l20:;
 _l30:;
 if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
 goto _l40;
 }
 
 det_[0] = det_[0] / CMPLXF (ten_, 0.0);
 det_[1] = det_[1] + CMPLXF (1.0, 0.0);
 goto _l30;
 _l40:;
 }
 
 _l60:;
 _l70:;
 if (_imod ((*job_), 10) == 0) {
   goto _l150;
 }
 
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
   t_ = -a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
   (void) _cscal (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
   kp1_ = k_ + 1;
   if ((*n_) < kp1_) {
     goto _l90;
   }
   for (j_ = kp1_; j_ <= (*n_); (j_)++) {
     t_ = a_[k_ - 1 + ((*lda_)) * ((j_ - 1))];
     a_[k_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
     (void) _caxpy (&k_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   }
   _l90:;
 }
 
 nm1_ = (*n_) - 1;
 if (nm1_ < 1) {
   goto _l140;
 }
 
 for (kb_ = 1; kb_ <= nm1_; (kb_)++) {
   k_ = (*n_) - kb_;
   kp1_ = k_ + 1;
   for (i_ = kp1_; i_ <= (*n_); (i_)++) {
     work_[i_ - 1] = a_[i_ - 1 + ((*lda_)) * ((k_ - 1))];
     a_[i_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLXF (0.0, 0.0);
   }
   for (j_ = kp1_; j_ <= (*n_); (j_)++) {
     t_ = work_[j_ - 1];
     (void) _caxpy (n_, &t_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
   }
   l_ = ipvt_[k_ - 1];
   if (l_ != k_) {
     (void) _cswap (n_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((l_ - 1))], &_k1);
   }
 }
 
 _l140:;
 _l150:;
 __calls[9].calls++;
 return 0;
 }
 
 int_4 _cgefa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 _l70:;
 ipvt_[(*n_) - 1] = (*n_);
 if (({complex_8 zdum__1_ = a_[(*n_) - 1 + ((*lda_)) * (((*n_) - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
 (cimagf (zdum__1_));}) == 0.0e0) {
 (*info_) = (*n_);
 }
 __calls[10].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 (*info_) = k_;
 goto _l100;
 _l20:;
 t_ = -c_[kp1_ - 1] / c_[k_ - 1];
 c_[kp1_ - 1] = d_[kp1_ - 1] + t_ * d_[k_ - 1];
 d_[kp1_ - 1] = e_[kp1_ - 1] + t_ * e_[k_ - 1];
 e_[kp1_ - 1] = CMPLXF (0.0, 0.0);
 b_[kp1_ - 1] = b_[kp1_ - 1] + t_ * b_[k_ - 1];
 }
 
 _l40:;
 if (({complex_8 zdum__1_ = c_[(*n_) - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) 
 { // ** body not listed **
 }
 
 (*info_) = (*n_);
 goto _l90;
 _l50:;
 nm2_ = (*n_) - 2;
 b_[(*n_) - 1] = b_[(*n_) - 1] / c_[(*n_) - 1];
 if ((*n_) == 1) {
   goto _l80;
 }
 
 b_[nm1_ - 1] = (b_[nm1_ - 1] - d_[nm1_ - 1] * b_[(*n_) - 1]) / c_[nm1_ - 1];
 if (nm2_ < 1) {
   goto _l70;
 }
 
 for (kb_ = 1; kb_ <= nm2_; (kb_)++) {
   k_ = nm2_ - kb_ + 1;
   b_[k_ - 1] = (b_[k_ - 1] - d_[k_ - 1] * b_[k_ + 1 - 1] - e_[k_ - 1] * b_[k_ + 2 - 1]) / c_[k_ - 1];
 }
 
 _l70:;
 _l80:;
 _l90:;
 _l100:;
 __calls[12].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 z_[k_ - 1] = z_[k_ - 1] + ek_;
 (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 1) {
   goto _l80;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) 
 { // ** body not listed **
 }
 
 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 _l80:;
 if (ks_ == 2) {
   goto _l100;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
 goto _l90;
 }
 
 s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ek_ = CMPLXF (s_, 0.0) * ek_;
 _l90:;
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 
 goto _l110;
 _l100:;
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bk_ = z_[k_ - 1] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l110:;
 k_ = k_ - ks_;
 goto _l60;
 _l120:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 k_ = 1;
 _l130:;
 if (k_ > (*n_)) {
   goto _l160;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l150;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _cdotc (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
   &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l140;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l140:;
 _l150:;
 k_ = k_ + ks_;
 goto _l130;
 _l160:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 k_ = (*n_);
 _l170:;
 if (k_ == 0) {
   goto _l230;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == ks_) {
   goto _l190;
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 kps_ = k_ + 1 - ks_;
 if (kp_ == kps_) {
   goto _l180;
 }
 t_ = z_[kps_ - 1];
 z_[kps_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l180:;
 (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 }
 
 _l190:;
 if (ks_ == 2) {
   goto _l210;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
 goto _l200;
 }
 
 s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l200:;
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 
 goto _l220;
 _l210:;
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bk_ = z_[k_ - 1] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l220:;
 k_ = k_ - ks_;
 goto _l170;
 _l230:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 k_ = 1;
 _l240:;
 if (k_ > (*n_)) {
   goto _l270;
 }
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l260;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _cdotc (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
   &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l250;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l250:;
 _l260:;
 k_ = k_ + ks_;
 goto _l240;
 _l270:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[13].calls++;
 return 0;
 }
 
 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_, 
 complex_8 _p_ work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _chifa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 goto _l200;
 _l20:;
 km1_ = k_ - 1;
 absakk_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
 (cimagf (zdum__1_));});
 imax_ = _icamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 colmax_ = ({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
 (cimagf (zdum__1_));});
 if (absakk_ < alpha_ * colmax_) {
   goto _l30;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l90;
 _l30:;
 rowmax_ = 0.0;
 imaxp1_ = imax_ + 1;
 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
   rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs ((real_4) (crealf 
   (zdum__1_))) + _abs (cimagf (zdum__1_));}));
 }
 
 if (imax_ == 1) {
   goto _l50;
 }
 
 jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
 rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf 
 (zdum__1_))) + _abs (cimagf (zdum__1_));}));
 _l50:;
 if (({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
 (cimagf (zdum__1_));}) < alpha_ * rowmax_) {
 goto _l60;
 }
 
 kstep_ = 1;
 swap_ = TRUE;
 goto _l80;
 _l60:;
 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
   goto _l70;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l80;
 _l70:;
 kstep_ = 2;
 swap_ = imax_ != km1_;
 _l80:;
 _l90:;
 if (_max (absakk_, colmax_) != 0.0e0) {
   goto _l100;
 }
 
 kpvt_[k_ - 1] = k_;
 (*info_) = k_;
 goto _l190;
 _l100:;
 if (kstep_ == 2) {
   goto _l140;
 }
 
 if (! (swap_)) {
   goto _l120;
 }
 
 (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
   j_ = k_ + imax_ - jj_;
   t_ = conjf (a_[j_ - 1 + ((*lda_)) * ((k_ - 1))]);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = conjf (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
   a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 }
 
 _l120:;
 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
   j_ = k_ - jj_;
   mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
   t_ = conjf (mulk_);
   (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLXF ((real_4) (crealf (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))])), 0.0);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
 }
 
 kpvt_[k_ - 1] = k_;
 if (swap_) {
   kpvt_[k_ - 1] = imax_;
 }
 
 goto _l190;
 _l140:;
 if (! (swap_)) {
   goto _l160;
 }
 
 (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
   j_ = km1_ + imax_ - jj_;
   t_ = conjf (a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))]);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = conjf (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
   a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 }
 
 t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
 a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
 _l160:;
 km2_ = k_ - 2;
 if (km2_ == 0) {
   goto _l180;
 }
 
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 denom_ = 1.0e0 - ak_ * akm1_;
 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
   j_ = km1_ - jj_;
   bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
   bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
   mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
   mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
   t_ = conjf (mulk_);
   (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   t_ = conjf (mulkm1_);
   (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
   a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLXF ((real_4) (crealf (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))])), 0.0);
 }
 
 _l180:;
 kpvt_[k_ - 1] = 1 - k_;
 if (swap_) {
   kpvt_[k_ - 1] = -imax_;
 }
 
 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 _l190:;
 k_ = k_ - kstep_;
 goto _l10;
 _l200:;
 __calls[15].calls++;
 return 0;
 }
 
 int_4 _chisl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _chpco (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
 { // ** body not listed **
 }
 
 z_[k_ - 1] = z_[k_ - 1] + ek_;
 (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 if (ks_ == 1) {
   goto _l80;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) 
 { // ** body not listed **
 }
 
 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 _l80:;
 if (ks_ == 2) {
   goto _l100;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
 goto _l90;
 }
 
 s_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) / 
 ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ek_ = CMPLXF (s_, 0.0) * ek_;
 _l90:;
 if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 }
 
 if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 
 goto _l110;
 _l100:;
 km1k_ = ik_ + k_ - 1;
 km1km1_ = ikm1_ + k_ - 1;
 ak_ = ap_[kk_ - 1] / conjf (ap_[km1k_ - 1]);
 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 bk_ = z_[k_ - 1] / conjf (ap_[km1k_ - 1]);
 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l110:;
 k_ = k_ - ks_;
 ik_ = ik_ - k_;
 if (ks_ == 2) {
   ik_ = ik_ - (k_ + 1);
 }
 
 goto _l60;
 _l120:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 k_ = 1;
 ik_ = 0;
 _l130:;
 if (k_ > (*n_)) {
   goto _l160;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l150;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _cdotc (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 ikp1_ = ik_ + k_;
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l140;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l140:;
 _l150:;
 ik_ = ik_ + k_;
 if (ks_ == 2) {
   ik_ = ik_ + (k_ + 1);
 }
 
 k_ = k_ + ks_;
 goto _l130;
 _l160:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 k_ = (*n_);
 ik_ = (*n_) * ((*n_) - 1) / 2;
 _l170:;
 if (k_ == 0) {
   goto _l230;
 }
 
 kk_ = ik_ + k_;
 ikm1_ = ik_ - (k_ - 1);
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == ks_) {
   goto _l190;
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 kps_ = k_ + 1 - ks_;
 if (kp_ == kps_) {
   goto _l180;
 }
 
 t_ = z_[kps_ - 1];
 z_[kps_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l180:;
 (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 _l190:;
 if (ks_ == 2) {
   goto _l210;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
 goto _l200;
 }
 
 s_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) / 
 ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l200:;
 if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 }
 
 if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 
 goto _l220;
 _l210:;
 km1k_ = ik_ + k_ - 1;
 km1km1_ = ikm1_ + k_ - 1;
 ak_ = ap_[kk_ - 1] / conjf (ap_[km1k_ - 1]);
 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 bk_ = z_[k_ - 1] / conjf (ap_[km1k_ - 1]);
 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l220:;
 k_ = k_ - ks_;
 ik_ = ik_ - k_;
 if (ks_ == 2) {
   ik_ = ik_ - (k_ + 1);
 }
 
 goto _l170;
 _l230:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 k_ = 1;
 ik_ = 0;
 _l240:;
 if (k_ > (*n_)) {
   goto _l270;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l260;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _cdotc (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 ikp1_ = ik_ + k_;
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l250;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l250:;
 _l260:;
 ik_ = ik_ + k_;
 if (ks_ == 2) {
   ik_ = ik_ + (k_ + 1);
 }
 
 k_ = k_ + ks_;
 goto _l240;
 _l270:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[17].calls++;
 return 0;
 }
 
 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_, 
 int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _chpfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 goto _l200;
 _l20:;
 km1_ = k_ - 1;
 kk_ = ik_ + k_;
 absakk_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 imax_ = _icamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
 imk_ = ik_ + imax_;
 colmax_ = ({complex_8 zdum__1_ = ap_[imk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 if (absakk_ < alpha_ * colmax_) {
   goto _l30;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l90;
 _l30:;
 rowmax_ = 0.0;
 imaxp1_ = imax_ + 1;
 im_ = imax_ * (imax_ - 1) / 2;
 imj_ = im_ + 2 * imax_;
 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
   rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = ap_[imj_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
   (zdum__1_));}));
   imj_ = imj_ + j_;
 }
 
 if (imax_ == 1) {
   goto _l50;
 }
 
 jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
 jmim_ = jmax_ + im_;
 rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = ap_[jmim_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}));
 _l50:;
 imim_ = imax_ + im_;
 if (({complex_8 zdum__1_ = ap_[imim_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < alpha_ * 
 rowmax_) {
 goto _l60;
 }
 
 kstep_ = 1;
 swap_ = TRUE;
 goto _l80;
 _l60:;
 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
   goto _l70;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l80;
 _l70:;
 kstep_ = 2;
 swap_ = imax_ != km1_;
 _l80:;
 _l90:;
 if (_max (absakk_, colmax_) != 0.0e0) {
   goto _l100;
 }
 
 kpvt_[k_ - 1] = k_;
 (*info_) = k_;
 goto _l190;
 _l100:;
 if (kstep_ == 2) {
   goto _l140;
 }
 
 if (! (swap_)) {
   goto _l120;
 }
 
 (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 imj_ = ik_ + imax_;
 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
   j_ = k_ + imax_ - jj_;
   jk_ = ik_ + j_;
   t_ = conjf (ap_[jk_ - 1]);
   ap_[jk_ - 1] = conjf (ap_[imj_ - 1]);
   ap_[imj_ - 1] = t_;
   imj_ = imj_ - (j_ - 1);
 }
 
 _l120:;
 ij_ = ik_ - (k_ - 1);
 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
   j_ = k_ - jj_;
   jk_ = ik_ + j_;
   mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
   t_ = conjf (mulk_);
   (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   ijj_ = ij_ + j_;
   ap_[ijj_ - 1] = CMPLXF ((real_4) (crealf (ap_[ijj_ - 1])), 0.0);
   ap_[jk_ - 1] = mulk_;
   ij_ = ij_ - (j_ - 1);
 }
 
 kpvt_[k_ - 1] = k_;
 if (swap_) {
   kpvt_[k_ - 1] = imax_;
 }
 
 goto _l190;
 _l140:;
 km1k_ = ik_ + k_ - 1;
 ikm1_ = ik_ - (k_ - 1);
 if (! (swap_)) {
   goto _l160;
 }
 
 (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
 imj_ = ikm1_ + imax_;
 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
   j_ = km1_ + imax_ - jj_;
   jkm1_ = ikm1_ + j_;
   t_ = conjf (ap_[jkm1_ - 1]);
   ap_[jkm1_ - 1] = conjf (ap_[imj_ - 1]);
   ap_[imj_ - 1] = t_;
   imj_ = imj_ - (j_ - 1);
 }
 
 t_ = ap_[km1k_ - 1];
 ap_[km1k_ - 1] = ap_[imk_ - 1];
 ap_[imk_ - 1] = t_;
 _l160:;
 km2_ = k_ - 2;
 if (km2_ == 0) {
   goto _l180;
 }
 
 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 km1km1_ = ikm1_ + k_ - 1;
 akm1_ = ap_[km1km1_ - 1] / conjf (ap_[km1k_ - 1]);
 denom_ = 1.0e0 - ak_ * akm1_;
 ij_ = ik_ - (k_ - 1) - (k_ - 2);
 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
   j_ = km1_ - jj_;
   jk_ = ik_ + j_;
   bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
   jkm1_ = ikm1_ + j_;
   bkm1_ = ap_[jkm1_ - 1] / conjf (ap_[km1k_ - 1]);
   mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
   mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
   t_ = conjf (mulk_);
   (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   t_ = conjf (mulkm1_);
   (void) _caxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   ap_[jk_ - 1] = mulk_;
   ap_[jkm1_ - 1] = mulkm1_;
   ijj_ = ij_ + j_;
   ap_[ijj_ - 1] = CMPLXF ((real_4) (crealf (ap_[ijj_ - 1])), 0.0);
   ij_ = ij_ - (j_ - 1);
 }
 
 _l180:;
 kpvt_[k_ - 1] = 1 - k_;
 if (swap_) {
   kpvt_[k_ - 1] = -imax_;
 }
 
 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 _l190:;
 ik_ = ik_ - (k_ - 1);
 if (kstep_ == 2) {
   ik_ = ik_ - (k_ - 2);
 }
 
 k_ = k_ - kstep_;
 goto _l10;
 _l200:;
 __calls[19].calls++;
 return 0;
 }
 
 int_4 _chpsl (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
 { // ** body not listed **
 }
 
 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_, 
 int_4 _p_ info_)
 { // ** body not listed **
 }
 
 s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs 
 ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ek_ = CMPLXF (s_, 0.0) * ek_;
 _l60:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 wk_ = wk_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 wkm_ = wkm_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 kp1_ = k_ + 1;
 j2_ = _min (k_ + (*m_), (*n_));
 i_ = (*m_) + 1;
 if (kp1_ > j2_) {
   goto _l100;
 }
 
 for (j_ = kp1_; j_ <= j2_; (j_)++) {
   i_ = i_ - 1;
   sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4) 
   (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
   s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 }
 
 if (s_ >= sm_) {
   goto _l90;
 }
 
 t_ = wkm_ - wk_;
 wk_ = wkm_;
 i_ = (*m_) + 1;
 for (j_ = kp1_; j_ <= j2_; (j_)++) {
   i_ = i_ - 1;
   z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
 }
 
 _l90:;
 _l100:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
   (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]))) {
   goto _l120;
 }
 
 s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs 
 ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 _l120:;
 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 lm_ = _min (k_ - 1, (*m_));
 la_ = (*m_) + 1 - lm_;
 lb_ = k_ - lm_;
 t_ = -z_[k_ - 1];
 (void) _caxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   lm_ = _min (k_ - 1, (*m_));
   la_ = (*m_) + 1 - lm_;
   lb_ = k_ - lm_;
   z_[k_ - 1] = z_[k_ - 1] - _cdotc (&lm_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
   (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]))) {
   goto _l140;
 }
 
 s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs 
 ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l140:;
 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
   (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]))) {
   goto _l160;
 }
 
 s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs 
 ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l160:;
 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 lm_ = _min (k_ - 1, (*m_));
 la_ = (*m_) + 1 - lm_;
 lb_ = k_ - lm_;
 t_ = -z_[k_ - 1];
 (void) _caxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 _l180:;
 __calls[21].calls++;
 return 0;
 }
 
 int_4 _cpbdi (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ det_)
 { // ** body not listed **
 }
 
 int_4 _cpbfa (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _cpbsl (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, complex_8 _p_ b_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) 
 (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ek_ = CMPLXF (s_, 0.0) * ek_;
 _l60:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 wk_ = wk_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 wkm_ = wkm_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 kp1_ = k_ + 1;
 if (kp1_ > (*n_)) {
   goto _l100;
 }
 
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4) 
   (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
   s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 }
 
 if (s_ >= sm_) {
   goto _l90;
 }
 
 t_ = wkm_ - wk_;
 wk_ = wkm_;
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
 }
 
 _l90:;
 _l100:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
   (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]))) {
   goto _l120;
 }
 
 s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) 
 (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 _l120:;
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 t_ = -z_[k_ - 1];
 (void) _caxpy (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   z_[k_ - 1] = z_[k_ - 1] - _cdotc (($1_ = k_ - 1, &$1_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
   (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]))) {
   goto _l140;
 }
 s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) 
 (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l140:;
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
   (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]))) {
   goto _l160;
 }
 
 s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) 
 (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l160:;
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 t_ = -z_[k_ - 1];
 (void) _caxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 _l180:;
 __calls[25].calls++;
 return 0;
 }
 
 int_4 _cpodi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _cpofa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _cposl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _cppco (complex_8 _p_ ap_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + 
 _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ek_ = CMPLXF (s_, 0.0) * ek_;
 _l60:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 wk_ = wk_ / ap_[kk_ - 1];
 wkm_ = wkm_ / ap_[kk_ - 1];
 kp1_ = k_ + 1;
 kj_ = kk_ + k_;
 if (kp1_ > (*n_)) {
   goto _l100;
 }
 
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (ap_[kj_ - 1]); _abs ((real_4) (crealf (zdum__1_))) + _abs 
   (cimagf (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (ap_[kj_ - 1]);
   s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
   kj_ = kj_ + j_;
 }
 
 if (s_ >= sm_) {
   goto _l90;
 }
 
 t_ = wkm_ - wk_;
 wk_ = wkm_;
 kj_ = kk_ + k_;
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (ap_[kj_ - 1]);
   kj_ = kj_ + j_;
 }
 
 _l90:;
 _l100:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
   (crealf (ap_[kk_ - 1]))) {
   goto _l120;
 }
 
 s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
 (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 _l120:;
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 kk_ = kk_ - k_;
 t_ = -z_[k_ - 1];
 (void) _caxpy (($0_ = k_ - 1, &$0_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   z_[k_ - 1] = z_[k_ - 1] - _cdotc (($1_ = k_ - 1, &$1_), &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
   kk_ = kk_ + k_;
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
   (crealf (ap_[kk_ - 1]))) {
   goto _l140;
 }
 
 s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
 (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l140:;
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= (real_4) 
   (crealf (ap_[kk_ - 1]))) {
   goto _l160;
 }
 
 s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
 (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l160:;
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 kk_ = kk_ - k_;
 t_ = -z_[k_ - 1];
 (void) _caxpy (($2_ = k_ - 1, &$2_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 _l180:;
 __calls[29].calls++;
 return 0;
 }
 
 int_4 _cppdi (complex_8 _p_ ap_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _cppfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _cppsl (complex_8 _p_ ap_, int_4 _p_ n_, complex_8 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _cptsl (int_4 _p_ n_, complex_8 _p_ d_, complex_8 _p_ e_, complex_8 _p_ b_)
 { // ** body not listed **
 }
 
 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_, 
 complex_8 _p_ work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 (void) _cscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = CMPLXF (1.0, 0.0) / nrmxl_, &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 
 1))], &_k1);
 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 lp1_ = l_ + 1;
 if ((*p_) < lp1_) {
   goto _l170;
 }
 
 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
   t_ = -_cdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ - 
   1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
   (void) _caxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * 
   ((j_ - 1))], &_k1);
   if (j_ < pl_ || j_ > pu_) {
     goto _l150;
   }
   if (({complex_8 zdum__1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) 
   {
   goto _l150;
 }
 
 tt_ = 1.0e0 - ($5_ = (cabsf (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]) / (real_4) (crealf (qraux_[j_ - 1]))), $5_ * $5_);
 tt_ = _max (tt_, 0.0);
 t_ = CMPLXF (tt_, 0.0);
 tt_ = 1.0e0 + 0.05e0 * tt_ * ($6_ = ((real_4) (crealf (qraux_[j_ - 1])) / (real_4) (crealf (work_[j_ - 1]))), $6_ * 
 $6_);
 if (tt_ == 1.0e0) {
   goto _l130;
 }
 
 qraux_[j_ - 1] = qraux_[j_ - 1] * csqrtf (t_);
 goto _l140;
 _l130:;
 qraux_[j_ - 1] = CMPLXF (_scnrm2 (($7_ = (*n_) - l_, &$7_), &x_[l_ + 1 - 1 + ((*ldx_)) * ((j_ - 1))], &_k1), 0.0);
 work_[j_ - 1] = qraux_[j_ - 1];
 _l140:;
 _l150:;
 }
 
 _l170:;
 qraux_[l_ - 1] = x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = -nrmxl_;
 _l180:;
 _l190:;
 }
 
 __calls[34].calls++;
 return 0;
 }
 
 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_, 
 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 
 _p_ info_)
 { // ** body not listed **
 }
 
 (*info_) = 1;
 goto _l20;
 _l10:;
 b_[0] = y_[0] / x_[0 + ((*ldx_)) * ((0))];
 _l20:;
 _l30:;
 if (cr_) {
   rsd_[0] = CMPLXF (0.0, 0.0);
 }
 
 goto _l250;
 _l40:;
 if (cqy_) {
   (void) _ccopy (n_, y_, &_k1, qy_, &_k1);
 }
 
 if (cqty_) {
   (void) _ccopy (n_, y_, &_k1, qty_, &_k1);
 }
 
 if (! (cqy_)) {
   goto _l70;
 }
 
 for (jj_ = 1; jj_ <= ju_; (jj_)++) {
   j_ = ju_ - jj_ + 1;
   if (({complex_8 zdum__1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) 
   {
   goto _l50;
 }
 
 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
 t_ = -_cdotc (($0_ = (*n_) - j_ + 1, &$0_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1) / x_[j_ - 1 
 + ((*ldx_)) * ((j_ - 1))];
 (void) _caxpy (($1_ = (*n_) - j_ + 1, &$1_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1);
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
 _l50:;
 }
 
 _l70:;
 if (! (cqty_)) {
   goto _l100;
 }
 
 for (j_ = 1; j_ <= ju_; (j_)++) {
   if (({complex_8 zdum__1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) 
   {
   goto _l80;
 }
 
 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
 t_ = -_cdotc (($2_ = (*n_) - j_ + 1, &$2_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1) / x_[j_ - 
 1 + ((*ldx_)) * ((j_ - 1))];
 (void) _caxpy (($3_ = (*n_) - j_ + 1, &$3_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1);
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
 _l80:;
 }
 
 _l100:;
 if (cb_) {
   (void) _ccopy (k_, qty_, &_k1, b_, &_k1);
 }
 
 kp1_ = (*k_) + 1;
 if (cxb_) {
   (void) _ccopy (k_, qty_, &_k1, xb_, &_k1);
 }
 
 if (cr_ && (*k_) < (*n_)) {
   (void) _ccopy (($4_ = (*n_) - (*k_), &$4_), &qty_[kp1_ - 1], &_k1, &rsd_[kp1_ - 1], &_k1);
 }
 
 if (! (cxb_) || kp1_ > (*n_)) {
   goto _l120;
 }
 for (i_ = kp1_; i_ <= (*n_); (i_)++) {
   xb_[i_ - 1] = CMPLXF (0.0, 0.0);
 }
 
 _l120:;
 if (! (cr_)) {
   goto _l140;
 }
 
 for (i_ = 1; i_ <= (*k_); (i_)++) {
   rsd_[i_ - 1] = CMPLXF (0.0, 0.0);
 }
 
 _l140:;
 if (! (cb_)) {
   goto _l190;
 }
 
 for (jj_ = 1; jj_ <= (*k_); (jj_)++) {
   j_ = (*k_) - jj_ + 1;
   if (({complex_8 zdum__1_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
   (zdum__1_));}) != 0.0e0) {
   goto _l150;
 }
 
 (*info_) = j_;
 goto _l180;
 _l150:;
 b_[j_ - 1] = b_[j_ - 1] / x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 if (j_ == 1) {
   goto _l160;
 }
 
 t_ = -b_[j_ - 1];
 (void) _caxpy (($5_ = j_ - 1, &$5_), &t_, &x_[0 + ((*ldx_)) * ((j_ - 1))], &_k1, b_, &_k1);
 _l160:;
 }
 
 _l180:;
 _l190:;
 if (! (cr_) && ! (cxb_)) {
   goto _l240;
 }
 
 for (jj_ = 1; jj_ <= ju_; (jj_)++) {
   j_ = ju_ - jj_ + 1;
   if (({complex_8 zdum__1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) 
   {
   goto _l220;
 }
 
 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
 if (! (cr_)) {
   goto _l200;
 }
 
 t_ = -_cdotc (($6_ = (*n_) - j_ + 1, &$6_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1) / x_[j_ - 
 1 + ((*ldx_)) * ((j_ - 1))];
 (void) _caxpy (($7_ = (*n_) - j_ + 1, &$7_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1);
 _l200:;
 if (! (cxb_)) {
   goto _l210;
 }
 
 t_ = -_cdotc (($8_ = (*n_) - j_ + 1, &$8_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1) / x_[j_ - 1 
 + ((*ldx_)) * ((j_ - 1))];
 (void) _caxpy (($9_ = (*n_) - j_ + 1, &$9_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1);
 _l210:;
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
 _l220:;
 }
 
 _l240:;
 _l250:;
 __calls[35].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 z_[k_ - 1] = z_[k_ - 1] + ek_;
 (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 1) {
   goto _l80;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) 
 { // ** body not listed **
 }
 
 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 _l80:;
 if (ks_ == 2) {
   goto _l100;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
 goto _l90;
 }
 
 s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ek_ = CMPLXF (s_, 0.0) * ek_;
 _l90:;
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 
 goto _l110;
 _l100:;
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l110:;
 k_ = k_ - ks_;
 goto _l60;
 _l120:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 k_ = 1;
 _l130:;
 if (k_ > (*n_)) {
   goto _l160;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l150;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _cdotu (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
   &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l140;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l140:;
 _l150:;
 k_ = k_ + ks_;
 goto _l130;
 _l160:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 k_ = (*n_);
 _l170:;
 if (k_ == 0) {
   goto _l230;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == ks_) {
   goto _l190;
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 kps_ = k_ + 1 - ks_;
 if (kp_ == kps_) {
   goto _l180;
 }
 t_ = z_[kps_ - 1];
 z_[kps_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l180:;
 (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 }
 
 _l190:;
 if (ks_ == 2) {
   goto _l210;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
 goto _l200;
 }
 
 s_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l200:;
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 
 goto _l220;
 _l210:;
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l220:;
 k_ = k_ - ks_;
 goto _l170;
 _l230:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 k_ = 1;
 _l240:;
 if (k_ > (*n_)) {
   goto _l270;
 }
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l260;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _cdotu (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
   &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l250;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l250:;
 _l260:;
 k_ = k_ + ks_;
 goto _l240;
 _l270:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[36].calls++;
 return 0;
 }
 
 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_, 
 int_4 _p_ job_)
 { // ** body not listed **
 }
 
 _l40:;
 if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) >= 1.0e0) {
 goto _l50;
 }
 
 det_[0] = CMPLXF (ten_, 0.0) * det_[0];
 det_[1] = det_[1] - CMPLXF (1.0, 0.0);
 goto _l40;
 _l50:;
 _l60:;
 if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
 goto _l70;
 }
 det_[0] = det_[0] / CMPLXF (ten_, 0.0);
 det_[1] = det_[1] + CMPLXF (1.0, 0.0);
 goto _l60;
 _l70:;
 _l80:;
 }
 
 _l100:;
 if (noinv_) {
   goto _l230;
 }
 
 k_ = 1;
 _l110:;
 if (k_ > (*n_)) {
   goto _l220;
 }
 
 km1_ = k_ - 1;
 if (kpvt_[k_ - 1] < 0) {
   goto _l140;
 }
 
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 if (km1_ < 1) {
   goto _l130;
 }
 
 (void) _ccopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
 for (j_ = 1; j_ <= km1_; (j_)++) {
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _cdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
   (void) _caxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 
   1))], &_k1);
 }
 
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _cdotu (&km1_, work_, &_k1, &a_[0 + 
 ((*lda_)) * ((k_ - 1))], &_k1);
 _l130:;
 kstep_ = 1;
 goto _l180;
 _l140:;
 t_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / t_;
 akp1_ = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
 akkp1_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
 d_ = t_ * (ak_ * akp1_ - CMPLXF (1.0, 0.0));
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = akp1_ / d_;
 a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = ak_ / d_;
 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = -akkp1_ / d_;
 if (km1_ < 1) {
   goto _l170;
 }
 
 (void) _ccopy (&km1_, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, work_, &_k1);
 for (j_ = 1; j_ <= km1_; (j_)++) {
   a_[j_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = _cdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
   (void) _caxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ + 
   1 - 1))], &_k1);
 }
 
 a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _cdotu (&km1_, work_, &_k1, 
 &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _cdotu (&km1_, &a_[0 + ((*lda_)) * 
 ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
 (void) _ccopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
 for (j_ = 1; j_ <= km1_; (j_)++) {
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _cdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
   (void) _caxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 
   1))], &_k1);
 }
 
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _cdotu (&km1_, work_, &_k1, &a_[0 + 
 ((*lda_)) * ((k_ - 1))], &_k1);
 _l170:;
 kstep_ = 2;
 _l180:;
 ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (ks_ == k_) {
   goto _l210;
 }
 
 (void) _cswap (&ks_, &a_[0 + ((*lda_)) * ((ks_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 for (jb_ = ks_; jb_ <= k_; (jb_)++) {
   j_ = k_ + ks_ - jb_;
   temp_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))];
   a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))] = temp_;
 }
 
 if (kstep_ == 1) {
   goto _l200;
 }
 
 temp_ = a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
 a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = temp_;
 _l200:;
 _l210:;
 k_ = k_ + kstep_;
 goto _l110;
 _l220:;
 _l230:;
 __calls[37].calls++;
 return 0;
 }
 
 int_4 _csifa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 goto _l200;
 _l20:;
 km1_ = k_ - 1;
 absakk_ = ({complex_8 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
 (cimagf (zdum__1_));});
 imax_ = _icamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 colmax_ = ({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
 (cimagf (zdum__1_));});
 if (absakk_ < alpha_ * colmax_) {
   goto _l30;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l90;
 _l30:;
 rowmax_ = 0.0;
 imaxp1_ = imax_ + 1;
 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
   rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs ((real_4) (crealf 
   (zdum__1_))) + _abs (cimagf (zdum__1_));}));
 }
 
 if (imax_ == 1) {
   goto _l50;
 }
 
 jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
 rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf 
 (zdum__1_))) + _abs (cimagf (zdum__1_));}));
 _l50:;
 if (({complex_8 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
 (cimagf (zdum__1_));}) < alpha_ * rowmax_) {
 goto _l60;
 }
 
 kstep_ = 1;
 swap_ = TRUE;
 goto _l80;
 _l60:;
 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
   goto _l70;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l80;
 _l70:;
 kstep_ = 2;
 swap_ = imax_ != km1_;
 _l80:;
 _l90:;
 if (_max (absakk_, colmax_) != 0.0e0) {
   goto _l100;
 }
 
 kpvt_[k_ - 1] = k_;
 (*info_) = k_;
 goto _l190;
 _l100:;
 if (kstep_ == 2) {
   goto _l140;
 }
 
 if (! (swap_)) {
   goto _l120;
 }
 
 (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
   j_ = k_ + imax_ - jj_;
   t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
   a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 }
 
 _l120:;
 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
   j_ = k_ - jj_;
   mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
   t_ = mulk_;
   (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
 }
 
 kpvt_[k_ - 1] = k_;
 if (swap_) {
   kpvt_[k_ - 1] = imax_;
 }
 
 goto _l190;
 _l140:;
 if (! (swap_)) {
   goto _l160;
 }
 
 (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
   j_ = km1_ + imax_ - jj_;
   t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))];
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
   a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 }
 
 t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
 a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
 _l160:;
 km2_ = k_ - 2;
 if (km2_ == 0) {
   goto _l180;
 }
 
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 denom_ = 1.0e0 - ak_ * akm1_;
 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
   j_ = km1_ - jj_;
   bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
   bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
   mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
   mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
   t_ = mulk_;
   (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   t_ = mulkm1_;
   (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
 }
 
 _l180:;
 kpvt_[k_ - 1] = 1 - k_;
 if (swap_) {
   kpvt_[k_ - 1] = -imax_;
 }
 
 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 _l190:;
 k_ = k_ - kstep_;
 goto _l10;
 _l200:;
 __calls[38].calls++;
 return 0;
 }
 
 int_4 _csisl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _cspco (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
 { // ** body not listed **
 }
 
 z_[k_ - 1] = z_[k_ - 1] + ek_;
 (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 if (ks_ == 1) {
   goto _l80;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) 
 { // ** body not listed **
 }
 
 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 _l80:;
 if (ks_ == 2) {
   goto _l100;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
 goto _l90;
 }
 
 s_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) / 
 ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ek_ = CMPLXF (s_, 0.0) * ek_;
 _l90:;
 if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 }
 
 if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 
 goto _l110;
 _l100:;
 km1k_ = ik_ + k_ - 1;
 km1km1_ = ikm1_ + k_ - 1;
 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l110:;
 k_ = k_ - ks_;
 ik_ = ik_ - k_;
 if (ks_ == 2) {
   ik_ = ik_ - (k_ + 1);
 }
 
 goto _l60;
 _l120:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 k_ = 1;
 ik_ = 0;
 _l130:;
 if (k_ > (*n_)) {
   goto _l160;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l150;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _cdotu (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 ikp1_ = ik_ + k_;
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l140;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l140:;
 _l150:;
 ik_ = ik_ + k_;
 if (ks_ == 2) {
   ik_ = ik_ + (k_ + 1);
 }
 
 k_ = k_ + ks_;
 goto _l130;
 _l160:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 k_ = (*n_);
 ik_ = (*n_) * ((*n_) - 1) / 2;
 _l170:;
 if (k_ == 0) {
   goto _l230;
 }
 
 kk_ = ik_ + k_;
 ikm1_ = ik_ - (k_ - 1);
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == ks_) {
   goto _l190;
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 kps_ = k_ + 1 - ks_;
 if (kp_ == kps_) {
   goto _l180;
 }
 
 t_ = z_[kps_ - 1];
 z_[kps_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l180:;
 (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 _l190:;
 if (ks_ == 2) {
   goto _l210;
 }
 
 if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
 goto _l200;
 }
 
 s_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) / 
 ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l200:;
 if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 }
 
 if (({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 
 goto _l220;
 _l210:;
 km1k_ = ik_ + k_ - 1;
 km1km1_ = ikm1_ + k_ - 1;
 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l220:;
 k_ = k_ - ks_;
 ik_ = ik_ - k_;
 if (ks_ == 2) {
   ik_ = ik_ - (k_ + 1);
 }
 
 goto _l170;
 _l230:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 k_ = 1;
 ik_ = 0;
 _l240:;
 if (k_ > (*n_)) {
   goto _l270;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l260;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _cdotu (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 ikp1_ = ik_ + k_;
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l250;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l250:;
 _l260:;
 ik_ = ik_ + k_;
 if (ks_ == 2) {
   ik_ = ik_ + (k_ + 1);
 }
 
 k_ = k_ + ks_;
 goto _l240;
 _l270:;
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[40].calls++;
 return 0;
 }
 
 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_
 )
 { // ** body not listed **
 }
 
 _l40:;
 if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) >= 1.0e0) {
 goto _l50;
 }
 
 det_[0] = CMPLXF (ten_, 0.0) * det_[0];
 det_[1] = det_[1] - CMPLXF (1.0, 0.0);
 goto _l40;
 _l50:;
 _l60:;
 if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
 goto _l70;
 }
 
 det_[0] = det_[0] / CMPLXF (ten_, 0.0);
 det_[1] = det_[1] + CMPLXF (1.0, 0.0);
 goto _l60;
 _l70:;
 _l80:;
 _l90:;
 ik_ = ik_ + k_;
 }
 
 _l110:;
 if (noinv_) {
   goto _l240;
 }
 
 k_ = 1;
 ik_ = 0;
 _l120:;
 if (k_ > (*n_)) {
   goto _l230;
 }
 
 km1_ = k_ - 1;
 kk_ = ik_ + k_;
 ikp1_ = ik_ + k_;
 if (kpvt_[k_ - 1] < 0) {
   goto _l150;
 }
 
 ap_[kk_ - 1] = CMPLXF (1.0, 0.0) / ap_[kk_ - 1];
 if (km1_ < 1) {
   goto _l140;
 }
 
 (void) _ccopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
 ij_ = 0;
 for (j_ = 1; j_ <= km1_; (j_)++) {
   jk_ = ik_ + j_;
   ap_[jk_ - 1] = _cdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
   (void) _caxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
   ij_ = ij_ + j_;
 }
 
 ap_[kk_ - 1] = ap_[kk_ - 1] + _cdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
 _l140:;
 kstep_ = 1;
 goto _l190;
 _l150:;
 kkp1_ = ikp1_ + k_;
 t_ = ap_[kkp1_ - 1];
 ak_ = ap_[kk_ - 1] / t_;
 akp1_ = ap_[kkp1_ + 1 - 1] / t_;
 akkp1_ = ap_[kkp1_ - 1] / t_;
 d_ = t_ * (ak_ * akp1_ - CMPLXF (1.0, 0.0));
 ap_[kk_ - 1] = akp1_ / d_;
 ap_[kkp1_ + 1 - 1] = ak_ / d_;
 ap_[kkp1_ - 1] = -akkp1_ / d_;
 if (km1_ < 1) {
   goto _l180;
 }
 
 (void) _ccopy (&km1_, &ap_[ikp1_ + 1 - 1], &_k1, work_, &_k1);
 ij_ = 0;
 for (j_ = 1; j_ <= km1_; (j_)++) {
   jkp1_ = ikp1_ + j_;
   ap_[jkp1_ - 1] = _cdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
   (void) _caxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
   ij_ = ij_ + j_;
 }
 
 ap_[kkp1_ + 1 - 1] = ap_[kkp1_ + 1 - 1] + _cdotu (&km1_, work_, &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
 ap_[kkp1_ - 1] = ap_[kkp1_ - 1] + _cdotu (&km1_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
 (void) _ccopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
 ij_ = 0;
 for (j_ = 1; j_ <= km1_; (j_)++) {
   jk_ = ik_ + j_;
   ap_[jk_ - 1] = _cdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
   (void) _caxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
   ij_ = ij_ + j_;
 }
 
 ap_[kk_ - 1] = ap_[kk_ - 1] + _cdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
 _l180:;
 kstep_ = 2;
 _l190:;
 ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (ks_ == k_) {
   goto _l220;
 }
 
 iks_ = (ks_ * (ks_ - 1)) / 2;
 (void) _cswap (&ks_, &ap_[iks_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 ksj_ = ik_ + ks_;
 for (jb_ = ks_; jb_ <= k_; (jb_)++) {
   j_ = k_ + ks_ - jb_;
   jk_ = ik_ + j_;
   temp_ = ap_[jk_ - 1];
   ap_[jk_ - 1] = ap_[ksj_ - 1];
   ap_[ksj_ - 1] = temp_;
   ksj_ = ksj_ - (j_ - 1);
 }
 
 if (kstep_ == 1) {
   goto _l210;
 }
 kskp1_ = ikp1_ + ks_;
 temp_ = ap_[kskp1_ - 1];
 ap_[kskp1_ - 1] = ap_[kkp1_ - 1];
 ap_[kkp1_ - 1] = temp_;
 _l210:;
 _l220:;
 ik_ = ik_ + k_;
 if (kstep_ == 2) {
   ik_ = ik_ + k_ + 1;
 }
 
 k_ = k_ + kstep_;
 goto _l120;
 _l230:;
 _l240:;
 __calls[41].calls++;
 return 0;
 }
 
 int_4 _cspfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 goto _l200;
 _l20:;
 km1_ = k_ - 1;
 kk_ = ik_ + k_;
 absakk_ = ({complex_8 zdum__1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 imax_ = _icamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
 imk_ = ik_ + imax_;
 colmax_ = ({complex_8 zdum__1_ = ap_[imk_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 if (absakk_ < alpha_ * colmax_) {
   goto _l30;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l90;
 _l30:;
 rowmax_ = 0.0;
 imaxp1_ = imax_ + 1;
 im_ = imax_ * (imax_ - 1) / 2;
 imj_ = im_ + 2 * imax_;
 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
   rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = ap_[imj_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
   (zdum__1_));}));
   imj_ = imj_ + j_;
 }
 
 if (imax_ == 1) {
   goto _l50;
 }
 
 jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
 jmim_ = jmax_ + im_;
 rowmax_ = _max (rowmax_, ({complex_8 zdum__1_ = ap_[jmim_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}));
 _l50:;
 imim_ = imax_ + im_;
 if (({complex_8 zdum__1_ = ap_[imim_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < alpha_ * 
 rowmax_) {
 goto _l60;
 }
 
 kstep_ = 1;
 swap_ = TRUE;
 goto _l80;
 _l60:;
 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
   goto _l70;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l80;
 _l70:;
 kstep_ = 2;
 swap_ = imax_ != km1_;
 _l80:;
 _l90:;
 if (_max (absakk_, colmax_) != 0.0e0) {
   goto _l100;
 }
 
 kpvt_[k_ - 1] = k_;
 (*info_) = k_;
 goto _l190;
 _l100:;
 if (kstep_ == 2) {
   goto _l140;
 }
 
 if (! (swap_)) {
   goto _l120;
 }
 
 (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 imj_ = ik_ + imax_;
 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
   j_ = k_ + imax_ - jj_;
   jk_ = ik_ + j_;
   t_ = ap_[jk_ - 1];
   ap_[jk_ - 1] = ap_[imj_ - 1];
   ap_[imj_ - 1] = t_;
   imj_ = imj_ - (j_ - 1);
 }
 
 _l120:;
 ij_ = ik_ - (k_ - 1);
 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
   j_ = k_ - jj_;
   jk_ = ik_ + j_;
   mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
   t_ = mulk_;
   (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   ijj_ = ij_ + j_;
   ap_[jk_ - 1] = mulk_;
   ij_ = ij_ - (j_ - 1);
 }
 
 kpvt_[k_ - 1] = k_;
 if (swap_) {
   kpvt_[k_ - 1] = imax_;
 }
 
 goto _l190;
 _l140:;
 km1k_ = ik_ + k_ - 1;
 ikm1_ = ik_ - (k_ - 1);
 if (! (swap_)) {
   goto _l160;
 }
 
 (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
 imj_ = ikm1_ + imax_;
 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
   j_ = km1_ + imax_ - jj_;
   jkm1_ = ikm1_ + j_;
   t_ = ap_[jkm1_ - 1];
   ap_[jkm1_ - 1] = ap_[imj_ - 1];
   ap_[imj_ - 1] = t_;
   imj_ = imj_ - (j_ - 1);
 }
 
 t_ = ap_[km1k_ - 1];
 ap_[km1k_ - 1] = ap_[imk_ - 1];
 ap_[imk_ - 1] = t_;
 _l160:;
 km2_ = k_ - 2;
 if (km2_ == 0) {
   goto _l180;
 }
 
 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 km1km1_ = ikm1_ + k_ - 1;
 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 denom_ = 1.0e0 - ak_ * akm1_;
 ij_ = ik_ - (k_ - 1) - (k_ - 2);
 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
   j_ = km1_ - jj_;
   jk_ = ik_ + j_;
   bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
   jkm1_ = ikm1_ + j_;
   bkm1_ = ap_[jkm1_ - 1] / ap_[km1k_ - 1];
   mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
   mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
   t_ = mulk_;
   (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   t_ = mulkm1_;
   (void) _caxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   ap_[jk_ - 1] = mulk_;
   ap_[jkm1_ - 1] = mulkm1_;
   ijj_ = ij_ + j_;
   ij_ = ij_ - (j_ - 1);
 }
 
 _l180:;
 kpvt_[k_ - 1] = 1 - k_;
 if (swap_) {
   kpvt_[k_ - 1] = -imax_;
 }
 
 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 _l190:;
 ik_ = ik_ - (k_ - 1);
 if (kstep_ == 2) {
   ik_ = ik_ - (k_ - 2);
 }
 
 k_ = k_ - kstep_;
 goto _l10;
 _l200:;
 __calls[42].calls++;
 return 0;
 }
 
 int_4 _cspsl (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
 { // ** body not listed **
 }
 
 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_, 
 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_ 
 info_)
 { // ** body not listed **
 }
 
 (void) _cscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = 1.0e0 / s_[l_ - 1], &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], 
 &_k1);
 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 _l10:;
 s_[l_ - 1] = -s_[l_ - 1];
 _l20:;
 if ((*p_) < lp1_) {
   goto _l50;
 }
 
 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
   if (l_ > nct_) {
     goto _l30;
   }
   if (({complex_8 zdum__1_ = s_[l_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
   goto _l30;
 }
 
 t_ = -_cdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ - 
 1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 (void) _caxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * 
 ((j_ - 1))], &_k1);
 _l30:;
 e_[j_ - 1] = conjf (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]);
 }
 
 _l50:;
 if (! (wantu_) || l_ > nct_) {
   goto _l70;
 }
 
 for (i_ = l_; i_ <= (*n_); (i_)++) {
   u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = x_[i_ - 1 + ((*ldx_)) * ((l_ - 1))];
 }
 
 _l70:;
 if (l_ > nrt_) {
   goto _l150;
 }
 
 e_[l_ - 1] = CMPLXF (_scnrm2 (($5_ = (*p_) - l_, &$5_), &e_[lp1_ - 1], &_k1), 0.0);
 if (({complex_8 zdum__1_ = e_[l_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
 goto _l80;
 }
 
 if (({complex_8 zdum__1_ = e_[lp1_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) != 0.0e0) {
 e_[l_ - 1] = ({complex_8 zdum1__1_ = e_[l_ - 1]; complex_8 zdum2__1_ = e_[lp1_ - 1]; cabsf (zdum1__1_) * (zdum2__1_ / 
 cabsf (zdum2__1_));});
 }
 
 (void) _cscal (($6_ = (*p_) - l_, &$6_), ($7_ = 1.0e0 / e_[l_ - 1], &$7_), &e_[lp1_ - 1], &_k1);
 e_[lp1_ - 1] = CMPLXF (1.0, 0.0) + e_[lp1_ - 1];
 _l80:;
 e_[l_ - 1] = -conjf (e_[l_ - 1]);
 if (lp1_ > (*n_) || ({complex_8 zdum__1_ = e_[l_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 goto _l120;
 }
 
 for (i_ = lp1_; i_ <= (*n_); (i_)++) {
   work_[i_ - 1] = CMPLXF (0.0, 0.0);
 }
 
 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
   (void) _caxpy (($8_ = (*n_) - l_, &$8_), &e_[j_ - 1], &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &work_[lp1_ - 1], 
   &_k1);
 }
 
 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
   (void) _caxpy (($9_ = (*n_) - l_, &$9_), ($10_ = conjf (-e_[j_ - 1] / e_[lp1_ - 1]), &$10_), &work_[lp1_ - 1], &_k1, 
   &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1);
 }
 
 _l120:;
 if (! (wantv_)) {
   goto _l140;
 }
 
 for (i_ = lp1_; i_ <= (*p_); (i_)++) {
   v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = e_[i_ - 1];
 }
 
 _l140:;
 _l150:;
 }
 
 _l170:;
 m_ = _min ((*p_), (*n_) + 1);
 nctp1_ = nct_ + 1;
 nrtp1_ = nrt_ + 1;
 if (nct_ < (*p_)) {
   s_[nctp1_ - 1] = x_[nctp1_ - 1 + ((*ldx_)) * ((nctp1_ - 1))];
 }
 
 if ((*n_) < m_) {
   s_[m_ - 1] = CMPLXF (0.0, 0.0);
 }
 
 if (nrtp1_ < m_) {
   e_[nrtp1_ - 1] = x_[nrtp1_ - 1 + ((*ldx_)) * ((m_ - 1))];
 }
 
 e_[m_ - 1] = CMPLXF (0.0, 0.0);
 if (! (wantu_)) {
   goto _l300;
 }
 
 if (ncu_ < nctp1_) {
   goto _l200;
 }
 
 for (j_ = nctp1_; j_ <= ncu_; (j_)++) {
   for (i_ = 1; i_ <= (*n_); (i_)++) {
     u_[i_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
   }
   u_[j_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLXF (1.0, 0.0);
 }
 
 _l200:;
 if (nct_ < 1) {
   goto _l290;
 }
 for (ll_ = 1; ll_ <= nct_; (ll_)++) {
   l_ = nct_ - ll_ + 1;
   if (({complex_8 zdum__1_ = s_[l_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
   goto _l250;
 }
 
 lp1_ = l_ + 1;
 if (ncu_ < lp1_) {
   goto _l220;
 }
 
 for (j_ = lp1_; j_ <= ncu_; (j_)++) {
   t_ = -_cdotc (($11_ = (*n_) - l_ + 1, &$11_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_)) * ((j_ 
   - 1))], &_k1) / u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
   (void) _caxpy (($12_ = (*n_) - l_ + 1, &$12_), &t_, &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_)) 
   * ((j_ - 1))], &_k1);
 }
 
 _l220:;
 (void) _cscal (($13_ = (*n_) - l_ + 1, &$13_), ($14_ = CMPLXF (-1.0, 0.0), &$14_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 
 1))], &_k1);
 u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0) + u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
 lm1_ = l_ - 1;
 if (lm1_ < 1) {
   goto _l240;
 }
 
 for (i_ = 1; i_ <= lm1_; (i_)++) {
   u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (0.0, 0.0);
 }
 
 _l240:;
 goto _l270;
 _l250:;
 for (i_ = 1; i_ <= (*n_); (i_)++) {
   u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (0.0, 0.0);
 }
 
 u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0);
 _l270:;
 }
 
 _l290:;
 _l300:;
 if (! (wantv_)) {
   goto _l350;
 }
 
 for (ll_ = 1; ll_ <= (*p_); (ll_)++) {
   l_ = (*p_) - ll_ + 1;
   lp1_ = l_ + 1;
   if (l_ > nrt_) {
     goto _l320;
   }
   if (({complex_8 zdum__1_ = e_[l_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
   goto _l320;
 }
 
 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
   t_ = -_cdotc (($15_ = (*p_) - l_, &$15_), &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_)) * ((j_ 
   - 1))], &_k1) / v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))];
   (void) _caxpy (($16_ = (*p_) - l_, &$16_), &t_, &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_)) 
   * ((j_ - 1))], &_k1);
 }
 
 _l320:;
 for (i_ = 1; i_ <= (*p_); (i_)++) {
   v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLXF (0.0, 0.0);
 }
 
 v_[l_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0);
 }
 
 _l350:;
 for (i_ = 1; i_ <= m_; (i_)++) {
   if (({complex_8 zdum__1_ = s_[i_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
   goto _l360;
 }
 
 t_ = CMPLXF (cabsf (s_[i_ - 1]), 0.0);
 r_ = s_[i_ - 1] / t_;
 s_[i_ - 1] = t_;
 if (i_ < m_) {
   e_[i_ - 1] = e_[i_ - 1] / r_;
 }
 
 if (wantu_) {
   (void) _cscal (n_, &r_, &u_[0 + ((*ldu_)) * ((i_ - 1))], &_k1);
 }
 
 _l360:;
 if (i_ == m_) {
   goto _l390;
 }
 
 if (({complex_8 zdum__1_ = e_[i_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) == 0.0e0) {
 goto _l370;
 }
 
 t_ = CMPLXF (cabsf (e_[i_ - 1]), 0.0);
 r_ = t_ / e_[i_ - 1];
 e_[i_ - 1] = t_;
 s_[i_ + 1 - 1] = s_[i_ + 1 - 1] * r_;
 if (wantv_) {
   (void) _cscal (p_, &r_, &v_[0 + ((*ldv_)) * ((i_ + 1 - 1))], &_k1);
 }
 
 _l370:;
 }
 
 _l390:;
 mm_ = m_;
 iter_ = 0;
 _l400:;
 if (m_ == 0) {
   goto _l660;
 }
 
 if (iter_ < maxit_) {
   goto _l410;
 }
 
 (*info_) = m_;
 goto _l660;
 _l410:;
 for (ll_ = 1; ll_ <= m_; (ll_)++) {
   l_ = m_ - ll_;
   if (l_ == 0) {
     goto _l440;
   }
   test_ = cabsf (s_[l_ - 1]) + cabsf (s_[l_ + 1 - 1]);
   ztest_ = test_ + cabsf (e_[l_ - 1]);
   if (ztest_ != test_) {
     goto _l420;
   }
   e_[l_ - 1] = CMPLXF (0.0, 0.0);
   goto _l440;
   _l420:;
 }
 
 _l440:;
 if (l_ != m_ - 1) {
   goto _l450;
 }
 
 kase_ = 4;
 goto _l520;
 _l450:;
 lp1_ = l_ + 1;
 mp1_ = m_ + 1;
 for (lls_ = lp1_; lls_ <= mp1_; (lls_)++) {
   ls_ = m_ - lls_ + lp1_;
   if (ls_ == l_) {
     goto _l480;
   }
   test_ = 0.0;
   if (ls_ != m_) {
     test_ = test_ + cabsf (e_[ls_ - 1]);
   }
   if (ls_ != l_ + 1) {
     test_ = test_ + cabsf (e_[ls_ - 1 - 1]);
   }
   ztest_ = test_ + cabsf (s_[ls_ - 1]);
   if (ztest_ != test_) {
     goto _l460;
   }
   s_[ls_ - 1] = CMPLXF (0.0, 0.0);
   goto _l480;
   _l460:;
 }
 
 _l480:;
 if (ls_ != l_) {
   goto _l490;
 }
 
 kase_ = 3;
 goto _l510;
 _l490:;
 if (ls_ != m_) {
   goto _l500;
 }
 
 kase_ = 1;
 goto _l510;
 _l500:;
 kase_ = 2;
 l_ = ls_;
 _l510:;
 _l520:;
 l_ = l_ + 1;
 switch (kase_) {
   default:
   case 1: goto _l530;
   case 2: goto _l560;
   case 3: goto _l580;
   case 4: goto _l610;
 }
 
 _l530:;
 mm1_ = m_ - 1;
 f_ = (real_4) (crealf (e_[m_ - 1 - 1]));
 e_[m_ - 1 - 1] = CMPLXF (0.0, 0.0);
 for (kk_ = l_; kk_ <= mm1_; (kk_)++) {
   k_ = mm1_ - kk_ + l_;
   t1_ = (real_4) (crealf (s_[k_ - 1]));
   (void) _srotg (&t1_, &f_, &cs_, &sn_);
   s_[k_ - 1] = CMPLXF (t1_, 0.0);
   if (k_ == l_) {
     goto _l540;
   }
   f_ = -sn_ * (real_4) (crealf (e_[k_ - 1 - 1]));
   e_[k_ - 1 - 1] = cs_ * e_[k_ - 1 - 1];
   _l540:;
   if (wantv_) {
     (void) _csrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((m_ - 1))], &_k1, &cs_, &sn_);
   }
 }
 
 goto _l650;
 _l560:;
 f_ = (real_4) (crealf (e_[l_ - 1 - 1]));
 e_[l_ - 1 - 1] = CMPLXF (0.0, 0.0);
 for (k_ = l_; k_ <= m_; (k_)++) {
   t1_ = (real_4) (crealf (s_[k_ - 1]));
   (void) _srotg (&t1_, &f_, &cs_, &sn_);
   s_[k_ - 1] = CMPLXF (t1_, 0.0);
   f_ = -sn_ * (real_4) (crealf (e_[k_ - 1]));
   e_[k_ - 1] = cs_ * e_[k_ - 1];
   if (wantu_) {
     (void) _csrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ - 1 - 1))], &_k1, &cs_, &sn_);
   }
 }
 
 goto _l650;
 _l580:;
 scale_ = ($17_ = _max (cabsf (s_[m_ - 1]), cabsf (s_[m_ - 1 - 1])), $17_ = _max ($17_, cabsf (e_[m_ - 1 - 1])), $17_ = 
 _max ($17_, cabsf (s_[l_ - 1])), _max ($17_, cabsf (e_[l_ - 1])));
 sm_ = (real_4) (crealf (s_[m_ - 1])) / scale_;
 smm1_ = (real_4) (crealf (s_[m_ - 1 - 1])) / scale_;
 emm1_ = (real_4) (crealf (e_[m_ - 1 - 1])) / scale_;
 sl_ = (real_4) (crealf (s_[l_ - 1])) / scale_;
 el_ = (real_4) (crealf (e_[l_ - 1])) / scale_;
 b_ = ((smm1_ + sm_) * (smm1_ - sm_) + (emm1_ * emm1_)) / 2.0e0;
 c_ = ($18_ = (sm_ * emm1_), $18_ * $18_);
 shift_ = 0.0;
 if (b_ == 0.0e0 && c_ == 0.0e0) {
   goto _l590;
 }
 
 shift_ = sqrtf ((b_ * b_) + c_);
 if (b_ < 0.0e0) {
   shift_ = -shift_;
 }
 
 shift_ = c_ / (b_ + shift_);
 _l590:;
 f_ = (sl_ + sm_) * (sl_ - sm_) + shift_;
 g_ = sl_ * el_;
 mm1_ = m_ - 1;
 for (k_ = l_; k_ <= mm1_; (k_)++) {
   (void) _srotg (&f_, &g_, &cs_, &sn_);
   if (k_ != l_) {
     e_[k_ - 1 - 1] = CMPLXF (f_, 0.0);
   }
   f_ = cs_ * (real_4) (crealf (s_[k_ - 1])) + sn_ * (real_4) (crealf (e_[k_ - 1]));
   e_[k_ - 1] = cs_ * e_[k_ - 1] - sn_ * s_[k_ - 1];
   g_ = sn_ * (real_4) (crealf (s_[k_ + 1 - 1]));
   s_[k_ + 1 - 1] = cs_ * s_[k_ + 1 - 1];
   if (wantv_) {
     (void) _csrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
   }
   (void) _srotg (&f_, &g_, &cs_, &sn_);
   s_[k_ - 1] = CMPLXF (f_, 0.0);
   f_ = cs_ * (real_4) (crealf (e_[k_ - 1])) + sn_ * (real_4) (crealf (s_[k_ + 1 - 1]));
   s_[k_ + 1 - 1] = -sn_ * e_[k_ - 1] + cs_ * s_[k_ + 1 - 1];
   g_ = sn_ * (real_4) (crealf (e_[k_ + 1 - 1]));
   e_[k_ + 1 - 1] = cs_ * e_[k_ + 1 - 1];
   if (wantu_ && k_ < (*n_)) {
     (void) _csrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
   }
 }
 
 e_[m_ - 1 - 1] = CMPLXF (f_, 0.0);
 iter_ = iter_ + 1;
 goto _l650;
 _l610:;
 if ((real_4) (crealf (s_[l_ - 1])) >= 0.0e0) {
   goto _l620;
 }
 
 s_[l_ - 1] = -s_[l_ - 1];
 if (wantv_) {
   (void) _cscal (p_, ($19_ = CMPLXF (-1.0, 0.0), &$19_), &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1);
 }
 
 _l620:;
 _l630:;
 if (l_ == mm_) {
   goto _l640;
 }
 
 if ((real_4) (crealf (s_[l_ - 1])) >= (real_4) (crealf (s_[l_ + 1 - 1]))) {
   goto _l640;
 }
 
 t_ = s_[l_ - 1];
 s_[l_ - 1] = s_[l_ + 1 - 1];
 s_[l_ + 1 - 1] = t_;
 if (wantv_ && l_ < (*p_)) {
   (void) _cswap (p_, &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((l_ + 1 - 1))], &_k1);
 }
 
 if (wantu_ && l_ < (*n_)) {
   (void) _cswap (n_, &u_[0 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ + 1 - 1))], &_k1);
 }
 
 l_ = l_ + 1;
 goto _l630;
 _l640:;
 iter_ = 0;
 m_ = m_ - 1;
 _l650:;
 goto _l400;
 _l660:;
 __calls[44].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 s_ = ({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ek_ = CMPLXF (s_, 0.0) * ek_;
 _l30:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 if (({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 goto _l40;
 }
 
 wk_ = wk_ / conjf (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
 wkm_ = wkm_ / conjf (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
 goto _l50;
 _l40:;
 wk_ = CMPLXF (1.0, 0.0);
 wkm_ = CMPLXF (1.0, 0.0);
 _l50:;
 if (kk_ == (*n_)) {
   goto _l90;
 }
 
 j1_ = k_ + 1;
 if (lower_) {
   j1_ = 1;
 }
 
 j2_ = (*n_);
 if (lower_) {
   j2_ = k_ - 1;
 }
 
 for (j_ = j1_; j_ <= j2_; (j_)++) {
   sm_ = sm_ + ({complex_8 zdum__1_ = z_[j_ - 1] + wkm_ * conjf (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]); _abs ((real_4) 
   (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
   s_ = s_ + ({complex_8 zdum__1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 }
 
 if (s_ >= sm_) {
   goto _l80;
 }
 
 w_ = wkm_ - wk_;
 wk_ = wkm_;
 for (j_ = j1_; j_ <= j2_; (j_)++) {
   z_[j_ - 1] = z_[j_ - 1] + w_ * conjf (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
 }
 
 _l80:;
 _l90:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (kk_ = 1; kk_ <= (*n_); (kk_)++) {
   k_ = (*n_) + 1 - kk_;
   if (lower_) {
     k_ = kk_;
   }
   if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
   zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) {
   goto _l110;
 }
 
 s_ = ({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l110:;
 if (({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 }
 
 if (({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
 (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLXF (1.0, 0.0);
 }
 
 i1_ = 1;
 if (lower_) {
   i1_ = k_ + 1;
 }
 
 if (kk_ >= (*n_)) {
   goto _l120;
 }
 
 w_ = -z_[k_ - 1];
 (void) _caxpy (($0_ = (*n_) - kk_, &$0_), &w_, &t_[i1_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &z_[i1_ - 1], &_k1);
 _l120:;
 }
 
 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
 (void) _csscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (tnorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / tnorm_;
 }
 
 if (tnorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[45].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 det_[0] = CMPLXF (ten_, 0.0) * det_[0];
 det_[1] = det_[1] - CMPLXF (1.0, 0.0);
 goto _l10;
 _l20:;
 _l30:;
 if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
 goto _l40;
 }
 
 det_[0] = det_[0] / CMPLXF (ten_, 0.0);
 det_[1] = det_[1] + CMPLXF (1.0, 0.0);
 goto _l30;
 _l40:;
 }
 
 _l60:;
 _l70:;
 if (_imod ((*job_) / 10, 10) == 0) {
   goto _l170;
 }
 
 if (_imod ((*job_), 10) == 0) {
   goto _l120;
 }
 
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   (*info_) = k_;
   if (({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
   (zdum__1_));}) == 0.0e0) {
   goto _l110;
 }
 
 t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 (void) _cscal (($0_ = k_ - 1, &$0_), &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1);
 kp1_ = k_ + 1;
 if ((*n_) < kp1_) {
   goto _l90;
 }
 
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
   t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
   (void) _caxpy (&k_, &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1);
 }
 
 _l90:;
 }
 
 (*info_) = 0;
 _l110:;
 goto _l160;
 _l120:;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   (*info_) = k_;
   if (({complex_8 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
   (zdum__1_));}) == 0.0e0) {
   goto _l180;
 }
 
 t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 if (k_ != (*n_)) {
   (void) _cscal (($1_ = (*n_) - k_, &$1_), &temp_, &t_[k_ + 1 - 1 + ((*ldt_)) * ((k_ - 1))], &_k1);
 }
 
 km1_ = k_ - 1;
 if (km1_ < 1) {
   goto _l140;
 }
 
 for (j_ = 1; j_ <= km1_; (j_)++) {
   temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
   t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
   (void) _caxpy (($2_ = (*n_) - k_ + 1, &$2_), &temp_, &t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[k_ - 1 + ((*ldt_)) 
   * ((j_ - 1))], &_k1);
 }
 
 _l140:;
 }
 
 (*info_) = 0;
 _l160:;
 _l170:;
 _l180:;
 __calls[46].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 (*info_) = 0;
 case_ = 1;
 if (_imod ((*job_), 10) != 0) {
   case_ = 2;
 }
 
 if (_imod ((*job_), 100) / 10 != 0) {
   case_ = case_ + 2;
 }
 
 switch (case_) {
   default:
   case 1: goto _l20;
   case 2: goto _l50;
   case 3: goto _l80;
   case 4: goto _l110;
 }
 
 _l20:;
 b_[0] = b_[0] / t_[0 + ((*ldt_)) * ((0))];
 if ((*n_) < 2) {
   goto _l40;
 }
 
 for (j_ = 2; j_ <= (*n_); (j_)++) {
   temp_ = -b_[j_ - 1 - 1];
   (void) _caxpy (($0_ = (*n_) - j_ + 1, &$0_), &temp_, &t_[j_ - 1 + ((*ldt_)) * ((j_ - 1 - 1))], &_k1, &b_[j_ - 1], &_k1)
   ;
   b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
 }
 
 _l40:;
 goto _l140;
 _l50:;
 b_[(*n_) - 1] = b_[(*n_) - 1] / t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))];
 if ((*n_) < 2) {
   goto _l70;
 }
 
 for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
   j_ = (*n_) - jj_ + 1;
   temp_ = -b_[j_ + 1 - 1];
   (void) _caxpy (&j_, &temp_, &t_[0 + ((*ldt_)) * ((j_ + 1 - 1))], &_k1, &b_[0], &_k1);
   b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
 }
 
 _l70:;
 goto _l140;
 _l80:;
 b_[(*n_) - 1] = b_[(*n_) - 1] / conjf (t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))]);
 if ((*n_) < 2) {
   goto _l100;
 }
 
 for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
   j_ = (*n_) - jj_ + 1;
   b_[j_ - 1] = b_[j_ - 1] - _cdotc (($1_ = jj_ - 1, &$1_), &t_[j_ + 1 - 1 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[j_ + 1 - 
   1], &_k1);
   b_[j_ - 1] = b_[j_ - 1] / conjf (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
 }
 
 _l100:;
 goto _l140;
 _l110:;
 b_[0] = b_[0] / conjf (t_[0 + ((*ldt_)) * ((0))]);
 if ((*n_) < 2) {
   goto _l130;
 }
 
 for (j_ = 2; j_ <= (*n_); (j_)++) {
   b_[j_ - 1] = b_[j_ - 1] - _cdotc (($2_ = j_ - 1, &$2_), &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[0], &_k1);
   b_[j_ - 1] = b_[j_ - 1] / conjf (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
 }
 
 _l130:;
 _l140:;
 _l150:;
 __calls[47].calls++;
 return 0;
 }
 
 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_ 
 info_)
 { // ** body not listed **
 }
 
 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_, 
 real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 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_, 
 int_4 _p_ nz_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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_, 
 real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_)
 { // ** body not listed **
 }
 
 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_ 
 rcond_, real_8 _p_ z_)
 { // ** body not listed **
 }
 
 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_ 
 det_)
 { // ** body not listed **
 }
 
 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_ 
 info_)
 { // ** body not listed **
 }
 
 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_ 
 b_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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 
 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _dgefa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_ 
 info_)
 { // ** body not listed **
 }
 
 int_4 _dpbdi (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ det_)
 { // ** body not listed **
 }
 
 int_4 _dpbfa (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _dpbsl (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ b_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 int_4 _dpodi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _dpofa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _dposl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _dppco (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _dppdi (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _dppfa (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _dppsl (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _dptsl (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ b_)
 { // ** body not listed **
 }
 
 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_ 
 work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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_ 
 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_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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 
 _p_ work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _dsifa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _dsisl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _dspco (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, real_8 _p_ z_)
 { // ** body not listed **
 }
 
 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 
 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _dspfa (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _dspsl (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ b_)
 { // ** body not listed **
 }
 
 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_, 
 int_4 _p_ ldu_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ work_, int_4 _p_ job_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_ 
 info_)
 { // ** body not listed **
 }
 
 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_, 
 real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 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_, 
 int_4 _p_ nz_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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_, 
 real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_)
 { // ** body not listed **
 }
 
 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_ 
 rcond_, real_4 _p_ z_)
 { // ** body not listed **
 }
 
 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_ 
 det_)
 { // ** body not listed **
 }
 
 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_ 
 info_)
 { // ** body not listed **
 }
 
 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_ 
 b_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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 
 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _sgefa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_ 
 info_)
 { // ** body not listed **
 }
 
 int_4 _spbdi (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ det_)
 { // ** body not listed **
 }
 
 int_4 _spbfa (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _spbsl (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ b_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 int_4 _spodi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _spofa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _sposl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _sppco (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _sppdi (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _sppfa (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _sppsl (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _sptsl (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ b_)
 { // ** body not listed **
 }
 
 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_ 
 work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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_ 
 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_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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 
 _p_ work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _ssifa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _ssisl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _sspco (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, real_4 _p_ z_)
 { // ** body not listed **
 }
 
 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 
 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _sspfa (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _sspsl (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ b_)
 { // ** body not listed **
 }
 
 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_, 
 int_4 _p_ ldu_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_, 
 int_4 _p_ info_)
 { // ** body not listed **
 }
 
 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_, 
 int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 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_ 
 ldz_, int_4 _p_ nz_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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_, 
 int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_)
 { // ** body not listed **
 }
 
 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 
 _p_ rcond_, complex_16 _p_ z_)
 { // ** body not listed **
 }
 
 s_ = ({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));}) / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ek_ = CMPLX (s_, 0.0) * ek_;
 _l30:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 if (({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 == 0.0e0) {
 goto _l40;
 }
 
 wk_ = wk_ / conj (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
 wkm_ = wkm_ / conj (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
 goto _l50;
 _l40:;
 wk_ = CMPLX (1.0, 0.0);
 wkm_ = CMPLX (1.0, 0.0);
 _l50:;
 kp1_ = k_ + 1;
 ju_ = _min (_max (ju_, (*mu_) + ipvt_[k_ - 1]), (*n_));
 mm_ = m_;
 if (kp1_ > ju_) {
   goto _l90;
 }
 
 for (j_ = kp1_; j_ <= ju_; (j_)++) {
   mm_ = mm_ - 1;
   sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal 
   (zdum__1_)) + _abs (cimag (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
   s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 }
 
 if (s_ >= sm_) {
   goto _l80;
 }
 
 t_ = wkm_ - wk_;
 wk_ = wkm_;
 mm_ = m_;
 for (j_ = kp1_; j_ <= ju_; (j_)++) {
   mm_ = mm_ - 1;
   z_[j_ - 1] = z_[j_ - 1] + t_ * conj (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
 }
 
 _l80:;
 _l90:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   lm_ = _min ((*ml_), (*n_) - k_);
   if (k_ < (*n_)) {
     z_[k_ - 1] = z_[k_ - 1] + _zdotc (&lm_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
   }
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= 1.0e0) {
   goto _l110;
 }
 
 s_ = 1.0e0 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 _l110:;
 l_ = ipvt_[k_ - 1];
 t_ = z_[l_ - 1];
 z_[l_ - 1] = z_[k_ - 1];
 z_[k_ - 1] = t_;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   l_ = ipvt_[k_ - 1];
   t_ = z_[l_ - 1];
   z_[l_ - 1] = z_[k_ - 1];
   z_[k_ - 1] = t_;
   lm_ = _min ((*ml_), (*n_) - k_);
   if (k_ < (*n_)) {
     (void) _zaxpy (&lm_, &t_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
   }
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= 1.0e0) {
   goto _l130;
 }
 
 s_ = 1.0e0 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l130:;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
   abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
   goto _l150;
 }
 
 s_ = ({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));}) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l150:;
 if (({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 lm_ = _min (k_, m_) - 1;
 la_ = m_ - lm_;
 lz_ = k_ - lm_;
 t_ = -z_[k_ - 1];
 (void) _zaxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lz_ - 1], &_k1);
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[132].calls++;
 return 0;
 }
 
 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_, 
 complex_16 _p_ det_)
 { // ** body not listed **
 }
 
 det_[0] = CMPLX (ten_, 0.0) * det_[0];
 det_[1] = det_[1] - CMPLX (1.0, 0.0);
 goto _l10;
 _l20:;
 _l30:;
 if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < ten_) {
 goto _l40;
 }
 
 det_[0] = det_[0] / CMPLX (ten_, 0.0);
 det_[1] = det_[1] + CMPLX (1.0, 0.0);
 goto _l30;
 _l40:;
 }
 
 _l60:;
 __calls[133].calls++;
 return 0;
 }
 
 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 
 _p_ info_)
 { // ** body not listed **
 }
 
 _l130:;
 ipvt_[(*n_) - 1] = (*n_);
 if (({complex_16 zdum__1_ = abd_[m_ - 1 + ((*lda_)) * (((*n_) - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));}) == 0.0e0) {
 (*info_) = (*n_);
 }
 
 __calls[134].calls++;
 return 0;
 }
 
 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_, 
 complex_16 _p_ b_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ek_ = CMPLX (s_, 0.0) * ek_;
 _l30:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 == 0.0e0) {
 goto _l40;
 }
 
 wk_ = wk_ / conj (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
 wkm_ = wkm_ / conj (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
 goto _l50;
 _l40:;
 wk_ = CMPLX (1.0, 0.0);
 wkm_ = CMPLX (1.0, 0.0);
 _l50:;
 kp1_ = k_ + 1;
 if (kp1_ > (*n_)) {
   goto _l90;
 }
 
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal 
   (zdum__1_)) + _abs (cimag (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
   s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 }
 
 if (s_ >= sm_) {
   goto _l80;
 }
 
 t_ = wkm_ - wk_;
 wk_ = wkm_;
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   z_[j_ - 1] = z_[j_ - 1] + t_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
 }
 
 _l80:;
 _l90:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (k_ < (*n_)) {
     z_[k_ - 1] = z_[k_ - 1] + _zdotc (($0_ = (*n_) - k_, &$0_), &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 
     - 1], &_k1);
   }
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= 1.0e0) {
   goto _l110;
 }
 
 s_ = 1.0e0 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 _l110:;
 l_ = ipvt_[k_ - 1];
 t_ = z_[l_ - 1];
 z_[l_ - 1] = z_[k_ - 1];
 z_[k_ - 1] = t_;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   l_ = ipvt_[k_ - 1];
   t_ = z_[l_ - 1];
   z_[l_ - 1] = z_[k_ - 1];
   z_[k_ - 1] = t_;
   if (k_ < (*n_)) {
     (void) _zaxpy (($1_ = (*n_) - k_, &$1_), &t_, &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
   }
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= 1.0e0) {
   goto _l130;
 }
 
 s_ = 1.0e0 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l130:;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
   a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
   goto _l150;
 }
 
 s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l150:;
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 t_ = -z_[k_ - 1];
 (void) _zaxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[136].calls++;
 return 0;
 }
 
 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_ 
 work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 det_[0] = CMPLX (ten_, 0.0) * det_[0];
 det_[1] = det_[1] - CMPLX (1.0, 0.0);
 goto _l10;
 _l20:;
 _l30:;
 if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < ten_) {
 goto _l40;
 }
 
 det_[0] = det_[0] / CMPLX (ten_, 0.0);
 det_[1] = det_[1] + CMPLX (1.0, 0.0);
 goto _l30;
 _l40:;
 }
 
 _l60:;
 _l70:;
 if (_imod ((*job_), 10) == 0) {
   goto _l150;
 }
 
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
   t_ = -a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
   (void) _zscal (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
   kp1_ = k_ + 1;
   if ((*n_) < kp1_) {
     goto _l90;
   }
   for (j_ = kp1_; j_ <= (*n_); (j_)++) {
     t_ = a_[k_ - 1 + ((*lda_)) * ((j_ - 1))];
     a_[k_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
     (void) _zaxpy (&k_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   }
   _l90:;
 }
 
 nm1_ = (*n_) - 1;
 if (nm1_ < 1) {
   goto _l140;
 }
 
 for (kb_ = 1; kb_ <= nm1_; (kb_)++) {
   k_ = (*n_) - kb_;
   kp1_ = k_ + 1;
   for (i_ = kp1_; i_ <= (*n_); (i_)++) {
     work_[i_ - 1] = a_[i_ - 1 + ((*lda_)) * ((k_ - 1))];
     a_[i_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLX (0.0, 0.0);
   }
   for (j_ = kp1_; j_ <= (*n_); (j_)++) {
     t_ = work_[j_ - 1];
     (void) _zaxpy (n_, &t_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
   }
   l_ = ipvt_[k_ - 1];
   if (l_ != k_) {
     (void) _zswap (n_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((l_ - 1))], &_k1);
   }
 }
 
 _l140:;
 _l150:;
 __calls[137].calls++;
 return 0;
 }
 
 int_4 _zgefa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 _l70:;
 ipvt_[(*n_) - 1] = (*n_);
 if (({complex_16 zdum__1_ = a_[(*n_) - 1 + ((*lda_)) * (((*n_) - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));}) == 0.0e0) {
 (*info_) = (*n_);
 }
 __calls[138].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 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_
 )
 { // ** body not listed **
 }
 
 (*info_) = k_;
 goto _l100;
 _l20:;
 t_ = -c_[kp1_ - 1] / c_[k_ - 1];
 c_[kp1_ - 1] = d_[kp1_ - 1] + t_ * d_[k_ - 1];
 d_[kp1_ - 1] = e_[kp1_ - 1] + t_ * e_[k_ - 1];
 e_[kp1_ - 1] = CMPLX (0.0, 0.0);
 b_[kp1_ - 1] = b_[kp1_ - 1] + t_ * b_[k_ - 1];
 }
 
 _l40:;
 if (({complex_16 zdum__1_ = c_[(*n_) - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 goto _l50;
 }
 
 (*info_) = (*n_);
 goto _l90;
 _l50:;
 nm2_ = (*n_) - 2;
 b_[(*n_) - 1] = b_[(*n_) - 1] / c_[(*n_) - 1];
 if ((*n_) == 1) {
   goto _l80;
 }
 
 b_[nm1_ - 1] = (b_[nm1_ - 1] - d_[nm1_ - 1] * b_[(*n_) - 1]) / c_[nm1_ - 1];
 if (nm2_ < 1) {
   goto _l70;
 }
 
 for (kb_ = 1; kb_ <= nm2_; (kb_)++) {
   k_ = nm2_ - kb_ + 1;
   b_[k_ - 1] = (b_[k_ - 1] - d_[k_ - 1] * b_[k_ + 1 - 1] - e_[k_ - 1] * b_[k_ + 2 - 1]) / c_[k_ - 1];
 }
 
 _l70:;
 _l80:;
 _l90:;
 _l100:;
 __calls[140].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 z_[k_ - 1] = z_[k_ - 1] + ek_;
 (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 1) {
   goto _l80;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1 - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 ek_ = ({complex_16 zdum__1_ = ek_; complex_16 zdum2__1_ = z_[k_ - 1 - 1]; ({complex_16 zdum__2_ = zdum__1_; _abs (creal 
 (zdum__2_)) + _abs (cimag (zdum__2_));}) * (zdum2__1_ / ({complex_16 zdum__2_ = zdum2__1_; _abs (creal (zdum__2_)) + 
 _abs (cimag (zdum__2_));}));});
 }
 
 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 _l80:;
 if (ks_ == 2) {
   goto _l100;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 goto _l90;
 }
 
 s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ek_ = CMPLX (s_, 0.0) * ek_;
 _l90:;
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 goto _l110;
 _l100:;
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bk_ = z_[k_ - 1] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l110:;
 k_ = k_ - ks_;
 goto _l60;
 _l120:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 k_ = 1;
 _l130:;
 if (k_ > (*n_)) {
   goto _l160;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l150;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _zdotc (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
   &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l140;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l140:;
 _l150:;
 k_ = k_ + ks_;
 goto _l130;
 _l160:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 k_ = (*n_);
 _l170:;
 if (k_ == 0) {
   goto _l230;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == ks_) {
   goto _l190;
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 kps_ = k_ + 1 - ks_;
 if (kp_ == kps_) {
   goto _l180;
 }
 
 t_ = z_[kps_ - 1];
 z_[kps_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l180:;
 (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 }
 
 _l190:;
 if (ks_ == 2) {
   goto _l210;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 goto _l200;
 }
 
 s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l200:;
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 goto _l220;
 _l210:;
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bk_ = z_[k_ - 1] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l220:;
 k_ = k_ - ks_;
 goto _l170;
 _l230:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 k_ = 1;
 _l240:;
 if (k_ > (*n_)) {
   goto _l270;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l260;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _zdotc (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
   &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l250;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l250:;
 _l260:;
 k_ = k_ + ks_;
 goto _l240;
 _l270:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[141].calls++;
 return 0;
 }
 
 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_, 
 complex_16 _p_ work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _zhifa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 goto _l200;
 _l20:;
 km1_ = k_ - 1;
 absakk_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));});
 imax_ = _izamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 colmax_ = ({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));});
 if (absakk_ < alpha_ * colmax_) {
   goto _l30;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l90;
 _l30:;
 rowmax_ = 0.0;
 imaxp1_ = imax_ + 1;
 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
   rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs (creal (zdum__1_)) + _abs 
   (cimag (zdum__1_));}));
 }
 
 if (imax_ == 1) {
   goto _l50;
 }
 
 jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
 rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum__1_)) + 
 _abs (cimag (zdum__1_));}));
 _l50:;
 if (({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));}) < alpha_ * rowmax_) {
 goto _l60;
 }
 
 kstep_ = 1;
 swap_ = TRUE;
 goto _l80;
 _l60:;
 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
   goto _l70;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l80;
 _l70:;
 kstep_ = 2;
 swap_ = imax_ != km1_;
 _l80:;
 _l90:;
 if (_max (absakk_, colmax_) != 0.0e0) {
   goto _l100;
 }
 
 kpvt_[k_ - 1] = k_;
 (*info_) = k_;
 goto _l190;
 _l100:;
 if (kstep_ == 2) {
   goto _l140;
 }
 
 if (! (swap_)) {
   goto _l120;
 }
 
 (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
   j_ = k_ + imax_ - jj_;
   t_ = conj (a_[j_ - 1 + ((*lda_)) * ((k_ - 1))]);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = conj (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
   a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 }
 
 _l120:;
 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
   j_ = k_ - jj_;
   mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
   t_ = conj (mulk_);
   (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLX (creal (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))]), 0.0);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
 }
 
 kpvt_[k_ - 1] = k_;
 if (swap_) {
   kpvt_[k_ - 1] = imax_;
 }
 
 goto _l190;
 _l140:;
 if (! (swap_)) {
   goto _l160;
 }
 
 (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
   j_ = km1_ + imax_ - jj_;
   t_ = conj (a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))]);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = conj (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
   a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 }
 
 t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
 a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
 _l160:;
 km2_ = k_ - 2;
 if (km2_ == 0) {
   goto _l180;
 }
 
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
 denom_ = 1.0e0 - ak_ * akm1_;
 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
   j_ = km1_ - jj_;
   bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
   bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
   mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
   mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
   t_ = conj (mulk_);
   (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   t_ = conj (mulkm1_);
   (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
   a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLX (creal (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))]), 0.0);
 }
 
 _l180:;
 kpvt_[k_ - 1] = 1 - k_;
 if (swap_) {
   kpvt_[k_ - 1] = -imax_;
 }
 
 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 _l190:;
 k_ = k_ - kstep_;
 goto _l10;
 _l200:;
 __calls[143].calls++;
 return 0;
 }
 
 int_4 _zhisl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _zhpco (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
 { // ** body not listed **
 }
 
 z_[k_ - 1] = z_[k_ - 1] + ek_;
 (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 if (ks_ == 1) {
   goto _l80;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1 - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 ek_ = ({complex_16 zdum__1_ = ek_; complex_16 zdum2__1_ = z_[k_ - 1 - 1]; ({complex_16 zdum__2_ = zdum__1_; _abs (creal 
 (zdum__2_)) + _abs (cimag (zdum__2_));}) * (zdum2__1_ / ({complex_16 zdum__2_ = zdum2__1_; _abs (creal (zdum__2_)) + 
 _abs (cimag (zdum__2_));}));});
 }
 
 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 _l80:;
 if (ks_ == 2) {
   goto _l100;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 goto _l90;
 }
 
 s_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) / ({complex_16 zdum__1_ 
 = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ek_ = CMPLX (s_, 0.0) * ek_;
 _l90:;
 if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 }
 
 if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 goto _l110;
 _l100:;
 km1k_ = ik_ + k_ - 1;
 km1km1_ = ikm1_ + k_ - 1;
 ak_ = ap_[kk_ - 1] / conj (ap_[km1k_ - 1]);
 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 bk_ = z_[k_ - 1] / conj (ap_[km1k_ - 1]);
 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l110:;
 k_ = k_ - ks_;
 ik_ = ik_ - k_;
 if (ks_ == 2) {
   ik_ = ik_ - (k_ + 1);
 }
 
 goto _l60;
 _l120:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 k_ = 1;
 ik_ = 0;
 _l130:;
 if (k_ > (*n_)) {
   goto _l160;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l150;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _zdotc (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 ikp1_ = ik_ + k_;
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l140;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l140:;
 _l150:;
 ik_ = ik_ + k_;
 if (ks_ == 2) {
   ik_ = ik_ + (k_ + 1);
 }
 
 k_ = k_ + ks_;
 goto _l130;
 _l160:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 k_ = (*n_);
 ik_ = (*n_) * ((*n_) - 1) / 2;
 _l170:;
 if (k_ == 0) {
   goto _l230;
 }
 
 kk_ = ik_ + k_;
 ikm1_ = ik_ - (k_ - 1);
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == ks_) {
   goto _l190;
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 kps_ = k_ + 1 - ks_;
 if (kp_ == kps_) {
   goto _l180;
 }
 
 t_ = z_[kps_ - 1];
 z_[kps_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l180:;
 (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 _l190:;
 if (ks_ == 2) {
   goto _l210;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 goto _l200;
 }
 
 s_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) / ({complex_16 zdum__1_ 
 = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l200:;
 if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 }
 
 if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 goto _l220;
 _l210:;
 km1k_ = ik_ + k_ - 1;
 km1km1_ = ikm1_ + k_ - 1;
 ak_ = ap_[kk_ - 1] / conj (ap_[km1k_ - 1]);
 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 bk_ = z_[k_ - 1] / conj (ap_[km1k_ - 1]);
 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l220:;
 k_ = k_ - ks_;
 ik_ = ik_ - k_;
 if (ks_ == 2) {
   ik_ = ik_ - (k_ + 1);
 }
 
 goto _l170;
 _l230:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 k_ = 1;
 ik_ = 0;
 _l240:;
 if (k_ > (*n_)) {
   goto _l270;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l260;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _zdotc (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 ikp1_ = ik_ + k_;
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l250;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l250:;
 _l260:;
 ik_ = ik_ + k_;
 if (ks_ == 2) {
   ik_ = ik_ + (k_ + 1);
 }
 
 k_ = k_ + ks_;
 goto _l240;
 _l270:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[145].calls++;
 return 0;
 }
 
 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_ 
 work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _zhpfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 goto _l200;
 _l20:;
 km1_ = k_ - 1;
 kk_ = ik_ + k_;
 absakk_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 imax_ = _izamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
 imk_ = ik_ + imax_;
 colmax_ = ({complex_16 zdum__1_ = ap_[imk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 if (absakk_ < alpha_ * colmax_) {
   goto _l30;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l90;
 _l30:;
 rowmax_ = 0.0;
 imaxp1_ = imax_ + 1;
 im_ = imax_ * (imax_ - 1) / 2;
 imj_ = im_ + 2 * imax_;
 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
   rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = ap_[imj_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}));
   imj_ = imj_ + j_;
 }
 
 if (imax_ == 1) {
   goto _l50;
 }
 jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
 jmim_ = jmax_ + im_;
 rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = ap_[jmim_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}))
 ;
 _l50:;
 imim_ = imax_ + im_;
 if (({complex_16 zdum__1_ = ap_[imim_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < alpha_ * rowmax_) {
 goto _l60;
 }
 
 kstep_ = 1;
 swap_ = TRUE;
 goto _l80;
 _l60:;
 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
   goto _l70;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l80;
 _l70:;
 kstep_ = 2;
 swap_ = imax_ != km1_;
 _l80:;
 _l90:;
 if (_max (absakk_, colmax_) != 0.0e0) {
   goto _l100;
 }
 
 kpvt_[k_ - 1] = k_;
 (*info_) = k_;
 goto _l190;
 _l100:;
 if (kstep_ == 2) {
   goto _l140;
 }
 
 if (! (swap_)) {
   goto _l120;
 }
 
 (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 imj_ = ik_ + imax_;
 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
   j_ = k_ + imax_ - jj_;
   jk_ = ik_ + j_;
   t_ = conj (ap_[jk_ - 1]);
   ap_[jk_ - 1] = conj (ap_[imj_ - 1]);
   ap_[imj_ - 1] = t_;
   imj_ = imj_ - (j_ - 1);
 }
 
 _l120:;
 ij_ = ik_ - (k_ - 1);
 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
   j_ = k_ - jj_;
   jk_ = ik_ + j_;
   mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
   t_ = conj (mulk_);
   (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   ijj_ = ij_ + j_;
   ap_[ijj_ - 1] = CMPLX (creal (ap_[ijj_ - 1]), 0.0);
   ap_[jk_ - 1] = mulk_;
   ij_ = ij_ - (j_ - 1);
 }
 
 kpvt_[k_ - 1] = k_;
 if (swap_) {
   kpvt_[k_ - 1] = imax_;
 }
 
 goto _l190;
 _l140:;
 km1k_ = ik_ + k_ - 1;
 ikm1_ = ik_ - (k_ - 1);
 if (! (swap_)) {
   goto _l160;
 }
 
 (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
 imj_ = ikm1_ + imax_;
 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
   j_ = km1_ + imax_ - jj_;
   jkm1_ = ikm1_ + j_;
   t_ = conj (ap_[jkm1_ - 1]);
   ap_[jkm1_ - 1] = conj (ap_[imj_ - 1]);
   ap_[imj_ - 1] = t_;
   imj_ = imj_ - (j_ - 1);
 }
 
 t_ = ap_[km1k_ - 1];
 ap_[km1k_ - 1] = ap_[imk_ - 1];
 ap_[imk_ - 1] = t_;
 _l160:;
 km2_ = k_ - 2;
 if (km2_ == 0) {
   goto _l180;
 }
 
 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 km1km1_ = ikm1_ + k_ - 1;
 akm1_ = ap_[km1km1_ - 1] / conj (ap_[km1k_ - 1]);
 denom_ = 1.0e0 - ak_ * akm1_;
 ij_ = ik_ - (k_ - 1) - (k_ - 2);
 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
   j_ = km1_ - jj_;
   jk_ = ik_ + j_;
   bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
   jkm1_ = ikm1_ + j_;
   bkm1_ = ap_[jkm1_ - 1] / conj (ap_[km1k_ - 1]);
   mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
   mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
   t_ = conj (mulk_);
   (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   t_ = conj (mulkm1_);
   (void) _zaxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   ap_[jk_ - 1] = mulk_;
   ap_[jkm1_ - 1] = mulkm1_;
   ijj_ = ij_ + j_;
   ap_[ijj_ - 1] = CMPLX (creal (ap_[ijj_ - 1]), 0.0);
   ij_ = ij_ - (j_ - 1);
 }
 
 _l180:;
 kpvt_[k_ - 1] = 1 - k_;
 if (swap_) {
   kpvt_[k_ - 1] = -imax_;
 }
 
 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 _l190:;
 ik_ = ik_ - (k_ - 1);
 if (kstep_ == 2) {
   ik_ = ik_ - (k_ - 2);
 }
 
 k_ = k_ - kstep_;
 goto _l10;
 _l200:;
 __calls[147].calls++;
 return 0;
 }
 
 int_4 _zhpsl (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
 { // ** body not listed **
 }
 
 real_8 _zmach (int_4 _p_ job_)
 { // ** body not listed **
 }
 
 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_, 
 int_4 _p_ info_)
 { // ** body not listed **
 }
 
 s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal 
 (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ek_ = CMPLX (s_, 0.0) * ek_;
 _l60:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 wk_ = wk_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 wkm_ = wkm_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 kp1_ = k_ + 1;
 j2_ = _min (k_ + (*m_), (*n_));
 i_ = (*m_) + 1;
 if (kp1_ > j2_) {
   goto _l100;
 }
 
 for (j_ = kp1_; j_ <= j2_; (j_)++) {
   i_ = i_ - 1;
   sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal 
   (zdum__1_)) + _abs (cimag (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
   s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 }
 
 if (s_ >= sm_) {
   goto _l90;
 }
 
 t_ = wkm_ - wk_;
 wk_ = wkm_;
 i_ = (*m_) + 1;
 for (j_ = kp1_; j_ <= j2_; (j_)++) {
   i_ = i_ - 1;
   z_[j_ - 1] = z_[j_ - 1] + t_ * conj (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
 }
 
 _l90:;
 _l100:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (abd_[(*m_) + 1 - 
   1 + ((*lda_)) * ((k_ - 1))])) {
   goto _l120;
 }
 
 s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) 
 + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 _l120:;
 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 lm_ = _min (k_ - 1, (*m_));
 la_ = (*m_) + 1 - lm_;
 lb_ = k_ - lm_;
 t_ = -z_[k_ - 1];
 (void) _zaxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   lm_ = _min (k_ - 1, (*m_));
   la_ = (*m_) + 1 - lm_;
   lb_ = k_ - lm_;
   z_[k_ - 1] = z_[k_ - 1] - _zdotc (&lm_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (abd_[(*m_) + 1 - 
   1 + ((*lda_)) * ((k_ - 1))])) {
   goto _l140;
 }
 
 s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) 
 + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l140:;
 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (abd_[(*m_) + 1 - 
   1 + ((*lda_)) * ((k_ - 1))])) {
   goto _l160;
 }
 
 s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) 
 + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l160:;
 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
 lm_ = _min (k_ - 1, (*m_));
 la_ = (*m_) + 1 - lm_;
 lb_ = k_ - lm_;
 t_ = -z_[k_ - 1];
 (void) _zaxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 _l180:;
 __calls[150].calls++;
 return 0;
 }
 
 int_4 _zpbdi (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ det_)
 { // ** body not listed **
 }
 
 int_4 _zpbfa (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _zpbsl (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, complex_16 _p_ b_)
 { // ** body not listed **
 }
 
 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_)
 { // ** body not listed **
 }
 
 s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum__1_)) + 
 _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ek_ = CMPLX (s_, 0.0) * ek_;
 _l60:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 wk_ = wk_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 wkm_ = wkm_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 kp1_ = k_ + 1;
 if (kp1_ > (*n_)) {
   goto _l100;
 }
 
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal 
   (zdum__1_)) + _abs (cimag (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
   s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 }
 
 if (s_ >= sm_) {
   goto _l90;
 }
 
 t_ = wkm_ - wk_;
 wk_ = wkm_;
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   z_[j_ - 1] = z_[j_ - 1] + t_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
 }
 
 _l90:;
 _l100:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (a_[k_ - 1 + 
   ((*lda_)) * ((k_ - 1))])) {
   goto _l120;
 }
 
 s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs 
 (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 _l120:;
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 t_ = -z_[k_ - 1];
 (void) _zaxpy (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   z_[k_ - 1] = z_[k_ - 1] - _zdotc (($1_ = k_ - 1, &$1_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (a_[k_ - 1 + 
   ((*lda_)) * ((k_ - 1))])) {
   goto _l140;
 }
 s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs 
 (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l140:;
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (a_[k_ - 1 + 
   ((*lda_)) * ((k_ - 1))])) {
   goto _l160;
 }
 
 s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs 
 (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l160:;
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 t_ = -z_[k_ - 1];
 (void) _zaxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 _l180:;
 __calls[154].calls++;
 return 0;
 }
 
 int_4 _zpodi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _zpofa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _zposl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_16 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _zppco (complex_16 _p_ ap_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ek_ = CMPLX (s_, 0.0) * ek_;
 _l60:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 wk_ = wk_ / ap_[kk_ - 1];
 wkm_ = wkm_ / ap_[kk_ - 1];
 kp1_ = k_ + 1;
 kj_ = kk_ + k_;
 if (kp1_ > (*n_)) {
   goto _l100;
 }
 
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (ap_[kj_ - 1]); _abs (creal (zdum__1_)) + _abs (cimag 
   (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (ap_[kj_ - 1]);
   s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
   kj_ = kj_ + j_;
 }
 
 if (s_ >= sm_) {
   goto _l90;
 }
 
 t_ = wkm_ - wk_;
 wk_ = wkm_;
 kj_ = kk_ + k_;
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   z_[j_ - 1] = z_[j_ - 1] + t_ * conj (ap_[kj_ - 1]);
   kj_ = kj_ + j_;
 }
 
 _l90:;
 _l100:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (ap_[kk_ - 1])) 
   {
   goto _l120;
 }
 
 s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 _l120:;
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 kk_ = kk_ - k_;
 t_ = -z_[k_ - 1];
 (void) _zaxpy (($0_ = k_ - 1, &$0_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   z_[k_ - 1] = z_[k_ - 1] - _zdotc (($1_ = k_ - 1, &$1_), &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
   kk_ = kk_ + k_;
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (ap_[kk_ - 1])) 
   {
   goto _l140;
 }
 
 s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l140:;
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= creal (ap_[kk_ - 1])) 
   {
   goto _l160;
 }
 
 s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l160:;
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 kk_ = kk_ - k_;
 t_ = -z_[k_ - 1];
 (void) _zaxpy (($2_ = k_ - 1, &$2_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 _l180:;
 __calls[158].calls++;
 return 0;
 }
 
 int_4 _zppdi (complex_16 _p_ ap_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 int_4 _zppfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 int_4 _zppsl (complex_16 _p_ ap_, int_4 _p_ n_, complex_16 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _zptsl (int_4 _p_ n_, complex_16 _p_ d_, complex_16 _p_ e_, complex_16 _p_ b_)
 { // ** body not listed **
 }
 
 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_, 
 complex_16 _p_ work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 (void) _zscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = CMPLX (1.0, 0.0) / nrmxl_, &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 
 1))], &_k1);
 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLX (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 lp1_ = l_ + 1;
 if ((*p_) < lp1_) {
   goto _l170;
 }
 
 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
   t_ = -_zdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ - 
   1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
   (void) _zaxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * 
   ((j_ - 1))], &_k1);
   if (j_ < pl_ || j_ > pu_) {
     goto _l150;
   }
   if (({complex_16 zdum__1_ = qraux_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
   goto _l150;
 }
 
 tt_ = 1.0e0 - ($5_ = (cabs (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]) / creal (qraux_[j_ - 1])), $5_ * $5_);
 tt_ = _max (tt_, 0.0);
 t_ = CMPLX (tt_, 0.0);
 tt_ = 1.0e0 + 0.05e0 * tt_ * ($6_ = (creal (qraux_[j_ - 1]) / creal (work_[j_ - 1])), $6_ * $6_);
 if (tt_ == 1.0e0) {
   goto _l130;
 }
 
 qraux_[j_ - 1] = qraux_[j_ - 1] * csqrt (t_);
 goto _l140;
 _l130:;
 qraux_[j_ - 1] = CMPLX (_dznrm2 (($7_ = (*n_) - l_, &$7_), &x_[l_ + 1 - 1 + ((*ldx_)) * ((j_ - 1))], &_k1), 0.0);
 work_[j_ - 1] = qraux_[j_ - 1];
 _l140:;
 _l150:;
 }
 
 _l170:;
 qraux_[l_ - 1] = x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = -nrmxl_;
 _l180:;
 _l190:;
 }
 
 __calls[163].calls++;
 return 0;
 }
 
 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_, 
 complex_16 _p_ qy_, complex_16 _p_ qty_, complex_16 _p_ b_, complex_16 _p_ rsd_, complex_16 _p_ xb_, int_4 _p_ job_, 
 int_4 _p_ info_)
 { // ** body not listed **
 }
 
 (*info_) = 1;
 goto _l20;
 _l10:;
 b_[0] = y_[0] / x_[0 + ((*ldx_)) * ((0))];
 _l20:;
 _l30:;
 if (cr_) {
   rsd_[0] = CMPLX (0.0, 0.0);
 }
 
 goto _l250;
 _l40:;
 if (cqy_) {
   (void) _zcopy (n_, y_, &_k1, qy_, &_k1);
 }
 
 if (cqty_) {
   (void) _zcopy (n_, y_, &_k1, qty_, &_k1);
 }
 
 if (! (cqy_)) {
   goto _l70;
 }
 
 for (jj_ = 1; jj_ <= ju_; (jj_)++) {
   j_ = ju_ - jj_ + 1;
   if (({complex_16 zdum__1_ = qraux_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
   goto _l50;
 }
 
 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
 t_ = -_zdotc (($0_ = (*n_) - j_ + 1, &$0_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1) / x_[j_ - 1 
 + ((*ldx_)) * ((j_ - 1))];
 (void) _zaxpy (($1_ = (*n_) - j_ + 1, &$1_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1);
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
 _l50:;
 }
 
 _l70:;
 if (! (cqty_)) {
   goto _l100;
 }
 
 for (j_ = 1; j_ <= ju_; (j_)++) {
   if (({complex_16 zdum__1_ = qraux_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
   goto _l80;
 }
 
 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
 t_ = -_zdotc (($2_ = (*n_) - j_ + 1, &$2_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1) / x_[j_ - 
 1 + ((*ldx_)) * ((j_ - 1))];
 (void) _zaxpy (($3_ = (*n_) - j_ + 1, &$3_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1);
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
 _l80:;
 }
 
 _l100:;
 if (cb_) {
   (void) _zcopy (k_, qty_, &_k1, b_, &_k1);
 }
 
 kp1_ = (*k_) + 1;
 if (cxb_) {
   (void) _zcopy (k_, qty_, &_k1, xb_, &_k1);
 }
 
 if (cr_ && (*k_) < (*n_)) {
   (void) _zcopy (($4_ = (*n_) - (*k_), &$4_), &qty_[kp1_ - 1], &_k1, &rsd_[kp1_ - 1], &_k1);
 }
 
 if (! (cxb_) || kp1_ > (*n_)) {
   goto _l120;
 }
 
 for (i_ = kp1_; i_ <= (*n_); (i_)++) {
   xb_[i_ - 1] = CMPLX (0.0, 0.0);
 }
 
 _l120:;
 if (! (cr_)) {
   goto _l140;
 }
 
 for (i_ = 1; i_ <= (*k_); (i_)++) {
   rsd_[i_ - 1] = CMPLX (0.0, 0.0);
 }
 
 _l140:;
 if (! (cb_)) {
   goto _l190;
 }
 
 for (jj_ = 1; jj_ <= (*k_); (jj_)++) {
   j_ = (*k_) - jj_ + 1;
   if (({complex_16 zdum__1_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
   != 0.0e0) {
   goto _l150;
 }
 
 (*info_) = j_;
 goto _l180;
 _l150:;
 b_[j_ - 1] = b_[j_ - 1] / x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 if (j_ == 1) {
   goto _l160;
 }
 
 t_ = -b_[j_ - 1];
 (void) _zaxpy (($5_ = j_ - 1, &$5_), &t_, &x_[0 + ((*ldx_)) * ((j_ - 1))], &_k1, b_, &_k1);
 _l160:;
 }
 
 _l180:;
 _l190:;
 if (! (cr_) && ! (cxb_)) {
   goto _l240;
 }
 
 for (jj_ = 1; jj_ <= ju_; (jj_)++) {
   j_ = ju_ - jj_ + 1;
   if (({complex_16 zdum__1_ = qraux_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
   goto _l220;
 }
 
 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
 if (! (cr_)) {
   goto _l200;
 }
 
 t_ = -_zdotc (($6_ = (*n_) - j_ + 1, &$6_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1) / x_[j_ - 
 1 + ((*ldx_)) * ((j_ - 1))];
 (void) _zaxpy (($7_ = (*n_) - j_ + 1, &$7_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1);
 _l200:;
 if (! (cxb_)) {
   goto _l210;
 }
 
 t_ = -_zdotc (($8_ = (*n_) - j_ + 1, &$8_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1) / x_[j_ - 1 
 + ((*ldx_)) * ((j_ - 1))];
 (void) _zaxpy (($9_ = (*n_) - j_ + 1, &$9_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1);
 _l210:;
 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
 _l220:;
 }
 
 _l240:;
 _l250:;
 __calls[164].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 z_[k_ - 1] = z_[k_ - 1] + ek_;
 (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 1) {
   goto _l80;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1 - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 ek_ = ({complex_16 zdum__1_ = ek_; complex_16 zdum2__1_ = z_[k_ - 1 - 1]; ({complex_16 zdum__2_ = zdum__1_; _abs (creal 
 (zdum__2_)) + _abs (cimag (zdum__2_));}) * (zdum2__1_ / ({complex_16 zdum__2_ = zdum2__1_; _abs (creal (zdum__2_)) + 
 _abs (cimag (zdum__2_));}));});
 }
 
 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 _l80:;
 if (ks_ == 2) {
   goto _l100;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 goto _l90;
 }
 
 s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ek_ = CMPLX (s_, 0.0) * ek_;
 _l90:;
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 goto _l110;
 _l100:;
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l110:;
 k_ = k_ - ks_;
 goto _l60;
 _l120:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 k_ = 1;
 _l130:;
 if (k_ > (*n_)) {
   goto _l160;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l150;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _zdotu (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
   &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l140;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l140:;
 _l150:;
 k_ = k_ + ks_;
 goto _l130;
 _l160:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 k_ = (*n_);
 _l170:;
 if (k_ == 0) {
   goto _l230;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == ks_) {
   goto _l190;
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 kps_ = k_ + 1 - ks_;
 if (kp_ == kps_) {
   goto _l180;
 }
 
 t_ = z_[kps_ - 1];
 z_[kps_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l180:;
 (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
 }
 
 _l190:;
 if (ks_ == 2) {
   goto _l210;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 goto _l200;
 }
 
 s_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l200:;
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 }
 
 if (({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 goto _l220;
 _l210:;
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l220:;
 k_ = k_ - ks_;
 goto _l170;
 _l230:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 k_ = 1;
 _l240:;
 if (k_ > (*n_)) {
   goto _l270;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l260;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _zdotu (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0], 
   &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l250;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l250:;
 _l260:;
 k_ = k_ + ks_;
 goto _l240;
 _l270:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[165].calls++;
 return 0;
 }
 
 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_ 
 work_, int_4 _p_ job_)
 { // ** body not listed **
 }
 
 _l40:;
 if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) >= 1.0e0) {
 goto _l50;
 }
 
 det_[0] = CMPLX (ten_, 0.0) * det_[0];
 det_[1] = det_[1] - CMPLX (1.0, 0.0);
 goto _l40;
 _l50:;
 _l60:;
 if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < ten_) {
 goto _l70;
 }
 det_[0] = det_[0] / CMPLX (ten_, 0.0);
 det_[1] = det_[1] + CMPLX (1.0, 0.0);
 goto _l60;
 _l70:;
 _l80:;
 }
 
 _l100:;
 if (noinv_) {
   goto _l230;
 }
 
 k_ = 1;
 _l110:;
 if (k_ > (*n_)) {
   goto _l220;
 }
 
 km1_ = k_ - 1;
 if (kpvt_[k_ - 1] < 0) {
   goto _l140;
 }
 
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
 if (km1_ < 1) {
   goto _l130;
 }
 
 (void) _zcopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
 for (j_ = 1; j_ <= km1_; (j_)++) {
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _zdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
   (void) _zaxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 
   1))], &_k1);
 }
 
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _zdotu (&km1_, work_, &_k1, &a_[0 + 
 ((*lda_)) * ((k_ - 1))], &_k1);
 _l130:;
 kstep_ = 1;
 goto _l180;
 _l140:;
 t_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / t_;
 akp1_ = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
 akkp1_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
 d_ = t_ * (ak_ * akp1_ - CMPLX (1.0, 0.0));
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = akp1_ / d_;
 a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = ak_ / d_;
 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = -akkp1_ / d_;
 if (km1_ < 1) {
   goto _l170;
 }
 
 (void) _zcopy (&km1_, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, work_, &_k1);
 for (j_ = 1; j_ <= km1_; (j_)++) {
   a_[j_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = _zdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
   (void) _zaxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ + 
   1 - 1))], &_k1);
 }
 
 a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _zdotu (&km1_, work_, &_k1, 
 &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _zdotu (&km1_, &a_[0 + ((*lda_)) * 
 ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
 (void) _zcopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
 for (j_ = 1; j_ <= km1_; (j_)++) {
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _zdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
   (void) _zaxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 
   1))], &_k1);
 }
 
 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _zdotu (&km1_, work_, &_k1, &a_[0 + 
 ((*lda_)) * ((k_ - 1))], &_k1);
 _l170:;
 kstep_ = 2;
 _l180:;
 ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (ks_ == k_) {
   goto _l210;
 }
 
 (void) _zswap (&ks_, &a_[0 + ((*lda_)) * ((ks_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 for (jb_ = ks_; jb_ <= k_; (jb_)++) {
   j_ = k_ + ks_ - jb_;
   temp_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))];
   a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))] = temp_;
 }
 
 if (kstep_ == 1) {
   goto _l200;
 }
 
 temp_ = a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
 a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = temp_;
 _l200:;
 _l210:;
 k_ = k_ + kstep_;
 goto _l110;
 _l220:;
 _l230:;
 __calls[166].calls++;
 return 0;
 }
 
 int_4 _zsifa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 goto _l200;
 _l20:;
 km1_ = k_ - 1;
 absakk_ = ({complex_16 zdum__1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));});
 imax_ = _izamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 colmax_ = ({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));});
 if (absakk_ < alpha_ * colmax_) {
   goto _l30;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l90;
 _l30:;
 rowmax_ = 0.0;
 imaxp1_ = imax_ + 1;
 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
   rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs (creal (zdum__1_)) + _abs 
   (cimag (zdum__1_));}));
 }
 
 if (imax_ == 1) {
   goto _l50;
 }
 
 jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
 rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum__1_)) + 
 _abs (cimag (zdum__1_));}));
 _l50:;
 if (({complex_16 zdum__1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag 
 (zdum__1_));}) < alpha_ * rowmax_) {
 goto _l60;
 }
 
 kstep_ = 1;
 swap_ = TRUE;
 goto _l80;
 _l60:;
 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
   goto _l70;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l80;
 _l70:;
 kstep_ = 2;
 swap_ = imax_ != km1_;
 _l80:;
 _l90:;
 if (_max (absakk_, colmax_) != 0.0e0) {
   goto _l100;
 }
 
 kpvt_[k_ - 1] = k_;
 (*info_) = k_;
 goto _l190;
 _l100:;
 if (kstep_ == 2) {
   goto _l140;
 }
 
 if (! (swap_)) {
   goto _l120;
 }
 
 (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
   j_ = k_ + imax_ - jj_;
   t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
   a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 }
 
 _l120:;
 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
   j_ = k_ - jj_;
   mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
   t_ = mulk_;
   (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
 }
 
 kpvt_[k_ - 1] = k_;
 if (swap_) {
   kpvt_[k_ - 1] = imax_;
 }
 
 goto _l190;
 _l140:;
 if (! (swap_)) {
   goto _l160;
 }
 
 (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
   j_ = km1_ + imax_ - jj_;
   t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))];
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
   a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
 }
 
 t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
 a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
 _l160:;
 km2_ = k_ - 2;
 if (km2_ == 0) {
   goto _l180;
 }
 
 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
 denom_ = 1.0e0 - ak_ * akm1_;
 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
   j_ = km1_ - jj_;
   bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
   bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
   mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
   mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
   t_ = mulk_;
   (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   t_ = mulkm1_;
   (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
   a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
 }
 
 _l180:;
 kpvt_[k_ - 1] = 1 - k_;
 if (swap_) {
   kpvt_[k_ - 1] = -imax_;
 }
 
 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 _l190:;
 k_ = k_ - kstep_;
 goto _l10;
 _l200:;
 __calls[167].calls++;
 return 0;
 }
 
 int_4 _zsisl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
 { // ** body not listed **
 }
 
 int_4 _zspco (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
 { // ** body not listed **
 }
 
 z_[k_ - 1] = z_[k_ - 1] + ek_;
 (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 if (ks_ == 1) {
   goto _l80;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1 - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 ek_ = ({complex_16 zdum__1_ = ek_; complex_16 zdum2__1_ = z_[k_ - 1 - 1]; ({complex_16 zdum__2_ = zdum__1_; _abs (creal 
 (zdum__2_)) + _abs (cimag (zdum__2_));}) * (zdum2__1_ / ({complex_16 zdum__2_ = zdum2__1_; _abs (creal (zdum__2_)) + 
 _abs (cimag (zdum__2_));}));});
 }
 
 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
 (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 _l80:;
 if (ks_ == 2) {
   goto _l100;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 goto _l90;
 }
 
 s_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) / ({complex_16 zdum__1_ 
 = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ek_ = CMPLX (s_, 0.0) * ek_;
 _l90:;
 if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 }
 
 if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 goto _l110;
 _l100:;
 km1k_ = ik_ + k_ - 1;
 km1km1_ = ikm1_ + k_ - 1;
 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l110:;
 k_ = k_ - ks_;
 ik_ = ik_ - k_;
 if (ks_ == 2) {
   ik_ = ik_ - (k_ + 1);
 }
 
 goto _l60;
 _l120:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 k_ = 1;
 ik_ = 0;
 _l130:;
 if (k_ > (*n_)) {
   goto _l160;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l150;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _zdotu (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 ikp1_ = ik_ + k_;
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l140;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l140:;
 _l150:;
 ik_ = ik_ + k_;
 if (ks_ == 2) {
   ik_ = ik_ + (k_ + 1);
 }
 
 k_ = k_ + ks_;
 goto _l130;
 _l160:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 k_ = (*n_);
 ik_ = (*n_) * ((*n_) - 1) / 2;
 _l170:;
 if (k_ == 0) {
   goto _l230;
 }
 
 kk_ = ik_ + k_;
 ikm1_ = ik_ - (k_ - 1);
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == ks_) {
   goto _l190;
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 kps_ = k_ + 1 - ks_;
 if (kp_ == kps_) {
   goto _l180;
 }
 
 t_ = z_[kps_ - 1];
 z_[kps_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l180:;
 (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 if (ks_ == 2) {
   (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 _l190:;
 if (ks_ == 2) {
   goto _l210;
 }
 
 if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
 ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
 goto _l200;
 }
 
 s_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) / ({complex_16 zdum__1_ 
 = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l200:;
 if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
 }
 
 if (({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 goto _l220;
 _l210:;
 km1k_ = ik_ + k_ - 1;
 km1km1_ = ikm1_ + k_ - 1;
 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
 denom_ = ak_ * akm1_ - 1.0e0;
 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
 _l220:;
 k_ = k_ - ks_;
 ik_ = ik_ - k_;
 if (ks_ == 2) {
   ik_ = ik_ - (k_ + 1);
 }
 
 goto _l170;
 _l230:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 k_ = 1;
 ik_ = 0;
 _l240:;
 if (k_ > (*n_)) {
   goto _l270;
 }
 
 ks_ = 1;
 if (kpvt_[k_ - 1] < 0) {
   ks_ = 2;
 }
 
 if (k_ == 1) {
   goto _l260;
 }
 
 z_[k_ - 1] = z_[k_ - 1] + _zdotu (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
 ikp1_ = ik_ + k_;
 if (ks_ == 2) {
   z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
 }
 
 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (kp_ == k_) {
   goto _l250;
 }
 
 t_ = z_[k_ - 1];
 z_[k_ - 1] = z_[kp_ - 1];
 z_[kp_ - 1] = t_;
 _l250:;
 _l260:;
 ik_ = ik_ + k_;
 if (ks_ == 2) {
   ik_ = ik_ + (k_ + 1);
 }
 
 k_ = k_ + ks_;
 goto _l240;
 _l270:;
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (anorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / anorm_;
 }
 
 if (anorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[169].calls++;
 return 0;
 }
 
 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_ 
 job_)
 { // ** body not listed **
 }
 
 _l40:;
 if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) >= 1.0e0) {
 goto _l50;
 }
 
 det_[0] = CMPLX (ten_, 0.0) * det_[0];
 det_[1] = det_[1] - CMPLX (1.0, 0.0);
 goto _l40;
 _l50:;
 _l60:;
 if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < ten_) {
 goto _l70;
 }
 
 det_[0] = det_[0] / CMPLX (ten_, 0.0);
 det_[1] = det_[1] + CMPLX (1.0, 0.0);
 goto _l60;
 _l70:;
 _l80:;
 _l90:;
 ik_ = ik_ + k_;
 }
 
 _l110:;
 if (noinv_) {
   goto _l240;
 }
 
 k_ = 1;
 ik_ = 0;
 _l120:;
 if (k_ > (*n_)) {
   goto _l230;
 }
 
 km1_ = k_ - 1;
 kk_ = ik_ + k_;
 ikp1_ = ik_ + k_;
 if (kpvt_[k_ - 1] < 0) {
   goto _l150;
 }
 
 ap_[kk_ - 1] = CMPLX (1.0, 0.0) / ap_[kk_ - 1];
 if (km1_ < 1) {
   goto _l140;
 }
 
 (void) _zcopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
 ij_ = 0;
 for (j_ = 1; j_ <= km1_; (j_)++) {
   jk_ = ik_ + j_;
   ap_[jk_ - 1] = _zdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
   (void) _zaxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
   ij_ = ij_ + j_;
 }
 
 ap_[kk_ - 1] = ap_[kk_ - 1] + _zdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
 _l140:;
 kstep_ = 1;
 goto _l190;
 _l150:;
 kkp1_ = ikp1_ + k_;
 t_ = ap_[kkp1_ - 1];
 ak_ = ap_[kk_ - 1] / t_;
 akp1_ = ap_[kkp1_ + 1 - 1] / t_;
 akkp1_ = ap_[kkp1_ - 1] / t_;
 d_ = t_ * (ak_ * akp1_ - CMPLX (1.0, 0.0));
 ap_[kk_ - 1] = akp1_ / d_;
 ap_[kkp1_ + 1 - 1] = ak_ / d_;
 ap_[kkp1_ - 1] = -akkp1_ / d_;
 if (km1_ < 1) {
   goto _l180;
 }
 
 (void) _zcopy (&km1_, &ap_[ikp1_ + 1 - 1], &_k1, work_, &_k1);
 ij_ = 0;
 for (j_ = 1; j_ <= km1_; (j_)++) {
   jkp1_ = ikp1_ + j_;
   ap_[jkp1_ - 1] = _zdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
   (void) _zaxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
   ij_ = ij_ + j_;
 }
 
 ap_[kkp1_ + 1 - 1] = ap_[kkp1_ + 1 - 1] + _zdotu (&km1_, work_, &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
 ap_[kkp1_ - 1] = ap_[kkp1_ - 1] + _zdotu (&km1_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
 (void) _zcopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
 ij_ = 0;
 for (j_ = 1; j_ <= km1_; (j_)++) {
   jk_ = ik_ + j_;
   ap_[jk_ - 1] = _zdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
   (void) _zaxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
   ij_ = ij_ + j_;
 }
 
 ap_[kk_ - 1] = ap_[kk_ - 1] + _zdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
 _l180:;
 kstep_ = 2;
 _l190:;
 ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
 if (ks_ == k_) {
   goto _l220;
 }
 
 iks_ = (ks_ * (ks_ - 1)) / 2;
 (void) _zswap (&ks_, &ap_[iks_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 ksj_ = ik_ + ks_;
 for (jb_ = ks_; jb_ <= k_; (jb_)++) {
   j_ = k_ + ks_ - jb_;
   jk_ = ik_ + j_;
   temp_ = ap_[jk_ - 1];
   ap_[jk_ - 1] = ap_[ksj_ - 1];
   ap_[ksj_ - 1] = temp_;
   ksj_ = ksj_ - (j_ - 1);
 }
 
 if (kstep_ == 1) {
   goto _l210;
 }
 kskp1_ = ikp1_ + ks_;
 temp_ = ap_[kskp1_ - 1];
 ap_[kskp1_ - 1] = ap_[kkp1_ - 1];
 ap_[kkp1_ - 1] = temp_;
 _l210:;
 _l220:;
 ik_ = ik_ + k_;
 if (kstep_ == 2) {
   ik_ = ik_ + k_ + 1;
 }
 
 k_ = k_ + kstep_;
 goto _l120;
 _l230:;
 _l240:;
 __calls[170].calls++;
 return 0;
 }
 
 int_4 _zspfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
 { // ** body not listed **
 }
 
 goto _l200;
 _l20:;
 km1_ = k_ - 1;
 kk_ = ik_ + k_;
 absakk_ = ({complex_16 zdum__1_ = ap_[kk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 imax_ = _izamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
 imk_ = ik_ + imax_;
 colmax_ = ({complex_16 zdum__1_ = ap_[imk_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 if (absakk_ < alpha_ * colmax_) {
   goto _l30;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l90;
 _l30:;
 rowmax_ = 0.0;
 imaxp1_ = imax_ + 1;
 im_ = imax_ * (imax_ - 1) / 2;
 imj_ = im_ + 2 * imax_;
 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
   rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = ap_[imj_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}));
   imj_ = imj_ + j_;
 }
 
 if (imax_ == 1) {
   goto _l50;
 }
 jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
 jmim_ = jmax_ + im_;
 rowmax_ = _max (rowmax_, ({complex_16 zdum__1_ = ap_[jmim_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}))
 ;
 _l50:;
 imim_ = imax_ + im_;
 if (({complex_16 zdum__1_ = ap_[imim_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < alpha_ * rowmax_) {
 goto _l60;
 }
 
 kstep_ = 1;
 swap_ = TRUE;
 goto _l80;
 _l60:;
 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
   goto _l70;
 }
 
 kstep_ = 1;
 swap_ = FALSE;
 goto _l80;
 _l70:;
 kstep_ = 2;
 swap_ = imax_ != km1_;
 _l80:;
 _l90:;
 if (_max (absakk_, colmax_) != 0.0e0) {
   goto _l100;
 }
 
 kpvt_[k_ - 1] = k_;
 (*info_) = k_;
 goto _l190;
 _l100:;
 if (kstep_ == 2) {
   goto _l140;
 }
 
 if (! (swap_)) {
   goto _l120;
 }
 
 (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
 imj_ = ik_ + imax_;
 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
   j_ = k_ + imax_ - jj_;
   jk_ = ik_ + j_;
   t_ = ap_[jk_ - 1];
   ap_[jk_ - 1] = ap_[imj_ - 1];
   ap_[imj_ - 1] = t_;
   imj_ = imj_ - (j_ - 1);
 }
 
 _l120:;
 ij_ = ik_ - (k_ - 1);
 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
   j_ = k_ - jj_;
   jk_ = ik_ + j_;
   mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
   t_ = mulk_;
   (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   ijj_ = ij_ + j_;
   ap_[jk_ - 1] = mulk_;
   ij_ = ij_ - (j_ - 1);
 }
 
 kpvt_[k_ - 1] = k_;
 if (swap_) {
   kpvt_[k_ - 1] = imax_;
 }
 
 goto _l190;
 _l140:;
 km1k_ = ik_ + k_ - 1;
 ikm1_ = ik_ - (k_ - 1);
 if (! (swap_)) {
   goto _l160;
 }
 
 (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
 imj_ = ikm1_ + imax_;
 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
   j_ = km1_ + imax_ - jj_;
   jkm1_ = ikm1_ + j_;
   t_ = ap_[jkm1_ - 1];
   ap_[jkm1_ - 1] = ap_[imj_ - 1];
   ap_[imj_ - 1] = t_;
   imj_ = imj_ - (j_ - 1);
 }
 
 t_ = ap_[km1k_ - 1];
 ap_[km1k_ - 1] = ap_[imk_ - 1];
 ap_[imk_ - 1] = t_;
 _l160:;
 km2_ = k_ - 2;
 if (km2_ == 0) {
   goto _l180;
 }
 
 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
 km1km1_ = ikm1_ + k_ - 1;
 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
 denom_ = 1.0e0 - ak_ * akm1_;
 ij_ = ik_ - (k_ - 1) - (k_ - 2);
 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
   j_ = km1_ - jj_;
   jk_ = ik_ + j_;
   bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
   jkm1_ = ikm1_ + j_;
   bkm1_ = ap_[jkm1_ - 1] / ap_[km1k_ - 1];
   mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
   mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
   t_ = mulk_;
   (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   t_ = mulkm1_;
   (void) _zaxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
   ap_[jk_ - 1] = mulk_;
   ap_[jkm1_ - 1] = mulkm1_;
   ijj_ = ij_ + j_;
   ij_ = ij_ - (j_ - 1);
 }
 
 _l180:;
 kpvt_[k_ - 1] = 1 - k_;
 if (swap_) {
   kpvt_[k_ - 1] = -imax_;
 }
 
 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
 _l190:;
 ik_ = ik_ - (k_ - 1);
 if (kstep_ == 2) {
   ik_ = ik_ - (k_ - 2);
 }
 
 k_ = k_ - kstep_;
 goto _l10;
 _l200:;
 __calls[171].calls++;
 return 0;
 }
 
 int_4 _zspsl (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
 { // ** body not listed **
 }
 
 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_, 
 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_ 
 info_)
 { // ** body not listed **
 }
 
 (void) _zscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = 1.0e0 / s_[l_ - 1], &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], 
 &_k1);
 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLX (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 _l10:;
 s_[l_ - 1] = -s_[l_ - 1];
 _l20:;
 if ((*p_) < lp1_) {
   goto _l50;
 }
 
 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
   if (l_ > nct_) {
     goto _l30;
   }
   if (({complex_16 zdum__1_ = s_[l_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
   goto _l30;
 }
 
 t_ = -_zdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ - 
 1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
 (void) _zaxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * 
 ((j_ - 1))], &_k1);
 _l30:;
 e_[j_ - 1] = conj (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]);
 }
 
 _l50:;
 if (! (wantu_) || l_ > nct_) {
   goto _l70;
 }
 
 for (i_ = l_; i_ <= (*n_); (i_)++) {
   u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = x_[i_ - 1 + ((*ldx_)) * ((l_ - 1))];
 }
 
 _l70:;
 if (l_ > nrt_) {
   goto _l150;
 }
 
 e_[l_ - 1] = CMPLX (_dznrm2 (($5_ = (*p_) - l_, &$5_), &e_[lp1_ - 1], &_k1), 0.0);
 if (({complex_16 zdum__1_ = e_[l_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 goto _l80;
 }
 
 if (({complex_16 zdum__1_ = e_[lp1_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) != 0.0e0) {
 e_[l_ - 1] = ({complex_16 zdum1__1_ = e_[l_ - 1]; complex_16 zdum2__1_ = e_[lp1_ - 1]; cabs (zdum1__1_) * (zdum2__1_ / 
 cabs (zdum2__1_));});
 }
 
 (void) _zscal (($6_ = (*p_) - l_, &$6_), ($7_ = 1.0e0 / e_[l_ - 1], &$7_), &e_[lp1_ - 1], &_k1);
 e_[lp1_ - 1] = CMPLX (1.0, 0.0) + e_[lp1_ - 1];
 _l80:;
 e_[l_ - 1] = -conj (e_[l_ - 1]);
 if (lp1_ > (*n_) || ({complex_16 zdum__1_ = e_[l_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) 
 { // ** body not listed **
 }
 
 for (i_ = lp1_; i_ <= (*n_); (i_)++) {
   work_[i_ - 1] = CMPLX (0.0, 0.0);
 }
 
 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
   (void) _zaxpy (($8_ = (*n_) - l_, &$8_), &e_[j_ - 1], &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &work_[lp1_ - 1], 
   &_k1);
 }
 
 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
   (void) _zaxpy (($9_ = (*n_) - l_, &$9_), ($10_ = conj (-e_[j_ - 1] / e_[lp1_ - 1]), &$10_), &work_[lp1_ - 1], &_k1, 
   &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1);
 }
 
 _l120:;
 if (! (wantv_)) {
   goto _l140;
 }
 
 for (i_ = lp1_; i_ <= (*p_); (i_)++) {
   v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = e_[i_ - 1];
 }
 
 _l140:;
 _l150:;
 }
 
 _l170:;
 m_ = _min ((*p_), (*n_) + 1);
 nctp1_ = nct_ + 1;
 nrtp1_ = nrt_ + 1;
 if (nct_ < (*p_)) {
   s_[nctp1_ - 1] = x_[nctp1_ - 1 + ((*ldx_)) * ((nctp1_ - 1))];
 }
 
 if ((*n_) < m_) {
   s_[m_ - 1] = CMPLX (0.0, 0.0);
 }
 
 if (nrtp1_ < m_) {
   e_[nrtp1_ - 1] = x_[nrtp1_ - 1 + ((*ldx_)) * ((m_ - 1))];
 }
 
 e_[m_ - 1] = CMPLX (0.0, 0.0);
 if (! (wantu_)) {
   goto _l300;
 }
 
 if (ncu_ < nctp1_) {
   goto _l200;
 }
 
 for (j_ = nctp1_; j_ <= ncu_; (j_)++) {
   for (i_ = 1; i_ <= (*n_); (i_)++) {
     u_[i_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
   }
   u_[j_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLX (1.0, 0.0);
 }
 
 _l200:;
 if (nct_ < 1) {
   goto _l290;
 }
 for (ll_ = 1; ll_ <= nct_; (ll_)++) {
   l_ = nct_ - ll_ + 1;
   if (({complex_16 zdum__1_ = s_[l_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
   goto _l250;
 }
 
 lp1_ = l_ + 1;
 if (ncu_ < lp1_) {
   goto _l220;
 }
 
 for (j_ = lp1_; j_ <= ncu_; (j_)++) {
   t_ = -_zdotc (($11_ = (*n_) - l_ + 1, &$11_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_)) * ((j_ 
   - 1))], &_k1) / u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
   (void) _zaxpy (($12_ = (*n_) - l_ + 1, &$12_), &t_, &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_)) 
   * ((j_ - 1))], &_k1);
 }
 
 _l220:;
 (void) _zscal (($13_ = (*n_) - l_ + 1, &$13_), ($14_ = CMPLX (-1.0, 0.0), &$14_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], 
 &_k1);
 u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (1.0, 0.0) + u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
 lm1_ = l_ - 1;
 if (lm1_ < 1) {
   goto _l240;
 }
 
 for (i_ = 1; i_ <= lm1_; (i_)++) {
   u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (0.0, 0.0);
 }
 
 _l240:;
 goto _l270;
 _l250:;
 for (i_ = 1; i_ <= (*n_); (i_)++) {
   u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (0.0, 0.0);
 }
 
 u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (1.0, 0.0);
 _l270:;
 }
 
 _l290:;
 _l300:;
 if (! (wantv_)) {
   goto _l350;
 }
 
 for (ll_ = 1; ll_ <= (*p_); (ll_)++) {
   l_ = (*p_) - ll_ + 1;
   lp1_ = l_ + 1;
   if (l_ > nrt_) {
     goto _l320;
   }
   if (({complex_16 zdum__1_ = e_[l_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
   goto _l320;
 }
 
 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
   t_ = -_zdotc (($15_ = (*p_) - l_, &$15_), &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_)) * ((j_ 
   - 1))], &_k1) / v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))];
   (void) _zaxpy (($16_ = (*p_) - l_, &$16_), &t_, &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_)) 
   * ((j_ - 1))], &_k1);
 }
 
 _l320:;
 for (i_ = 1; i_ <= (*p_); (i_)++) {
   v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLX (0.0, 0.0);
 }
 
 v_[l_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLX (1.0, 0.0);
 }
 
 _l350:;
 for (i_ = 1; i_ <= m_; (i_)++) {
   if (({complex_16 zdum__1_ = s_[i_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
   goto _l360;
 }
 
 t_ = CMPLX (cabs (s_[i_ - 1]), 0.0);
 r_ = s_[i_ - 1] / t_;
 s_[i_ - 1] = t_;
 if (i_ < m_) {
   e_[i_ - 1] = e_[i_ - 1] / r_;
 }
 
 if (wantu_) {
   (void) _zscal (n_, &r_, &u_[0 + ((*ldu_)) * ((i_ - 1))], &_k1);
 }
 
 _l360:;
 if (i_ == m_) {
   goto _l390;
 }
 
 if (({complex_16 zdum__1_ = e_[i_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) == 0.0e0) {
 goto _l370;
 }
 
 t_ = CMPLX (cabs (e_[i_ - 1]), 0.0);
 r_ = t_ / e_[i_ - 1];
 e_[i_ - 1] = t_;
 s_[i_ + 1 - 1] = s_[i_ + 1 - 1] * r_;
 if (wantv_) {
   (void) _zscal (p_, &r_, &v_[0 + ((*ldv_)) * ((i_ + 1 - 1))], &_k1);
 }
 
 _l370:;
 }
 
 _l390:;
 mm_ = m_;
 iter_ = 0;
 _l400:;
 if (m_ == 0) {
   goto _l660;
 }
 
 if (iter_ < maxit_) {
   goto _l410;
 }
 
 (*info_) = m_;
 goto _l660;
 _l410:;
 for (ll_ = 1; ll_ <= m_; (ll_)++) {
   l_ = m_ - ll_;
   if (l_ == 0) {
     goto _l440;
   }
   test_ = cabs (s_[l_ - 1]) + cabs (s_[l_ + 1 - 1]);
   ztest_ = test_ + cabs (e_[l_ - 1]);
   if (ztest_ != test_) {
     goto _l420;
   }
   e_[l_ - 1] = CMPLX (0.0, 0.0);
   goto _l440;
   _l420:;
 }
 
 _l440:;
 if (l_ != m_ - 1) {
   goto _l450;
 }
 
 kase_ = 4;
 goto _l520;
 _l450:;
 lp1_ = l_ + 1;
 mp1_ = m_ + 1;
 for (lls_ = lp1_; lls_ <= mp1_; (lls_)++) {
   ls_ = m_ - lls_ + lp1_;
   if (ls_ == l_) {
     goto _l480;
   }
   test_ = 0.0;
   if (ls_ != m_) {
     test_ = test_ + cabs (e_[ls_ - 1]);
   }
   if (ls_ != l_ + 1) {
     test_ = test_ + cabs (e_[ls_ - 1 - 1]);
   }
   ztest_ = test_ + cabs (s_[ls_ - 1]);
   if (ztest_ != test_) {
     goto _l460;
   }
   s_[ls_ - 1] = CMPLX (0.0, 0.0);
   goto _l480;
   _l460:;
 }
 
 _l480:;
 if (ls_ != l_) {
   goto _l490;
 }
 
 kase_ = 3;
 goto _l510;
 _l490:;
 if (ls_ != m_) {
   goto _l500;
 }
 
 kase_ = 1;
 goto _l510;
 _l500:;
 kase_ = 2;
 l_ = ls_;
 _l510:;
 _l520:;
 l_ = l_ + 1;
 switch (kase_) {
   default:
   case 1: goto _l530;
   case 2: goto _l560;
   case 3: goto _l580;
   case 4: goto _l610;
 }
 
 _l530:;
 mm1_ = m_ - 1;
 f_ = creal (e_[m_ - 1 - 1]);
 e_[m_ - 1 - 1] = CMPLX (0.0, 0.0);
 for (kk_ = l_; kk_ <= mm1_; (kk_)++) {
   k_ = mm1_ - kk_ + l_;
   t1_ = creal (s_[k_ - 1]);
   (void) _drotg (&t1_, &f_, &cs_, &sn_);
   s_[k_ - 1] = CMPLX (t1_, 0.0);
   if (k_ == l_) {
     goto _l540;
   }
   f_ = -sn_ * creal (e_[k_ - 1 - 1]);
   e_[k_ - 1 - 1] = cs_ * e_[k_ - 1 - 1];
   _l540:;
   if (wantv_) {
     (void) _zdrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((m_ - 1))], &_k1, &cs_, &sn_);
   }
 }
 
 goto _l650;
 _l560:;
 f_ = creal (e_[l_ - 1 - 1]);
 e_[l_ - 1 - 1] = CMPLX (0.0, 0.0);
 for (k_ = l_; k_ <= m_; (k_)++) {
   t1_ = creal (s_[k_ - 1]);
   (void) _drotg (&t1_, &f_, &cs_, &sn_);
   s_[k_ - 1] = CMPLX (t1_, 0.0);
   f_ = -sn_ * creal (e_[k_ - 1]);
   e_[k_ - 1] = cs_ * e_[k_ - 1];
   if (wantu_) {
     (void) _zdrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ - 1 - 1))], &_k1, &cs_, &sn_);
   }
 }
 
 goto _l650;
 _l580:;
 scale_ = ($17_ = _max (cabs (s_[m_ - 1]), cabs (s_[m_ - 1 - 1])), $17_ = _max ($17_, cabs (e_[m_ - 1 - 1])), $17_ = 
 _max ($17_, cabs (s_[l_ - 1])), _max ($17_, cabs (e_[l_ - 1])));
 sm_ = creal (s_[m_ - 1]) / scale_;
 smm1_ = creal (s_[m_ - 1 - 1]) / scale_;
 emm1_ = creal (e_[m_ - 1 - 1]) / scale_;
 sl_ = creal (s_[l_ - 1]) / scale_;
 el_ = creal (e_[l_ - 1]) / scale_;
 b_ = ((smm1_ + sm_) * (smm1_ - sm_) + (emm1_ * emm1_)) / 2.0e0;
 c_ = ($18_ = (sm_ * emm1_), $18_ * $18_);
 shift_ = 0.0;
 if (b_ == 0.0e0 && c_ == 0.0e0) {
   goto _l590;
 }
 
 shift_ = sqrt ((b_ * b_) + c_);
 if (b_ < 0.0e0) {
   shift_ = -shift_;
 }
 
 shift_ = c_ / (b_ + shift_);
 _l590:;
 f_ = (sl_ + sm_) * (sl_ - sm_) + shift_;
 g_ = sl_ * el_;
 mm1_ = m_ - 1;
 for (k_ = l_; k_ <= mm1_; (k_)++) {
   (void) _drotg (&f_, &g_, &cs_, &sn_);
   if (k_ != l_) {
     e_[k_ - 1 - 1] = CMPLX (f_, 0.0);
   }
   f_ = cs_ * creal (s_[k_ - 1]) + sn_ * creal (e_[k_ - 1]);
   e_[k_ - 1] = cs_ * e_[k_ - 1] - sn_ * s_[k_ - 1];
   g_ = sn_ * creal (s_[k_ + 1 - 1]);
   s_[k_ + 1 - 1] = cs_ * s_[k_ + 1 - 1];
   if (wantv_) {
     (void) _zdrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
   }
   (void) _drotg (&f_, &g_, &cs_, &sn_);
   s_[k_ - 1] = CMPLX (f_, 0.0);
   f_ = cs_ * creal (e_[k_ - 1]) + sn_ * creal (s_[k_ + 1 - 1]);
   s_[k_ + 1 - 1] = -sn_ * e_[k_ - 1] + cs_ * s_[k_ + 1 - 1];
   g_ = sn_ * creal (e_[k_ + 1 - 1]);
   e_[k_ + 1 - 1] = cs_ * e_[k_ + 1 - 1];
   if (wantu_ && k_ < (*n_)) {
     (void) _zdrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
   }
 }
 
 e_[m_ - 1 - 1] = CMPLX (f_, 0.0);
 iter_ = iter_ + 1;
 goto _l650;
 _l610:;
 if (creal (s_[l_ - 1]) >= 0.0e0) {
   goto _l620;
 }
 
 s_[l_ - 1] = -s_[l_ - 1];
 if (wantv_) {
   (void) _zscal (p_, ($19_ = CMPLX (-1.0, 0.0), &$19_), &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1);
 }
 
 _l620:;
 _l630:;
 if (l_ == mm_) {
   goto _l640;
 }
 
 if (creal (s_[l_ - 1]) >= creal (s_[l_ + 1 - 1])) {
   goto _l640;
 }
 
 t_ = s_[l_ - 1];
 s_[l_ - 1] = s_[l_ + 1 - 1];
 s_[l_ + 1 - 1] = t_;
 if (wantv_ && l_ < (*p_)) {
   (void) _zswap (p_, &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((l_ + 1 - 1))], &_k1);
 }
 
 if (wantu_ && l_ < (*n_)) {
   (void) _zswap (n_, &u_[0 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ + 1 - 1))], &_k1);
 }
 
 l_ = l_ + 1;
 goto _l630;
 _l640:;
 iter_ = 0;
 m_ = m_ - 1;
 _l650:;
 goto _l400;
 _l660:;
 __calls[173].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 s_ = ({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 / ({complex_16 zdum__1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ek_ = CMPLX (s_, 0.0) * ek_;
 _l30:;
 wk_ = ek_ - z_[k_ - 1];
 wkm_ = -ek_ - z_[k_ - 1];
 s_ = ({complex_16 zdum__1_ = wk_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 sm_ = ({complex_16 zdum__1_ = wkm_; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 if (({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 == 0.0e0) {
 goto _l40;
 }
 
 wk_ = wk_ / conj (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
 wkm_ = wkm_ / conj (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
 goto _l50;
 _l40:;
 wk_ = CMPLX (1.0, 0.0);
 wkm_ = CMPLX (1.0, 0.0);
 _l50:;
 if (kk_ == (*n_)) {
   goto _l90;
 }
 
 j1_ = k_ + 1;
 if (lower_) {
   j1_ = 1;
 }
 
 j2_ = (*n_);
 if (lower_) {
   j2_ = k_ - 1;
 }
 
 for (j_ = j1_; j_ <= j2_; (j_)++) {
   sm_ = sm_ + ({complex_16 zdum__1_ = z_[j_ - 1] + wkm_ * conj (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]); _abs (creal 
   (zdum__1_)) + _abs (cimag (zdum__1_));});
   z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
   s_ = s_ + ({complex_16 zdum__1_ = z_[j_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 }
 
 if (s_ >= sm_) {
   goto _l80;
 }
 
 w_ = wkm_ - wk_;
 wk_ = wkm_;
 for (j_ = j1_; j_ <= j2_; (j_)++) {
   z_[j_ - 1] = z_[j_ - 1] + w_ * conj (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
 }
 
 _l80:;
 _l90:;
 z_[k_ - 1] = wk_;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = 1.0;
 for (kk_ = 1; kk_ <= (*n_); (kk_)++) {
   k_ = (*n_) + 1 - kk_;
   if (lower_) {
     k_ = kk_;
   }
   if (({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) <= ({complex_16 zdum__1_ = 
   t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));})) {
   goto _l110;
 }
 s_ = ({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 / ({complex_16 zdum__1_ = z_[k_ - 1]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));});
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 _l110:;
 if (({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 != 0.0e0) {
 z_[k_ - 1] = z_[k_ - 1] / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 }
 
 if (({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
 == 0.0e0) {
 z_[k_ - 1] = CMPLX (1.0, 0.0);
 }
 
 i1_ = 1;
 if (lower_) {
   i1_ = k_ + 1;
 }
 
 if (kk_ >= (*n_)) {
   goto _l120;
 }
 
 w_ = -z_[k_ - 1];
 (void) _zaxpy (($0_ = (*n_) - kk_, &$0_), &w_, &t_[i1_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &z_[i1_ - 1], &_k1);
 _l120:;
 }
 
 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
 (void) _zdscal (n_, &s_, z_, &_k1);
 ynorm_ = s_ * ynorm_;
 if (tnorm_ != 0.0e0) {
   (*rcond_) = ynorm_ / tnorm_;
 }
 
 if (tnorm_ == 0.0e0) {
   (*rcond_) = 0.0;
 }
 
 __calls[174].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 det_[0] = CMPLX (ten_, 0.0) * det_[0];
 det_[1] = det_[1] - CMPLX (1.0, 0.0);
 goto _l10;
 _l20:;
 _l30:;
 if (({complex_16 zdum__1_ = det_[0]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) < ten_) {
 goto _l40;
 }
 
 det_[0] = det_[0] / CMPLX (ten_, 0.0);
 det_[1] = det_[1] + CMPLX (1.0, 0.0);
 goto _l30;
 _l40:;
 }
 
 _l60:;
 _l70:;
 if (_imod ((*job_) / 10, 10) == 0) {
   goto _l170;
 }
 
 if (_imod ((*job_), 10) == 0) {
   goto _l120;
 }
 
 for (k_ = 1; k_ <= (*n_); (k_)++) {
   (*info_) = k_;
   if (({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
   == 0.0e0) {
   goto _l110;
 }
 
 t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 (void) _zscal (($0_ = k_ - 1, &$0_), &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1);
 kp1_ = k_ + 1;
 if ((*n_) < kp1_) {
   goto _l90;
 }
 
 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
   temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
   t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
   (void) _zaxpy (&k_, &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1);
 }
 
 _l90:;
 }
 
 (*info_) = 0;
 _l110:;
 goto _l160;
 _l120:;
 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
   k_ = (*n_) + 1 - kb_;
   (*info_) = k_;
   if (({complex_16 zdum__1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum__1_)) + _abs (cimag (zdum__1_));}) 
   == 0.0e0) {
   goto _l180;
 }
 
 t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
 if (k_ != (*n_)) {
   (void) _zscal (($1_ = (*n_) - k_, &$1_), &temp_, &t_[k_ + 1 - 1 + ((*ldt_)) * ((k_ - 1))], &_k1);
 }
 
 km1_ = k_ - 1;
 if (km1_ < 1) {
   goto _l140;
 }
 
 for (j_ = 1; j_ <= km1_; (j_)++) {
   temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
   t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
   (void) _zaxpy (($2_ = (*n_) - k_ + 1, &$2_), &temp_, &t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[k_ - 1 + ((*ldt_)) 
   * ((j_ - 1))], &_k1);
 }
 
 _l140:;
 }
 
 (*info_) = 0;
 _l160:;
 _l170:;
 _l180:;
 __calls[175].calls++;
 return 0;
 }
 
 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_)
 { // ** body not listed **
 }
 
 (*info_) = 0;
 case_ = 1;
 if (_imod ((*job_), 10) != 0) {
   case_ = 2;
 }
 
 if (_imod ((*job_), 100) / 10 != 0) {
   case_ = case_ + 2;
 }
 
 switch (case_) {
   default:
   case 1: goto _l20;
   case 2: goto _l50;
   case 3: goto _l80;
   case 4: goto _l110;
 }
 
 _l20:;
 b_[0] = b_[0] / t_[0 + ((*ldt_)) * ((0))];
 if ((*n_) < 2) {
   goto _l40;
 }
 
 for (j_ = 2; j_ <= (*n_); (j_)++) {
   temp_ = -b_[j_ - 1 - 1];
   (void) _zaxpy (($0_ = (*n_) - j_ + 1, &$0_), &temp_, &t_[j_ - 1 + ((*ldt_)) * ((j_ - 1 - 1))], &_k1, &b_[j_ - 1], &_k1)
   ;
   b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
 }
 
 _l40:;
 goto _l140;
 _l50:;
 b_[(*n_) - 1] = b_[(*n_) - 1] / t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))];
 if ((*n_) < 2) {
   goto _l70;
 }
 
 for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
   j_ = (*n_) - jj_ + 1;
   temp_ = -b_[j_ + 1 - 1];
   (void) _zaxpy (&j_, &temp_, &t_[0 + ((*ldt_)) * ((j_ + 1 - 1))], &_k1, &b_[0], &_k1);
   b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
 }
 
 _l70:;
 goto _l140;
 _l80:;
 b_[(*n_) - 1] = b_[(*n_) - 1] / conj (t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))]);
 if ((*n_) < 2) {
   goto _l100;
 }
 
 for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
   j_ = (*n_) - jj_ + 1;
   b_[j_ - 1] = b_[j_ - 1] - _zdotc (($1_ = jj_ - 1, &$1_), &t_[j_ + 1 - 1 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[j_ + 1 - 
   1], &_k1);
   b_[j_ - 1] = b_[j_ - 1] / conj (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
 }
 
 _l100:;
 goto _l140;
 _l110:;
 b_[0] = b_[0] / conj (t_[0 + ((*ldt_)) * ((0))]);
 if ((*n_) < 2) {
   goto _l130;
 }
 
 for (j_ = 2; j_ <= (*n_); (j_)++) {
   b_[j_ - 1] = b_[j_ - 1] - _zdotc (($2_ = j_ - 1, &$2_), &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[0], &_k1);
   b_[j_ - 1] = b_[j_ - 1] / conj (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
 }
 
 _l130:;
 _l140:;
 _l150:;
 __calls[176].calls++;
 return 0;
 }