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