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.10
106 */
111 static CALLS __calls[__ncalls] = {
112 {"cchdc", 0}, // subroutine
113 {"cchdd", 0}, // subroutine
114 {"cchex", 0}, // subroutine
115 {"cchud", 0}, // subroutine
116 {"cgbco", 0}, // subroutine
117 {"cgbdi", 0}, // subroutine
118 {"cgbfa", 0}, // subroutine
119 {"cgbsl", 0}, // subroutine
120 {"cgeco", 0}, // subroutine
121 {"cgedi", 0}, // subroutine
122 {"cgefa", 0}, // subroutine
123 {"cgesl", 0}, // subroutine
124 {"cgtsl", 0}, // subroutine
125 {"chico", 0}, // subroutine
126 {"chidi", 0}, // subroutine
127 {"chifa", 0}, // subroutine
128 {"chisl", 0}, // subroutine
129 {"chpco", 0}, // subroutine
130 {"chpdi", 0}, // subroutine
131 {"chpfa", 0}, // subroutine
132 {"chpsl", 0}, // subroutine
133 {"cpbco", 0}, // subroutine
134 {"cpbdi", 0}, // subroutine
135 {"cpbfa", 0}, // subroutine
136 {"cpbsl", 0}, // subroutine
137 {"cpoco", 0}, // subroutine
138 {"cpodi", 0}, // subroutine
139 {"cpofa", 0}, // subroutine
140 {"cposl", 0}, // subroutine
141 {"cppco", 0}, // subroutine
142 {"cppdi", 0}, // subroutine
143 {"cppfa", 0}, // subroutine
144 {"cppsl", 0}, // subroutine
145 {"cptsl", 0}, // subroutine
146 {"cqrdc", 0}, // subroutine
147 {"cqrsl", 0}, // subroutine
148 {"csico", 0}, // subroutine
149 {"csidi", 0}, // subroutine
150 {"csifa", 0}, // subroutine
151 {"csisl", 0}, // subroutine
152 {"cspco", 0}, // subroutine
153 {"cspdi", 0}, // subroutine
154 {"cspfa", 0}, // subroutine
155 {"cspsl", 0}, // subroutine
156 {"csvdc", 0}, // subroutine
157 {"ctrco", 0}, // subroutine
158 {"ctrdi", 0}, // subroutine
159 {"ctrsl", 0}, // subroutine
160 {"dchdc", 0}, // subroutine
161 {"dchdd", 0}, // subroutine
162 {"dchex", 0}, // subroutine
163 {"dchud", 0}, // subroutine
164 {"dgbco", 0}, // subroutine
165 {"dgbdi", 0}, // subroutine
166 {"dgbfa", 0}, // subroutine
167 {"dgbsl", 0}, // subroutine
168 {"dgeco", 0}, // subroutine
169 {"dgedi", 0}, // subroutine
170 {"dgefa", 0}, // subroutine
171 {"dgesl", 0}, // subroutine
172 {"dgtsl", 0}, // subroutine
173 {"dpbco", 0}, // subroutine
174 {"dpbdi", 0}, // subroutine
175 {"dpbfa", 0}, // subroutine
176 {"dpbsl", 0}, // subroutine
177 {"dpoco", 0}, // subroutine
178 {"dpodi", 0}, // subroutine
179 {"dpofa", 0}, // subroutine
180 {"dposl", 0}, // subroutine
181 {"dppco", 0}, // subroutine
182 {"dppdi", 0}, // subroutine
183 {"dppfa", 0}, // subroutine
184 {"dppsl", 0}, // subroutine
185 {"dptsl", 0}, // subroutine
186 {"dqrdc", 0}, // subroutine
187 {"dqrsl", 0}, // subroutine
188 {"dsico", 0}, // subroutine
189 {"dsidi", 0}, // subroutine
190 {"dsifa", 0}, // subroutine
191 {"dsisl", 0}, // subroutine
192 {"dspco", 0}, // subroutine
193 {"dspdi", 0}, // subroutine
194 {"dspfa", 0}, // subroutine
195 {"dspsl", 0}, // subroutine
196 {"dsvdc", 0}, // subroutine
197 {"dtrco", 0}, // subroutine
198 {"dtrdi", 0}, // subroutine
199 {"dtrsl", 0}, // subroutine
200 {"schdc", 0}, // subroutine
201 {"schdd", 0}, // subroutine
202 {"schex", 0}, // subroutine
203 {"schud", 0}, // subroutine
204 {"sgbco", 0}, // subroutine
205 {"sgbdi", 0}, // subroutine
206 {"sgbfa", 0}, // subroutine
207 {"sgbsl", 0}, // subroutine
208 {"sgeco", 0}, // subroutine
209 {"sgedi", 0}, // subroutine
210 {"sgefa", 0}, // subroutine
211 {"sgesl", 0}, // subroutine
212 {"sgtsl", 0}, // subroutine
213 {"spbco", 0}, // subroutine
214 {"spbdi", 0}, // subroutine
215 {"spbfa", 0}, // subroutine
216 {"spbsl", 0}, // subroutine
217 {"spoco", 0}, // subroutine
218 {"spodi", 0}, // subroutine
219 {"spofa", 0}, // subroutine
220 {"sposl", 0}, // subroutine
221 {"sppco", 0}, // subroutine
222 {"sppdi", 0}, // subroutine
223 {"sppfa", 0}, // subroutine
224 {"sppsl", 0}, // subroutine
225 {"sptsl", 0}, // subroutine
226 {"sqrdc", 0}, // subroutine
227 {"sqrsl", 0}, // subroutine
228 {"ssico", 0}, // subroutine
229 {"ssidi", 0}, // subroutine
230 {"ssifa", 0}, // subroutine
231 {"ssisl", 0}, // subroutine
232 {"sspco", 0}, // subroutine
233 {"sspdi", 0}, // subroutine
234 {"sspfa", 0}, // subroutine
235 {"sspsl", 0}, // subroutine
236 {"ssvdc", 0}, // subroutine
237 {"strco", 0}, // subroutine
238 {"strdi", 0}, // subroutine
239 {"strsl", 0}, // subroutine
240 {"zchdc", 0}, // subroutine
241 {"zchdd", 0}, // subroutine
242 {"zchex", 0}, // subroutine
243 {"zchud", 0}, // subroutine
244 {"zgbco", 0}, // subroutine
245 {"zgbdi", 0}, // subroutine
246 {"zgbfa", 0}, // subroutine
247 {"zgbsl", 0}, // subroutine
248 {"zgeco", 0}, // subroutine
249 {"zgedi", 0}, // subroutine
250 {"zgefa", 0}, // subroutine
251 {"zgesl", 0}, // subroutine
252 {"zgtsl", 0}, // subroutine
253 {"zhico", 0}, // subroutine
254 {"zhidi", 0}, // subroutine
255 {"zhifa", 0}, // subroutine
256 {"zhisl", 0}, // subroutine
257 {"zhpco", 0}, // subroutine
258 {"zhpdi", 0}, // subroutine
259 {"zhpfa", 0}, // subroutine
260 {"zhpsl", 0}, // subroutine
261 {"zmach", 0}, // real*8 function
262 {"zpbco", 0}, // subroutine
263 {"zpbdi", 0}, // subroutine
264 {"zpbfa", 0}, // subroutine
265 {"zpbsl", 0}, // subroutine
266 {"zpoco", 0}, // subroutine
267 {"zpodi", 0}, // subroutine
268 {"zpofa", 0}, // subroutine
269 {"zposl", 0}, // subroutine
270 {"zppco", 0}, // subroutine
271 {"zppdi", 0}, // subroutine
272 {"zppfa", 0}, // subroutine
273 {"zppsl", 0}, // subroutine
274 {"zptsl", 0}, // subroutine
275 {"zqrdc", 0}, // subroutine
276 {"zqrsl", 0}, // subroutine
277 {"zsico", 0}, // subroutine
278 {"zsidi", 0}, // subroutine
279 {"zsifa", 0}, // subroutine
280 {"zsisl", 0}, // subroutine
281 {"zspco", 0}, // subroutine
282 {"zspdi", 0}, // subroutine
283 {"zspfa", 0}, // subroutine
284 {"zspsl", 0}, // subroutine
285 {"zsvdc", 0}, // subroutine
286 {"ztrco", 0}, // subroutine
287 {"ztrdi", 0}, // subroutine
288 {"ztrsl", 0}, // subroutine
289 {NULL, 0}
290 };
292 job_, int_4 _p_ info_);
294 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_);
296 int_4 _p_ ldz_, int_4 _p_ nz_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ job_);
298 ldz_, int_4 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_);
300 , real_4 _p_ rcond_, complex_8 _p_ z_);
302 , complex_8 _p_ det_);
304 , int_4 _p_ info_);
306 , complex_8 _p_ b_, int_4 _p_ job_);
308 _p_ z_);
310 _p_ work_, int_4 _p_ job_);
313 job_);
315 info_);
317 _p_ z_);
319 inert_, complex_8 _p_ work_, int_4 _p_ job_);
324 _p_ work_, int_4 _p_ job_);
328 _p_ z_, int_4 _p_ info_);
333 info_);
343 jpvt_, complex_8 _p_ work_, int_4 _p_ job_);
345 _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_,
346 int_4 _p_ info_);
348 _p_ z_);
350 _p_ work_, int_4 _p_ job_);
355 int_4 _p_ job_);
359 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_
360 info_);
362 job_);
364 info_);
366 info_);
368 int_4 _p_ info_);
370 int_4 _p_ nz_, real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ info_);
372 _p_ ldz_, int_4 _p_ nz_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ job_);
374 int_4 _p_ nz_, real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_);
376 real_8 _p_ rcond_, real_8 _p_ z_);
378 real_8 _p_ det_);
380 int_4 _p_ info_);
382 real_8 _p_ b_, int_4 _p_ job_);
384 ;
386 , int_4 _p_ job_);
391 int_4 _p_ info_);
396 ;
406 real_8 _p_ work_, int_4 _p_ job_);
408 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_);
410 ;
412 , real_8 _p_ work_, int_4 _p_ job_);
417 work_, int_4 _p_ job_);
421 _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_);
426 int_4 _p_ info_);
428 int_4 _p_ nz_, real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ info_);
430 _p_ ldz_, int_4 _p_ nz_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ job_);
432 int_4 _p_ nz_, real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_);
434 real_4 _p_ rcond_, real_4 _p_ z_);
436 real_4 _p_ det_);
438 int_4 _p_ info_);
440 real_4 _p_ b_, int_4 _p_ job_);
442 ;
444 , int_4 _p_ job_);
449 int_4 _p_ info_);
454 ;
464 real_4 _p_ work_, int_4 _p_ job_);
466 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_);
468 ;
470 , real_4 _p_ work_, int_4 _p_ job_);
475 work_, int_4 _p_ job_);
479 _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_);
484 _p_ job_, int_4 _p_ info_);
486 _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_);
488 int_4 _p_ ldz_, int_4 _p_ nz_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ job_);
490 _p_ ldz_, int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_);
492 ipvt_, real_8 _p_ rcond_, complex_16 _p_ z_);
494 ipvt_, complex_16 _p_ det_);
496 ipvt_, int_4 _p_ info_);
498 ipvt_, complex_16 _p_ b_, int_4 _p_ job_);
500 _p_ z_);
502 complex_16 _p_ work_, int_4 _p_ job_);
505 job_);
507 _p_ info_);
509 _p_ z_);
511 inert_, complex_16 _p_ work_, int_4 _p_ job_);
516 complex_16 _p_ work_, int_4 _p_ job_);
521 _p_ z_, int_4 _p_ info_);
526 _p_ info_);
536 jpvt_, complex_16 _p_ work_, int_4 _p_ job_);
538 complex_16 _p_ y_, complex_16 _p_ qy_, complex_16 _p_ qty_, complex_16 _p_ b_, complex_16 _p_ rsd_, complex_16 _p_ xb_,
539 int_4 _p_ job_, int_4 _p_ info_);
541 _p_ z_);
543 complex_16 _p_ work_, int_4 _p_ job_);
548 int_4 _p_ job_);
552 _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_,
553 int_4 _p_ info_);
555 _p_ job_);
557 info_);
559 info_);
560 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_,
561 int_4 _p_ info_)
562 { // ** body not listed **
738 }
739 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
740 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ info_)
741 { // ** body not listed **
810 }
811 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_
812 ldz_, int_4 _p_ nz_, real_4 _p_ c_, complex_8 _p_ s_, int_4 _p_ job_)
813 { // ** body not listed **
931 }
932 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
933 _p_ nz_, complex_8 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, complex_8 _p_ s_)
934 { // ** body not listed **
974 }
975 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
976 _p_ rcond_, complex_8 _p_ z_)
977 { // ** body not listed **
1015 }
1016 s_ = ({complex_8 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1017 (zdum_1_));}) / ({complex_8 zdum_1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})
1018 ;
1019 (void) _csscal (n_, &s_, z_, &_k1);
1020 ek_ = CMPLXF (s_, 0.0) * ek_;
1021 _l30:;
1022 wk_ = ek_ - z_[k_ - 1];
1023 wkm_ = -ek_ - z_[k_ - 1];
1024 s_ = ({complex_8 zdum_1_ = wk_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1025 sm_ = ({complex_8 zdum_1_ = wkm_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1026 if (({complex_8 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1027 (zdum_1_));}) == 0.0e0) {
1028 goto _l40;
1029 }
1030 wk_ = wk_ / conjf (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
1031 wkm_ = wkm_ / conjf (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
1032 goto _l50;
1033 _l40:;
1034 wk_ = CMPLXF (1.0, 0.0);
1035 wkm_ = CMPLXF (1.0, 0.0);
1036 _l50:;
1037 kp1_ = k_ + 1;
1038 ju_ = _min (_max (ju_, (*mu_) + ipvt_[k_ - 1]), (*n_));
1039 mm_ = m_;
1040 if (kp1_ > ju_) {
1041 goto _l90;
1042 }
1043 for (j_ = kp1_; j_ <= ju_; (j_)++) {
1044 mm_ = mm_ - 1;
1045 sm_ = sm_ + ({complex_8 zdum_1_ = z_[j_ - 1] + wkm_ * conjf (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4)
1046 (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1047 z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
1048 s_ = s_ + ({complex_8 zdum_1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1049 }
1050 if (s_ >= sm_) {
1051 goto _l80;
1052 }
1053 t_ = wkm_ - wk_;
1054 wk_ = wkm_;
1055 mm_ = m_;
1056 for (j_ = kp1_; j_ <= ju_; (j_)++) {
1057 mm_ = mm_ - 1;
1058 z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
1059 }
1060 _l80:;
1061 _l90:;
1062 z_[k_ - 1] = wk_;
1063 }
1064 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1065 (void) _csscal (n_, &s_, z_, &_k1);
1066 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
1067 k_ = (*n_) + 1 - kb_;
1068 lm_ = _min ((*ml_), (*n_) - k_);
1069 if (k_ < (*n_)) {
1070 z_[k_ - 1] = z_[k_ - 1] + _cdotc (&lm_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
1071 }
1072 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= 1.0e0) {
1073 goto _l110;
1074 }
1075 s_ = 1.0e0 / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1076 (void) _csscal (n_, &s_, z_, &_k1);
1077 _l110:;
1078 l_ = ipvt_[k_ - 1];
1079 t_ = z_[l_ - 1];
1080 z_[l_ - 1] = z_[k_ - 1];
1081 z_[k_ - 1] = t_;
1082 }
1083 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1084 (void) _csscal (n_, &s_, z_, &_k1);
1085 ynorm_ = 1.0;
1086 for (k_ = 1; k_ <= (*n_); (k_)++) {
1087 l_ = ipvt_[k_ - 1];
1088 t_ = z_[l_ - 1];
1089 z_[l_ - 1] = z_[k_ - 1];
1090 z_[k_ - 1] = t_;
1091 lm_ = _min ((*ml_), (*n_) - k_);
1092 if (k_ < (*n_)) {
1093 (void) _caxpy (&lm_, &t_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
1094 }
1095 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= 1.0e0) {
1096 goto _l130;
1097 }
1098 s_ = 1.0e0 / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1099 (void) _csscal (n_, &s_, z_, &_k1);
1100 ynorm_ = s_ * ynorm_;
1101 _l130:;
1102 }
1103 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1104 (void) _csscal (n_, &s_, z_, &_k1);
1105 ynorm_ = s_ * ynorm_;
1106 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
1107 k_ = (*n_) + 1 - kb_;
1108 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
1109 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
1110 goto _l150;
1111 }
1112 s_ = ({complex_8 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1113 (zdum_1_));}) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1114 (void) _csscal (n_, &s_, z_, &_k1);
1115 ynorm_ = s_ * ynorm_;
1116 _l150:;
1117 if (({complex_8 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1118 (zdum_1_));}) != 0.0e0) {
1119 z_[k_ - 1] = z_[k_ - 1] / abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))];
1120 }
1121 if (({complex_8 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1122 (zdum_1_));}) == 0.0e0) {
1123 z_[k_ - 1] = CMPLXF (1.0, 0.0);
1124 }
1125 lm_ = _min (k_, m_) - 1;
1126 la_ = m_ - lm_;
1127 lz_ = k_ - lm_;
1128 t_ = -z_[k_ - 1];
1129 (void) _caxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lz_ - 1], &_k1);
1130 }
1131 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1132 (void) _csscal (n_, &s_, z_, &_k1);
1133 ynorm_ = s_ * ynorm_;
1134 if (anorm_ != 0.0e0) {
1135 (*rcond_) = ynorm_ / anorm_;
1136 }
1137 if (anorm_ == 0.0e0) {
1138 (*rcond_) = 0.0;
1139 }
1140 __calls[4].calls++;
1141 return 0;
1142 }
1143 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_,
1144 complex_8 _p_ det_)
1145 { // ** body not listed **
1164 }
1165 det_[0] = CMPLXF (ten_, 0.0) * det_[0];
1166 det_[1] = det_[1] - CMPLXF (1.0, 0.0);
1167 goto _l10;
1168 _l20:;
1169 _l30:;
1170 if (({complex_8 zdum_1_ = det_[0]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) < ten_) {
1171 goto _l40;
1172 }
1173 det_[0] = det_[0] / CMPLXF (ten_, 0.0);
1174 det_[1] = det_[1] + CMPLXF (1.0, 0.0);
1175 goto _l30;
1176 _l40:;
1177 }
1178 _l60:;
1179 __calls[5].calls++;
1180 return 0;
1181 }
1182 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
1183 _p_ info_)
1184 { // ** body not listed **
1261 }
1262 _l130:;
1263 ipvt_[(*n_) - 1] = (*n_);
1264 if (({complex_8 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * (((*n_) - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1265 (zdum_1_));}) == 0.0e0) {
1266 (*info_) = (*n_);
1267 }
1268 __calls[6].calls++;
1269 return 0;
1270 }
1271 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_,
1272 complex_8 _p_ b_, int_4 _p_ job_)
1273 { // ** body not listed **
1342 }
1343 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_)
1344 { // ** body not listed **
1370 }
1371 s_ = ({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1372 (zdum_1_));}) / ({complex_8 zdum_1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})
1373 ;
1374 (void) _csscal (n_, &s_, z_, &_k1);
1375 ek_ = CMPLXF (s_, 0.0) * ek_;
1376 _l30:;
1377 wk_ = ek_ - z_[k_ - 1];
1378 wkm_ = -ek_ - z_[k_ - 1];
1379 s_ = ({complex_8 zdum_1_ = wk_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1380 sm_ = ({complex_8 zdum_1_ = wkm_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1381 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1382 (zdum_1_));}) == 0.0e0) {
1383 goto _l40;
1384 }
1385 wk_ = wk_ / conjf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
1386 wkm_ = wkm_ / conjf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
1387 goto _l50;
1388 _l40:;
1389 wk_ = CMPLXF (1.0, 0.0);
1390 wkm_ = CMPLXF (1.0, 0.0);
1391 _l50:;
1392 kp1_ = k_ + 1;
1393 if (kp1_ > (*n_)) {
1394 goto _l90;
1395 }
1396 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
1397 sm_ = sm_ + ({complex_8 zdum_1_ = z_[j_ - 1] + wkm_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4)
1398 (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1399 z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
1400 s_ = s_ + ({complex_8 zdum_1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1401 }
1402 if (s_ >= sm_) {
1403 goto _l80;
1404 }
1405 t_ = wkm_ - wk_;
1406 wk_ = wkm_;
1407 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
1408 z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
1409 }
1410 _l80:;
1411 _l90:;
1412 z_[k_ - 1] = wk_;
1413 }
1414 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1415 (void) _csscal (n_, &s_, z_, &_k1);
1416 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
1417 k_ = (*n_) + 1 - kb_;
1418 if (k_ < (*n_)) {
1419 z_[k_ - 1] = z_[k_ - 1] + _cdotc (($0_ = (*n_) - k_, &$0_), &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1
1420 - 1], &_k1);
1421 }
1422 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= 1.0e0) {
1423 goto _l110;
1424 }
1425 s_ = 1.0e0 / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1426 (void) _csscal (n_, &s_, z_, &_k1);
1427 _l110:;
1428 l_ = ipvt_[k_ - 1];
1429 t_ = z_[l_ - 1];
1430 z_[l_ - 1] = z_[k_ - 1];
1431 z_[k_ - 1] = t_;
1432 }
1433 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1434 (void) _csscal (n_, &s_, z_, &_k1);
1435 ynorm_ = 1.0;
1436 for (k_ = 1; k_ <= (*n_); (k_)++) {
1437 l_ = ipvt_[k_ - 1];
1438 t_ = z_[l_ - 1];
1439 z_[l_ - 1] = z_[k_ - 1];
1440 z_[k_ - 1] = t_;
1441 if (k_ < (*n_)) {
1442 (void) _caxpy (($1_ = (*n_) - k_, &$1_), &t_, &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
1443 }
1444 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= 1.0e0) {
1445 goto _l130;
1446 }
1447 s_ = 1.0e0 / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1448 (void) _csscal (n_, &s_, z_, &_k1);
1449 ynorm_ = s_ * ynorm_;
1450 _l130:;
1451 }
1452 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1453 (void) _csscal (n_, &s_, z_, &_k1);
1454 ynorm_ = s_ * ynorm_;
1455 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
1456 k_ = (*n_) + 1 - kb_;
1457 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
1458 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
1459 goto _l150;
1460 }
1461 s_ = ({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1462 (zdum_1_));}) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1463 (void) _csscal (n_, &s_, z_, &_k1);
1464 ynorm_ = s_ * ynorm_;
1465 _l150:;
1466 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1467 (zdum_1_));}) != 0.0e0) {
1468 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
1469 }
1470 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1471 (zdum_1_));}) == 0.0e0) {
1472 z_[k_ - 1] = CMPLXF (1.0, 0.0);
1473 }
1474 t_ = -z_[k_ - 1];
1475 (void) _caxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
1476 }
1477 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1478 (void) _csscal (n_, &s_, z_, &_k1);
1479 ynorm_ = s_ * ynorm_;
1480 if (anorm_ != 0.0e0) {
1481 (*rcond_) = ynorm_ / anorm_;
1482 }
1483 if (anorm_ == 0.0e0) {
1484 (*rcond_) = 0.0;
1485 }
1486 __calls[8].calls++;
1487 return 0;
1488 }
1489 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_,
1490 int_4 _p_ job_)
1491 { // ** body not listed **
1513 }
1514 det_[0] = CMPLXF (ten_, 0.0) * det_[0];
1515 det_[1] = det_[1] - CMPLXF (1.0, 0.0);
1516 goto _l10;
1517 _l20:;
1518 _l30:;
1519 if (({complex_8 zdum_1_ = det_[0]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) < ten_) {
1520 goto _l40;
1521 }
1522 det_[0] = det_[0] / CMPLXF (ten_, 0.0);
1523 det_[1] = det_[1] + CMPLXF (1.0, 0.0);
1524 goto _l30;
1525 _l40:;
1526 }
1527 _l60:;
1528 _l70:;
1529 if (_imod ((*job_), 10) == 0) {
1530 goto _l150;
1531 }
1532 for (k_ = 1; k_ <= (*n_); (k_)++) {
1533 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
1534 t_ = -a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
1535 (void) _cscal (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
1536 kp1_ = k_ + 1;
1537 if ((*n_) < kp1_) {
1538 goto _l90;
1539 }
1540 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
1541 t_ = a_[k_ - 1 + ((*lda_)) * ((j_ - 1))];
1542 a_[k_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
1543 (void) _caxpy (&k_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
1544 }
1545 _l90:;
1546 }
1547 nm1_ = (*n_) - 1;
1548 if (nm1_ < 1) {
1549 goto _l140;
1550 }
1551 for (kb_ = 1; kb_ <= nm1_; (kb_)++) {
1552 k_ = (*n_) - kb_;
1553 kp1_ = k_ + 1;
1554 for (i_ = kp1_; i_ <= (*n_); (i_)++) {
1555 work_[i_ - 1] = a_[i_ - 1 + ((*lda_)) * ((k_ - 1))];
1556 a_[i_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLXF (0.0, 0.0);
1557 }
1558 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
1559 t_ = work_[j_ - 1];
1560 (void) _caxpy (n_, &t_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
1561 }
1562 l_ = ipvt_[k_ - 1];
1563 if (l_ != k_) {
1564 (void) _cswap (n_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((l_ - 1))], &_k1);
1565 }
1566 }
1567 _l140:;
1568 _l150:;
1569 __calls[9].calls++;
1570 return 0;
1571 }
1572 int_4 _cgefa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
1573 { // ** body not listed **
1615 }
1616 _l70:;
1617 ipvt_[(*n_) - 1] = (*n_);
1618 if (({complex_8 zdum_1_ = a_[(*n_) - 1 + ((*lda_)) * (((*n_) - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1619 (zdum_1_));}) == 0.0e0) {
1620 (*info_) = (*n_);
1621 }
1622 __calls[10].calls++;
1623 return 0;
1624 }
1625 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_)
1626 { // ** body not listed **
1682 }
1683 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_)
1684 { // ** body not listed **
1717 }
1718 (*info_) = k_;
1719 goto _l100;
1720 _l20:;
1721 t_ = -c_[kp1_ - 1] / c_[k_ - 1];
1722 c_[kp1_ - 1] = d_[kp1_ - 1] + t_ * d_[k_ - 1];
1723 d_[kp1_ - 1] = e_[kp1_ - 1] + t_ * e_[k_ - 1];
1724 e_[kp1_ - 1] = CMPLXF (0.0, 0.0);
1725 b_[kp1_ - 1] = b_[kp1_ - 1] + t_ * b_[k_ - 1];
1726 }
1727 _l40:;
1728 if (({complex_8 zdum_1_ = c_[(*n_) - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) != 0.0e0) {
1729 goto _l50;
1730 }
1731 (*info_) = (*n_);
1732 goto _l90;
1733 _l50:;
1734 nm2_ = (*n_) - 2;
1735 b_[(*n_) - 1] = b_[(*n_) - 1] / c_[(*n_) - 1];
1736 if ((*n_) == 1) {
1737 goto _l80;
1738 }
1739 b_[nm1_ - 1] = (b_[nm1_ - 1] - d_[nm1_ - 1] * b_[(*n_) - 1]) / c_[nm1_ - 1];
1740 if (nm2_ < 1) {
1741 goto _l70;
1742 }
1743 for (kb_ = 1; kb_ <= nm2_; (kb_)++) {
1744 k_ = nm2_ - kb_ + 1;
1745 b_[k_ - 1] = (b_[k_ - 1] - d_[k_ - 1] * b_[k_ + 1 - 1] - e_[k_ - 1] * b_[k_ + 2 - 1]) / c_[k_ - 1];
1746 }
1747 _l70:;
1748 _l80:;
1749 _l90:;
1750 _l100:;
1751 __calls[12].calls++;
1752 return 0;
1753 }
1754 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_)
1755 { // ** body not listed **
1805 }
1806 z_[k_ - 1] = z_[k_ - 1] + ek_;
1807 (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
1808 if (ks_ == 1) {
1809 goto _l80;
1810 }
1811 if (({complex_8 zdum_1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) != 0.0e0) {
1812 ek_ = ({complex_8 zdum_1_ = ek_; complex_8 zdum2_1_ = z_[k_ - 1 - 1]; ({complex_8 zdum_2_ = zdum_1_; _abs ((real_4)
1813 (crealf (zdum_2_))) + _abs (cimagf (zdum_2_));}) * (zdum2_1_ / ({complex_8 zdum_2_ = zdum2_1_; _abs ((real_4) (crealf
1814 (zdum_2_))) + _abs (cimagf (zdum_2_));}));});
1815 }
1816 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
1817 (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
1818 _l80:;
1819 if (ks_ == 2) {
1820 goto _l100;
1821 }
1822 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
1823 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
1824 goto _l90;
1825 }
1826 s_ = ({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1827 (zdum_1_));}) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1828 (void) _csscal (n_, &s_, z_, &_k1);
1829 ek_ = CMPLXF (s_, 0.0) * ek_;
1830 _l90:;
1831 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1832 (zdum_1_));}) != 0.0e0) {
1833 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
1834 }
1835 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1836 (zdum_1_));}) == 0.0e0) {
1837 z_[k_ - 1] = CMPLXF (1.0, 0.0);
1838 }
1839 goto _l110;
1840 _l100:;
1841 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
1842 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
1843 bk_ = z_[k_ - 1] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
1844 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
1845 denom_ = ak_ * akm1_ - 1.0e0;
1846 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
1847 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
1848 _l110:;
1849 k_ = k_ - ks_;
1850 goto _l60;
1851 _l120:;
1852 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1853 (void) _csscal (n_, &s_, z_, &_k1);
1854 k_ = 1;
1855 _l130:;
1856 if (k_ > (*n_)) {
1857 goto _l160;
1858 }
1859 ks_ = 1;
1860 if (kpvt_[k_ - 1] < 0) {
1861 ks_ = 2;
1862 }
1863 if (k_ == 1) {
1864 goto _l150;
1865 }
1866 z_[k_ - 1] = z_[k_ - 1] + _cdotc (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
1867 if (ks_ == 2) {
1868 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0],
1869 &_k1);
1870 }
1871 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
1872 if (kp_ == k_) {
1873 goto _l140;
1874 }
1875 t_ = z_[k_ - 1];
1876 z_[k_ - 1] = z_[kp_ - 1];
1877 z_[kp_ - 1] = t_;
1878 _l140:;
1879 _l150:;
1880 k_ = k_ + ks_;
1881 goto _l130;
1882 _l160:;
1883 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1884 (void) _csscal (n_, &s_, z_, &_k1);
1885 ynorm_ = 1.0;
1886 k_ = (*n_);
1887 _l170:;
1888 if (k_ == 0) {
1889 goto _l230;
1890 }
1891 ks_ = 1;
1892 if (kpvt_[k_ - 1] < 0) {
1893 ks_ = 2;
1894 }
1895 if (k_ == ks_) {
1896 goto _l190;
1897 }
1898 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
1899 kps_ = k_ + 1 - ks_;
1900 if (kp_ == kps_) {
1901 goto _l180;
1902 }
1903 t_ = z_[kps_ - 1];
1904 z_[kps_ - 1] = z_[kp_ - 1];
1905 z_[kp_ - 1] = t_;
1906 _l180:;
1907 (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
1908 if (ks_ == 2) {
1909 (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
1910 }
1911 _l190:;
1912 if (ks_ == 2) {
1913 goto _l210;
1914 }
1915 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
1916 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
1917 goto _l200;
1918 }
1919 s_ = ({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1920 (zdum_1_));}) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
1921 (void) _csscal (n_, &s_, z_, &_k1);
1922 ynorm_ = s_ * ynorm_;
1923 _l200:;
1924 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1925 (zdum_1_));}) != 0.0e0) {
1926 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
1927 }
1928 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
1929 (zdum_1_));}) == 0.0e0) {
1930 z_[k_ - 1] = CMPLXF (1.0, 0.0);
1931 }
1932 goto _l220;
1933 _l210:;
1934 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
1935 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
1936 bk_ = z_[k_ - 1] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
1937 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
1938 denom_ = ak_ * akm1_ - 1.0e0;
1939 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
1940 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
1941 _l220:;
1942 k_ = k_ - ks_;
1943 goto _l170;
1944 _l230:;
1945 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1946 (void) _csscal (n_, &s_, z_, &_k1);
1947 ynorm_ = s_ * ynorm_;
1948 k_ = 1;
1949 _l240:;
1950 if (k_ > (*n_)) {
1951 goto _l270;
1952 }
1953 ks_ = 1;
1954 if (kpvt_[k_ - 1] < 0) {
1955 ks_ = 2;
1956 }
1957 if (k_ == 1) {
1958 goto _l260;
1959 }
1960 z_[k_ - 1] = z_[k_ - 1] + _cdotc (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
1961 if (ks_ == 2) {
1962 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0],
1963 &_k1);
1964 }
1965 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
1966 if (kp_ == k_) {
1967 goto _l250;
1968 }
1969 t_ = z_[k_ - 1];
1970 z_[k_ - 1] = z_[kp_ - 1];
1971 z_[kp_ - 1] = t_;
1972 _l250:;
1973 _l260:;
1974 k_ = k_ + ks_;
1975 goto _l240;
1976 _l270:;
1977 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
1978 (void) _csscal (n_, &s_, z_, &_k1);
1979 ynorm_ = s_ * ynorm_;
1980 if (anorm_ != 0.0e0) {
1981 (*rcond_) = ynorm_ / anorm_;
1982 }
1983 if (anorm_ == 0.0e0) {
1984 (*rcond_) = 0.0;
1985 }
1986 __calls[13].calls++;
1987 return 0;
1988 }
1989 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_,
1990 complex_8 _p_ work_, int_4 _p_ job_)
1991 { // ** body not listed **
2160 }
2161 int_4 _chifa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
2162 { // ** body not listed **
2183 }
2184 goto _l200;
2185 _l20:;
2186 km1_ = k_ - 1;
2187 absakk_ = ({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
2188 (zdum_1_));});
2189 imax_ = _icamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
2190 colmax_ = ({complex_8 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs
2191 (cimagf (zdum_1_));});
2192 if (absakk_ < alpha_ * colmax_) {
2193 goto _l30;
2194 }
2195 kstep_ = 1;
2196 swap_ = FALSE;
2197 goto _l90;
2198 _l30:;
2199 rowmax_ = 0.0;
2200 imaxp1_ = imax_ + 1;
2201 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
2202 rowmax_ = _max (rowmax_, ({complex_8 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs ((real_4) (crealf
2203 (zdum_1_))) + _abs (cimagf (zdum_1_));}));
2204 }
2205 if (imax_ == 1) {
2206 goto _l50;
2207 }
2208 jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
2209 rowmax_ = _max (rowmax_, ({complex_8 zdum_1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf
2210 (zdum_1_))) + _abs (cimagf (zdum_1_));}));
2211 _l50:;
2212 if (({complex_8 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
2213 (zdum_1_));}) < alpha_ * rowmax_) {
2214 goto _l60;
2215 }
2216 kstep_ = 1;
2217 swap_ = TRUE;
2218 goto _l80;
2219 _l60:;
2220 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
2221 goto _l70;
2222 }
2223 kstep_ = 1;
2224 swap_ = FALSE;
2225 goto _l80;
2226 _l70:;
2227 kstep_ = 2;
2228 swap_ = imax_ != km1_;
2229 _l80:;
2230 _l90:;
2231 if (_max (absakk_, colmax_) != 0.0e0) {
2232 goto _l100;
2233 }
2234 kpvt_[k_ - 1] = k_;
2235 (*info_) = k_;
2236 goto _l190;
2237 _l100:;
2238 if (kstep_ == 2) {
2239 goto _l140;
2240 }
2241 if (! (swap_)) {
2242 goto _l120;
2243 }
2244 (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
2245 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
2246 j_ = k_ + imax_ - jj_;
2247 t_ = conjf (a_[j_ - 1 + ((*lda_)) * ((k_ - 1))]);
2248 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = conjf (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
2249 a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
2250 }
2251 _l120:;
2252 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
2253 j_ = k_ - jj_;
2254 mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
2255 t_ = conjf (mulk_);
2256 (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
2257 a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLXF ((real_4) (crealf (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))])), 0.0);
2258 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
2259 }
2260 kpvt_[k_ - 1] = k_;
2261 if (swap_) {
2262 kpvt_[k_ - 1] = imax_;
2263 }
2264 goto _l190;
2265 _l140:;
2266 if (! (swap_)) {
2267 goto _l160;
2268 }
2269 (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
2270 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
2271 j_ = km1_ + imax_ - jj_;
2272 t_ = conjf (a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))]);
2273 a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = conjf (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
2274 a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
2275 }
2276 t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
2277 a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
2278 a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
2279 _l160:;
2280 km2_ = k_ - 2;
2281 if (km2_ == 0) {
2282 goto _l180;
2283 }
2284 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
2285 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
2286 denom_ = 1.0e0 - ak_ * akm1_;
2287 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
2288 j_ = km1_ - jj_;
2289 bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
2290 bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conjf (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
2291 mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
2292 mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
2293 t_ = conjf (mulk_);
2294 (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
2295 t_ = conjf (mulkm1_);
2296 (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
2297 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
2298 a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
2299 a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLXF ((real_4) (crealf (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))])), 0.0);
2300 }
2301 _l180:;
2302 kpvt_[k_ - 1] = 1 - k_;
2303 if (swap_) {
2304 kpvt_[k_ - 1] = -imax_;
2305 }
2306 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
2307 _l190:;
2308 k_ = k_ - kstep_;
2309 goto _l10;
2310 _l200:;
2311 __calls[15].calls++;
2312 return 0;
2313 }
2314 int_4 _chisl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
2315 { // ** body not listed **
2415 }
2416 int_4 _chpco (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
2417 { // ** body not listed **
2474 }
2475 z_[k_ - 1] = z_[k_ - 1] + ek_;
2476 (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
2477 if (ks_ == 1) {
2478 goto _l80;
2479 }
2480 if (({complex_8 zdum_1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) != 0.0e0) {
2481 ek_ = ({complex_8 zdum_1_ = ek_; complex_8 zdum2_1_ = z_[k_ - 1 - 1]; ({complex_8 zdum_2_ = zdum_1_; _abs ((real_4)
2482 (crealf (zdum_2_))) + _abs (cimagf (zdum_2_));}) * (zdum2_1_ / ({complex_8 zdum_2_ = zdum2_1_; _abs ((real_4) (crealf
2483 (zdum_2_))) + _abs (cimagf (zdum_2_));}));});
2484 }
2485 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
2486 (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
2487 _l80:;
2488 if (ks_ == 2) {
2489 goto _l100;
2490 }
2491 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
2492 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
2493 goto _l90;
2494 }
2495 s_ = ({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) / ({complex_8
2496 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
2497 (void) _csscal (n_, &s_, z_, &_k1);
2498 ek_ = CMPLXF (s_, 0.0) * ek_;
2499 _l90:;
2500 if (({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) != 0.0e0) {
2501 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
2502 }
2503 if (({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
2504 z_[k_ - 1] = CMPLXF (1.0, 0.0);
2505 }
2506 goto _l110;
2507 _l100:;
2508 km1k_ = ik_ + k_ - 1;
2509 km1km1_ = ikm1_ + k_ - 1;
2510 ak_ = ap_[kk_ - 1] / conjf (ap_[km1k_ - 1]);
2511 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
2512 bk_ = z_[k_ - 1] / conjf (ap_[km1k_ - 1]);
2513 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
2514 denom_ = ak_ * akm1_ - 1.0e0;
2515 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
2516 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
2517 _l110:;
2518 k_ = k_ - ks_;
2519 ik_ = ik_ - k_;
2520 if (ks_ == 2) {
2521 ik_ = ik_ - (k_ + 1);
2522 }
2523 goto _l60;
2524 _l120:;
2525 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
2526 (void) _csscal (n_, &s_, z_, &_k1);
2527 k_ = 1;
2528 ik_ = 0;
2529 _l130:;
2530 if (k_ > (*n_)) {
2531 goto _l160;
2532 }
2533 ks_ = 1;
2534 if (kpvt_[k_ - 1] < 0) {
2535 ks_ = 2;
2536 }
2537 if (k_ == 1) {
2538 goto _l150;
2539 }
2540 z_[k_ - 1] = z_[k_ - 1] + _cdotc (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
2541 ikp1_ = ik_ + k_;
2542 if (ks_ == 2) {
2543 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
2544 }
2545 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
2546 if (kp_ == k_) {
2547 goto _l140;
2548 }
2549 t_ = z_[k_ - 1];
2550 z_[k_ - 1] = z_[kp_ - 1];
2551 z_[kp_ - 1] = t_;
2552 _l140:;
2553 _l150:;
2554 ik_ = ik_ + k_;
2555 if (ks_ == 2) {
2556 ik_ = ik_ + (k_ + 1);
2557 }
2558 k_ = k_ + ks_;
2559 goto _l130;
2560 _l160:;
2561 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
2562 (void) _csscal (n_, &s_, z_, &_k1);
2563 ynorm_ = 1.0;
2564 k_ = (*n_);
2565 ik_ = (*n_) * ((*n_) - 1) / 2;
2566 _l170:;
2567 if (k_ == 0) {
2568 goto _l230;
2569 }
2570 kk_ = ik_ + k_;
2571 ikm1_ = ik_ - (k_ - 1);
2572 ks_ = 1;
2573 if (kpvt_[k_ - 1] < 0) {
2574 ks_ = 2;
2575 }
2576 if (k_ == ks_) {
2577 goto _l190;
2578 }
2579 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
2580 kps_ = k_ + 1 - ks_;
2581 if (kp_ == kps_) {
2582 goto _l180;
2583 }
2584 t_ = z_[kps_ - 1];
2585 z_[kps_ - 1] = z_[kp_ - 1];
2586 z_[kp_ - 1] = t_;
2587 _l180:;
2588 (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
2589 if (ks_ == 2) {
2590 (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
2591 }
2592 _l190:;
2593 if (ks_ == 2) {
2594 goto _l210;
2595 }
2596 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
2597 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
2598 goto _l200;
2599 }
2600 s_ = ({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) / ({complex_8
2601 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
2602 (void) _csscal (n_, &s_, z_, &_k1);
2603 ynorm_ = s_ * ynorm_;
2604 _l200:;
2605 if (({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) != 0.0e0) {
2606 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
2607 }
2608 if (({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
2609 z_[k_ - 1] = CMPLXF (1.0, 0.0);
2610 }
2611 goto _l220;
2612 _l210:;
2613 km1k_ = ik_ + k_ - 1;
2614 km1km1_ = ikm1_ + k_ - 1;
2615 ak_ = ap_[kk_ - 1] / conjf (ap_[km1k_ - 1]);
2616 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
2617 bk_ = z_[k_ - 1] / conjf (ap_[km1k_ - 1]);
2618 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
2619 denom_ = ak_ * akm1_ - 1.0e0;
2620 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
2621 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
2622 _l220:;
2623 k_ = k_ - ks_;
2624 ik_ = ik_ - k_;
2625 if (ks_ == 2) {
2626 ik_ = ik_ - (k_ + 1);
2627 }
2628 goto _l170;
2629 _l230:;
2630 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
2631 (void) _csscal (n_, &s_, z_, &_k1);
2632 ynorm_ = s_ * ynorm_;
2633 k_ = 1;
2634 ik_ = 0;
2635 _l240:;
2636 if (k_ > (*n_)) {
2637 goto _l270;
2638 }
2639 ks_ = 1;
2640 if (kpvt_[k_ - 1] < 0) {
2641 ks_ = 2;
2642 }
2643 if (k_ == 1) {
2644 goto _l260;
2645 }
2646 z_[k_ - 1] = z_[k_ - 1] + _cdotc (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
2647 ikp1_ = ik_ + k_;
2648 if (ks_ == 2) {
2649 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotc (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
2650 }
2651 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
2652 if (kp_ == k_) {
2653 goto _l250;
2654 }
2655 t_ = z_[k_ - 1];
2656 z_[k_ - 1] = z_[kp_ - 1];
2657 z_[kp_ - 1] = t_;
2658 _l250:;
2659 _l260:;
2660 ik_ = ik_ + k_;
2661 if (ks_ == 2) {
2662 ik_ = ik_ + (k_ + 1);
2663 }
2664 k_ = k_ + ks_;
2665 goto _l240;
2666 _l270:;
2667 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
2668 (void) _csscal (n_, &s_, z_, &_k1);
2669 ynorm_ = s_ * ynorm_;
2670 if (anorm_ != 0.0e0) {
2671 (*rcond_) = ynorm_ / anorm_;
2672 }
2673 if (anorm_ == 0.0e0) {
2674 (*rcond_) = 0.0;
2675 }
2676 __calls[17].calls++;
2677 return 0;
2678 }
2679 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_,
2680 int_4 _p_ job_)
2681 { // ** body not listed **
2871 }
2872 int_4 _chpfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
2873 { // ** body not listed **
2895 }
2896 goto _l200;
2897 _l20:;
2898 km1_ = k_ - 1;
2899 kk_ = ik_ + k_;
2900 absakk_ = ({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
2901 imax_ = _icamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
2902 imk_ = ik_ + imax_;
2903 colmax_ = ({complex_8 zdum_1_ = ap_[imk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
2904 if (absakk_ < alpha_ * colmax_) {
2905 goto _l30;
2906 }
2907 kstep_ = 1;
2908 swap_ = FALSE;
2909 goto _l90;
2910 _l30:;
2911 rowmax_ = 0.0;
2912 imaxp1_ = imax_ + 1;
2913 im_ = imax_ * (imax_ - 1) / 2;
2914 imj_ = im_ + 2 * imax_;
2915 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
2916 rowmax_ = _max (rowmax_, ({complex_8 zdum_1_ = ap_[imj_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
2917 (zdum_1_));}));
2918 imj_ = imj_ + j_;
2919 }
2920 if (imax_ == 1) {
2921 goto _l50;
2922 }
2923 jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
2924 jmim_ = jmax_ + im_;
2925 rowmax_ = _max (rowmax_, ({complex_8 zdum_1_ = ap_[jmim_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
2926 (zdum_1_));}));
2927 _l50:;
2928 imim_ = imax_ + im_;
2929 if (({complex_8 zdum_1_ = ap_[imim_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) < alpha_ *
2930 rowmax_) {
2931 goto _l60;
2932 }
2933 kstep_ = 1;
2934 swap_ = TRUE;
2935 goto _l80;
2936 _l60:;
2937 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
2938 goto _l70;
2939 }
2940 kstep_ = 1;
2941 swap_ = FALSE;
2942 goto _l80;
2943 _l70:;
2944 kstep_ = 2;
2945 swap_ = imax_ != km1_;
2946 _l80:;
2947 _l90:;
2948 if (_max (absakk_, colmax_) != 0.0e0) {
2949 goto _l100;
2950 }
2951 kpvt_[k_ - 1] = k_;
2952 (*info_) = k_;
2953 goto _l190;
2954 _l100:;
2955 if (kstep_ == 2) {
2956 goto _l140;
2957 }
2958 if (! (swap_)) {
2959 goto _l120;
2960 }
2961 (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
2962 imj_ = ik_ + imax_;
2963 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
2964 j_ = k_ + imax_ - jj_;
2965 jk_ = ik_ + j_;
2966 t_ = conjf (ap_[jk_ - 1]);
2967 ap_[jk_ - 1] = conjf (ap_[imj_ - 1]);
2968 ap_[imj_ - 1] = t_;
2969 imj_ = imj_ - (j_ - 1);
2970 }
2971 _l120:;
2972 ij_ = ik_ - (k_ - 1);
2973 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
2974 j_ = k_ - jj_;
2975 jk_ = ik_ + j_;
2976 mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
2977 t_ = conjf (mulk_);
2978 (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
2979 ijj_ = ij_ + j_;
2980 ap_[ijj_ - 1] = CMPLXF ((real_4) (crealf (ap_[ijj_ - 1])), 0.0);
2981 ap_[jk_ - 1] = mulk_;
2982 ij_ = ij_ - (j_ - 1);
2983 }
2984 kpvt_[k_ - 1] = k_;
2985 if (swap_) {
2986 kpvt_[k_ - 1] = imax_;
2987 }
2988 goto _l190;
2989 _l140:;
2990 km1k_ = ik_ + k_ - 1;
2991 ikm1_ = ik_ - (k_ - 1);
2992 if (! (swap_)) {
2993 goto _l160;
2994 }
2995 (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
2996 imj_ = ikm1_ + imax_;
2997 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
2998 j_ = km1_ + imax_ - jj_;
2999 jkm1_ = ikm1_ + j_;
3000 t_ = conjf (ap_[jkm1_ - 1]);
3001 ap_[jkm1_ - 1] = conjf (ap_[imj_ - 1]);
3002 ap_[imj_ - 1] = t_;
3003 imj_ = imj_ - (j_ - 1);
3004 }
3005 t_ = ap_[km1k_ - 1];
3006 ap_[km1k_ - 1] = ap_[imk_ - 1];
3007 ap_[imk_ - 1] = t_;
3008 _l160:;
3009 km2_ = k_ - 2;
3010 if (km2_ == 0) {
3011 goto _l180;
3012 }
3013 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
3014 km1km1_ = ikm1_ + k_ - 1;
3015 akm1_ = ap_[km1km1_ - 1] / conjf (ap_[km1k_ - 1]);
3016 denom_ = 1.0e0 - ak_ * akm1_;
3017 ij_ = ik_ - (k_ - 1) - (k_ - 2);
3018 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
3019 j_ = km1_ - jj_;
3020 jk_ = ik_ + j_;
3021 bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
3022 jkm1_ = ikm1_ + j_;
3023 bkm1_ = ap_[jkm1_ - 1] / conjf (ap_[km1k_ - 1]);
3024 mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
3025 mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
3026 t_ = conjf (mulk_);
3027 (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
3028 t_ = conjf (mulkm1_);
3029 (void) _caxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
3030 ap_[jk_ - 1] = mulk_;
3031 ap_[jkm1_ - 1] = mulkm1_;
3032 ijj_ = ij_ + j_;
3033 ap_[ijj_ - 1] = CMPLXF ((real_4) (crealf (ap_[ijj_ - 1])), 0.0);
3034 ij_ = ij_ - (j_ - 1);
3035 }
3036 _l180:;
3037 kpvt_[k_ - 1] = 1 - k_;
3038 if (swap_) {
3039 kpvt_[k_ - 1] = -imax_;
3040 }
3041 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
3042 _l190:;
3043 ik_ = ik_ - (k_ - 1);
3044 if (kstep_ == 2) {
3045 ik_ = ik_ - (k_ - 2);
3046 }
3047 k_ = k_ - kstep_;
3048 goto _l10;
3049 _l200:;
3050 __calls[19].calls++;
3051 return 0;
3052 }
3053 int_4 _chpsl (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
3054 { // ** body not listed **
3165 }
3166 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_,
3167 int_4 _p_ info_)
3168 { // ** body not listed **
3210 }
3211 s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum_1_ = ek_ - z_[k_ - 1]; _abs
3212 ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3213 (void) _csscal (n_, &s_, z_, &_k1);
3214 ek_ = CMPLXF (s_, 0.0) * ek_;
3215 _l60:;
3216 wk_ = ek_ - z_[k_ - 1];
3217 wkm_ = -ek_ - z_[k_ - 1];
3218 s_ = ({complex_8 zdum_1_ = wk_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3219 sm_ = ({complex_8 zdum_1_ = wkm_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3220 wk_ = wk_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
3221 wkm_ = wkm_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
3222 kp1_ = k_ + 1;
3223 j2_ = _min (k_ + (*m_), (*n_));
3224 i_ = (*m_) + 1;
3225 if (kp1_ > j2_) {
3226 goto _l100;
3227 }
3228 for (j_ = kp1_; j_ <= j2_; (j_)++) {
3229 i_ = i_ - 1;
3230 sm_ = sm_ + ({complex_8 zdum_1_ = z_[j_ - 1] + wkm_ * conjf (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4)
3231 (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3232 z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
3233 s_ = s_ + ({complex_8 zdum_1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3234 }
3235 if (s_ >= sm_) {
3236 goto _l90;
3237 }
3238 t_ = wkm_ - wk_;
3239 wk_ = wkm_;
3240 i_ = (*m_) + 1;
3241 for (j_ = kp1_; j_ <= j2_; (j_)++) {
3242 i_ = i_ - 1;
3243 z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
3244 }
3245 _l90:;
3246 _l100:;
3247 z_[k_ - 1] = wk_;
3248 }
3249 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3250 (void) _csscal (n_, &s_, z_, &_k1);
3251 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
3252 k_ = (*n_) + 1 - kb_;
3253 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= (real_4)
3254 (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]))) {
3255 goto _l120;
3256 }
3257 s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs
3258 ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3259 (void) _csscal (n_, &s_, z_, &_k1);
3260 _l120:;
3261 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
3262 lm_ = _min (k_ - 1, (*m_));
3263 la_ = (*m_) + 1 - lm_;
3264 lb_ = k_ - lm_;
3265 t_ = -z_[k_ - 1];
3266 (void) _caxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
3267 }
3268 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3269 (void) _csscal (n_, &s_, z_, &_k1);
3270 ynorm_ = 1.0;
3271 for (k_ = 1; k_ <= (*n_); (k_)++) {
3272 lm_ = _min (k_ - 1, (*m_));
3273 la_ = (*m_) + 1 - lm_;
3274 lb_ = k_ - lm_;
3275 z_[k_ - 1] = z_[k_ - 1] - _cdotc (&lm_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
3276 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= (real_4)
3277 (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]))) {
3278 goto _l140;
3279 }
3280 s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs
3281 ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3282 (void) _csscal (n_, &s_, z_, &_k1);
3283 ynorm_ = s_ * ynorm_;
3284 _l140:;
3285 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
3286 }
3287 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3288 (void) _csscal (n_, &s_, z_, &_k1);
3289 ynorm_ = s_ * ynorm_;
3290 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
3291 k_ = (*n_) + 1 - kb_;
3292 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= (real_4)
3293 (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]))) {
3294 goto _l160;
3295 }
3296 s_ = (real_4) (crealf (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs
3297 ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3298 (void) _csscal (n_, &s_, z_, &_k1);
3299 ynorm_ = s_ * ynorm_;
3300 _l160:;
3301 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
3302 lm_ = _min (k_ - 1, (*m_));
3303 la_ = (*m_) + 1 - lm_;
3304 lb_ = k_ - lm_;
3305 t_ = -z_[k_ - 1];
3306 (void) _caxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
3307 }
3308 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3309 (void) _csscal (n_, &s_, z_, &_k1);
3310 ynorm_ = s_ * ynorm_;
3311 if (anorm_ != 0.0e0) {
3312 (*rcond_) = ynorm_ / anorm_;
3313 }
3314 if (anorm_ == 0.0e0) {
3315 (*rcond_) = 0.0;
3316 }
3317 _l180:;
3318 __calls[21].calls++;
3319 return 0;
3320 }
3321 int_4 _cpbdi (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ det_)
3322 { // ** body not listed **
3354 }
3355 int_4 _cpbfa (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
3356 { // ** body not listed **
3391 }
3392 int_4 _cpbsl (complex_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, complex_8 _p_ b_)
3393 { // ** body not listed **
3415 }
3416 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_)
3417 { // ** body not listed **
3457 }
3458 s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum_1_ = ek_ - z_[k_ - 1]; _abs ((real_4)
3459 (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3460 (void) _csscal (n_, &s_, z_, &_k1);
3461 ek_ = CMPLXF (s_, 0.0) * ek_;
3462 _l60:;
3463 wk_ = ek_ - z_[k_ - 1];
3464 wkm_ = -ek_ - z_[k_ - 1];
3465 s_ = ({complex_8 zdum_1_ = wk_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3466 sm_ = ({complex_8 zdum_1_ = wkm_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3467 wk_ = wk_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
3468 wkm_ = wkm_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
3469 kp1_ = k_ + 1;
3470 if (kp1_ > (*n_)) {
3471 goto _l100;
3472 }
3473 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
3474 sm_ = sm_ + ({complex_8 zdum_1_ = z_[j_ - 1] + wkm_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs ((real_4)
3475 (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3476 z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
3477 s_ = s_ + ({complex_8 zdum_1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3478 }
3479 if (s_ >= sm_) {
3480 goto _l90;
3481 }
3482 t_ = wkm_ - wk_;
3483 wk_ = wkm_;
3484 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
3485 z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
3486 }
3487 _l90:;
3488 _l100:;
3489 z_[k_ - 1] = wk_;
3490 }
3491 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3492 (void) _csscal (n_, &s_, z_, &_k1);
3493 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
3494 k_ = (*n_) + 1 - kb_;
3495 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= (real_4)
3496 (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]))) {
3497 goto _l120;
3498 }
3499 s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf
3500 (zdum_1_))) + _abs (cimagf (zdum_1_));});
3501 (void) _csscal (n_, &s_, z_, &_k1);
3502 _l120:;
3503 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
3504 t_ = -z_[k_ - 1];
3505 (void) _caxpy (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
3506 }
3507 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3508 (void) _csscal (n_, &s_, z_, &_k1);
3509 ynorm_ = 1.0;
3510 for (k_ = 1; k_ <= (*n_); (k_)++) {
3511 z_[k_ - 1] = z_[k_ - 1] - _cdotc (($1_ = k_ - 1, &$1_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
3512 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= (real_4)
3513 (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]))) {
3514 goto _l140;
3515 }
3516 s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf
3517 (zdum_1_))) + _abs (cimagf (zdum_1_));});
3518 (void) _csscal (n_, &s_, z_, &_k1);
3519 ynorm_ = s_ * ynorm_;
3520 _l140:;
3521 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
3522 }
3523 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3524 (void) _csscal (n_, &s_, z_, &_k1);
3525 ynorm_ = s_ * ynorm_;
3526 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
3527 k_ = (*n_) + 1 - kb_;
3528 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= (real_4)
3529 (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]))) {
3530 goto _l160;
3531 }
3532 s_ = (real_4) (crealf (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))])) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf
3533 (zdum_1_))) + _abs (cimagf (zdum_1_));});
3534 (void) _csscal (n_, &s_, z_, &_k1);
3535 ynorm_ = s_ * ynorm_;
3536 _l160:;
3537 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
3538 t_ = -z_[k_ - 1];
3539 (void) _caxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
3540 }
3541 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3542 (void) _csscal (n_, &s_, z_, &_k1);
3543 ynorm_ = s_ * ynorm_;
3544 if (anorm_ != 0.0e0) {
3545 (*rcond_) = ynorm_ / anorm_;
3546 }
3547 if (anorm_ == 0.0e0) {
3548 (*rcond_) = 0.0;
3549 }
3550 _l180:;
3551 __calls[25].calls++;
3552 return 0;
3553 }
3554 int_4 _cpodi (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
3555 { // ** body not listed **
3625 }
3626 int_4 _cpofa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
3627 { // ** body not listed **
3658 }
3659 int_4 _cposl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ b_)
3660 { // ** body not listed **
3677 }
3678 int_4 _cppco (complex_8 _p_ ap_, int_4 _p_ n_, real_4 _p_ rcond_, complex_8 _p_ z_, int_4 _p_ info_)
3679 { // ** body not listed **
3725 }
3726 s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum_1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) +
3727 _abs (cimagf (zdum_1_));});
3728 (void) _csscal (n_, &s_, z_, &_k1);
3729 ek_ = CMPLXF (s_, 0.0) * ek_;
3730 _l60:;
3731 wk_ = ek_ - z_[k_ - 1];
3732 wkm_ = -ek_ - z_[k_ - 1];
3733 s_ = ({complex_8 zdum_1_ = wk_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3734 sm_ = ({complex_8 zdum_1_ = wkm_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3735 wk_ = wk_ / ap_[kk_ - 1];
3736 wkm_ = wkm_ / ap_[kk_ - 1];
3737 kp1_ = k_ + 1;
3738 kj_ = kk_ + k_;
3739 if (kp1_ > (*n_)) {
3740 goto _l100;
3741 }
3742 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
3743 sm_ = sm_ + ({complex_8 zdum_1_ = z_[j_ - 1] + wkm_ * conjf (ap_[kj_ - 1]); _abs ((real_4) (crealf (zdum_1_))) + _abs
3744 (cimagf (zdum_1_));});
3745 z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (ap_[kj_ - 1]);
3746 s_ = s_ + ({complex_8 zdum_1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
3747 kj_ = kj_ + j_;
3748 }
3749 if (s_ >= sm_) {
3750 goto _l90;
3751 }
3752 t_ = wkm_ - wk_;
3753 wk_ = wkm_;
3754 kj_ = kk_ + k_;
3755 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
3756 z_[j_ - 1] = z_[j_ - 1] + t_ * conjf (ap_[kj_ - 1]);
3757 kj_ = kj_ + j_;
3758 }
3759 _l90:;
3760 _l100:;
3761 z_[k_ - 1] = wk_;
3762 }
3763 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3764 (void) _csscal (n_, &s_, z_, &_k1);
3765 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
3766 k_ = (*n_) + 1 - kb_;
3767 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= (real_4)
3768 (crealf (ap_[kk_ - 1]))) {
3769 goto _l120;
3770 }
3771 s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs
3772 (cimagf (zdum_1_));});
3773 (void) _csscal (n_, &s_, z_, &_k1);
3774 _l120:;
3775 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
3776 kk_ = kk_ - k_;
3777 t_ = -z_[k_ - 1];
3778 (void) _caxpy (($0_ = k_ - 1, &$0_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
3779 }
3780 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3781 (void) _csscal (n_, &s_, z_, &_k1);
3782 ynorm_ = 1.0;
3783 for (k_ = 1; k_ <= (*n_); (k_)++) {
3784 z_[k_ - 1] = z_[k_ - 1] - _cdotc (($1_ = k_ - 1, &$1_), &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
3785 kk_ = kk_ + k_;
3786 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= (real_4)
3787 (crealf (ap_[kk_ - 1]))) {
3788 goto _l140;
3789 }
3790 s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs
3791 (cimagf (zdum_1_));});
3792 (void) _csscal (n_, &s_, z_, &_k1);
3793 ynorm_ = s_ * ynorm_;
3794 _l140:;
3795 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
3796 }
3797 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3798 (void) _csscal (n_, &s_, z_, &_k1);
3799 ynorm_ = s_ * ynorm_;
3800 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
3801 k_ = (*n_) + 1 - kb_;
3802 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= (real_4)
3803 (crealf (ap_[kk_ - 1]))) {
3804 goto _l160;
3805 }
3806 s_ = (real_4) (crealf (ap_[kk_ - 1])) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs
3807 (cimagf (zdum_1_));});
3808 (void) _csscal (n_, &s_, z_, &_k1);
3809 ynorm_ = s_ * ynorm_;
3810 _l160:;
3811 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
3812 kk_ = kk_ - k_;
3813 t_ = -z_[k_ - 1];
3814 (void) _caxpy (($2_ = k_ - 1, &$2_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
3815 }
3816 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
3817 (void) _csscal (n_, &s_, z_, &_k1);
3818 ynorm_ = s_ * ynorm_;
3819 if (anorm_ != 0.0e0) {
3820 (*rcond_) = ynorm_ / anorm_;
3821 }
3822 if (anorm_ == 0.0e0) {
3823 (*rcond_) = 0.0;
3824 }
3825 _l180:;
3826 __calls[29].calls++;
3827 return 0;
3828 }
3829 int_4 _cppdi (complex_8 _p_ ap_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
3830 { // ** body not listed **
3916 }
3917 int_4 _cppfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
3918 { // ** body not listed **
3954 }
3955 int_4 _cppsl (complex_8 _p_ ap_, int_4 _p_ n_, complex_8 _p_ b_)
3956 { // ** body not listed **
3976 }
3977 int_4 _cptsl (int_4 _p_ n_, complex_8 _p_ d_, complex_8 _p_ e_, complex_8 _p_ b_)
3978 { // ** body not listed **
4030 }
4031 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_,
4032 complex_8 _p_ work_, int_4 _p_ job_)
4033 { // ** body not listed **
4131 }
4132 (void) _cscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = CMPLXF (1.0, 0.0) / nrmxl_, &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ -
4133 1))], &_k1);
4134 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
4135 lp1_ = l_ + 1;
4136 if ((*p_) < lp1_) {
4137 goto _l170;
4138 }
4139 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
4140 t_ = -_cdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ -
4141 1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
4142 (void) _caxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) *
4143 ((j_ - 1))], &_k1);
4144 if (j_ < pl_ || j_ > pu_) {
4145 goto _l150;
4146 }
4147 if (({complex_8 zdum_1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
4148 goto _l150;
4149 }
4150 tt_ = 1.0e0 - ($5_ = (cabsf (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]) / (real_4) (crealf (qraux_[j_ - 1]))), $5_ * $5_);
4151 tt_ = _max (tt_, 0.0);
4152 t_ = CMPLXF (tt_, 0.0);
4153 tt_ = 1.0e0 + 0.05e0 * tt_ * ($6_ = ((real_4) (crealf (qraux_[j_ - 1])) / (real_4) (crealf (work_[j_ - 1]))), $6_ *
4154 $6_);
4155 if (tt_ == 1.0e0) {
4156 goto _l130;
4157 }
4158 qraux_[j_ - 1] = qraux_[j_ - 1] * csqrtf (t_);
4159 goto _l140;
4160 _l130:;
4161 qraux_[j_ - 1] = CMPLXF (_scnrm2 (($7_ = (*n_) - l_, &$7_), &x_[l_ + 1 - 1 + ((*ldx_)) * ((j_ - 1))], &_k1), 0.0);
4162 work_[j_ - 1] = qraux_[j_ - 1];
4163 _l140:;
4164 _l150:;
4165 }
4166 _l170:;
4167 qraux_[l_ - 1] = x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
4168 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = -nrmxl_;
4169 _l180:;
4170 _l190:;
4171 }
4172 __calls[34].calls++;
4173 return 0;
4174 }
4175 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_,
4176 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
4177 _p_ info_)
4178 { // ** body not listed **
4209 }
4210 (*info_) = 1;
4211 goto _l20;
4212 _l10:;
4213 b_[0] = y_[0] / x_[0 + ((*ldx_)) * ((0))];
4214 _l20:;
4215 _l30:;
4216 if (cr_) {
4217 rsd_[0] = CMPLXF (0.0, 0.0);
4218 }
4219 goto _l250;
4220 _l40:;
4221 if (cqy_) {
4222 (void) _ccopy (n_, y_, &_k1, qy_, &_k1);
4223 }
4224 if (cqty_) {
4225 (void) _ccopy (n_, y_, &_k1, qty_, &_k1);
4226 }
4227 if (! (cqy_)) {
4228 goto _l70;
4229 }
4230 for (jj_ = 1; jj_ <= ju_; (jj_)++) {
4231 j_ = ju_ - jj_ + 1;
4232 if (({complex_8 zdum_1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
4233 goto _l50;
4234 }
4235 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
4236 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
4237 t_ = -_cdotc (($0_ = (*n_) - j_ + 1, &$0_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1) / x_[j_ - 1
4238 + ((*ldx_)) * ((j_ - 1))];
4239 (void) _caxpy (($1_ = (*n_) - j_ + 1, &$1_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1);
4240 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
4241 _l50:;
4242 }
4243 _l70:;
4244 if (! (cqty_)) {
4245 goto _l100;
4246 }
4247 for (j_ = 1; j_ <= ju_; (j_)++) {
4248 if (({complex_8 zdum_1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
4249 goto _l80;
4250 }
4251 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
4252 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
4253 t_ = -_cdotc (($2_ = (*n_) - j_ + 1, &$2_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1) / x_[j_ -
4254 1 + ((*ldx_)) * ((j_ - 1))];
4255 (void) _caxpy (($3_ = (*n_) - j_ + 1, &$3_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1);
4256 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
4257 _l80:;
4258 }
4259 _l100:;
4260 if (cb_) {
4261 (void) _ccopy (k_, qty_, &_k1, b_, &_k1);
4262 }
4263 kp1_ = (*k_) + 1;
4264 if (cxb_) {
4265 (void) _ccopy (k_, qty_, &_k1, xb_, &_k1);
4266 }
4267 if (cr_ && (*k_) < (*n_)) {
4268 (void) _ccopy (($4_ = (*n_) - (*k_), &$4_), &qty_[kp1_ - 1], &_k1, &rsd_[kp1_ - 1], &_k1);
4269 }
4270 if (! (cxb_) || kp1_ > (*n_)) {
4271 goto _l120;
4272 }
4273 for (i_ = kp1_; i_ <= (*n_); (i_)++) {
4274 xb_[i_ - 1] = CMPLXF (0.0, 0.0);
4275 }
4276 _l120:;
4277 if (! (cr_)) {
4278 goto _l140;
4279 }
4280 for (i_ = 1; i_ <= (*k_); (i_)++) {
4281 rsd_[i_ - 1] = CMPLXF (0.0, 0.0);
4282 }
4283 _l140:;
4284 if (! (cb_)) {
4285 goto _l190;
4286 }
4287 for (jj_ = 1; jj_ <= (*k_); (jj_)++) {
4288 j_ = (*k_) - jj_ + 1;
4289 if (({complex_8 zdum_1_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
4290 (zdum_1_));}) != 0.0e0) {
4291 goto _l150;
4292 }
4293 (*info_) = j_;
4294 goto _l180;
4295 _l150:;
4296 b_[j_ - 1] = b_[j_ - 1] / x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
4297 if (j_ == 1) {
4298 goto _l160;
4299 }
4300 t_ = -b_[j_ - 1];
4301 (void) _caxpy (($5_ = j_ - 1, &$5_), &t_, &x_[0 + ((*ldx_)) * ((j_ - 1))], &_k1, b_, &_k1);
4302 _l160:;
4303 }
4304 _l180:;
4305 _l190:;
4306 if (! (cr_) && ! (cxb_)) {
4307 goto _l240;
4308 }
4309 for (jj_ = 1; jj_ <= ju_; (jj_)++) {
4310 j_ = ju_ - jj_ + 1;
4311 if (({complex_8 zdum_1_ = qraux_[j_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
4312 goto _l220;
4313 }
4314 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
4315 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
4316 if (! (cr_)) {
4317 goto _l200;
4318 }
4319 t_ = -_cdotc (($6_ = (*n_) - j_ + 1, &$6_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1) / x_[j_ -
4320 1 + ((*ldx_)) * ((j_ - 1))];
4321 (void) _caxpy (($7_ = (*n_) - j_ + 1, &$7_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1);
4322 _l200:;
4323 if (! (cxb_)) {
4324 goto _l210;
4325 }
4326 t_ = -_cdotc (($8_ = (*n_) - j_ + 1, &$8_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1) / x_[j_ - 1
4327 + ((*ldx_)) * ((j_ - 1))];
4328 (void) _caxpy (($9_ = (*n_) - j_ + 1, &$9_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1);
4329 _l210:;
4330 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
4331 _l220:;
4332 }
4333 _l240:;
4334 _l250:;
4335 __calls[35].calls++;
4336 return 0;
4337 }
4338 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_)
4339 { // ** body not listed **
4389 }
4390 z_[k_ - 1] = z_[k_ - 1] + ek_;
4391 (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
4392 if (ks_ == 1) {
4393 goto _l80;
4394 }
4395 if (({complex_8 zdum_1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) != 0.0e0) {
4396 ek_ = ({complex_8 zdum_1_ = ek_; complex_8 zdum2_1_ = z_[k_ - 1 - 1]; ({complex_8 zdum_2_ = zdum_1_; _abs ((real_4)
4397 (crealf (zdum_2_))) + _abs (cimagf (zdum_2_));}) * (zdum2_1_ / ({complex_8 zdum_2_ = zdum2_1_; _abs ((real_4) (crealf
4398 (zdum_2_))) + _abs (cimagf (zdum_2_));}));});
4399 }
4400 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
4401 (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
4402 _l80:;
4403 if (ks_ == 2) {
4404 goto _l100;
4405 }
4406 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
4407 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
4408 goto _l90;
4409 }
4410 s_ = ({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
4411 (zdum_1_));}) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
4412 (void) _csscal (n_, &s_, z_, &_k1);
4413 ek_ = CMPLXF (s_, 0.0) * ek_;
4414 _l90:;
4415 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
4416 (zdum_1_));}) != 0.0e0) {
4417 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
4418 }
4419 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
4420 (zdum_1_));}) == 0.0e0) {
4421 z_[k_ - 1] = CMPLXF (1.0, 0.0);
4422 }
4423 goto _l110;
4424 _l100:;
4425 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4426 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4427 bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4428 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4429 denom_ = ak_ * akm1_ - 1.0e0;
4430 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
4431 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
4432 _l110:;
4433 k_ = k_ - ks_;
4434 goto _l60;
4435 _l120:;
4436 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
4437 (void) _csscal (n_, &s_, z_, &_k1);
4438 k_ = 1;
4439 _l130:;
4440 if (k_ > (*n_)) {
4441 goto _l160;
4442 }
4443 ks_ = 1;
4444 if (kpvt_[k_ - 1] < 0) {
4445 ks_ = 2;
4446 }
4447 if (k_ == 1) {
4448 goto _l150;
4449 }
4450 z_[k_ - 1] = z_[k_ - 1] + _cdotu (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
4451 if (ks_ == 2) {
4452 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0],
4453 &_k1);
4454 }
4455 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
4456 if (kp_ == k_) {
4457 goto _l140;
4458 }
4459 t_ = z_[k_ - 1];
4460 z_[k_ - 1] = z_[kp_ - 1];
4461 z_[kp_ - 1] = t_;
4462 _l140:;
4463 _l150:;
4464 k_ = k_ + ks_;
4465 goto _l130;
4466 _l160:;
4467 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
4468 (void) _csscal (n_, &s_, z_, &_k1);
4469 ynorm_ = 1.0;
4470 k_ = (*n_);
4471 _l170:;
4472 if (k_ == 0) {
4473 goto _l230;
4474 }
4475 ks_ = 1;
4476 if (kpvt_[k_ - 1] < 0) {
4477 ks_ = 2;
4478 }
4479 if (k_ == ks_) {
4480 goto _l190;
4481 }
4482 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
4483 kps_ = k_ + 1 - ks_;
4484 if (kp_ == kps_) {
4485 goto _l180;
4486 }
4487 t_ = z_[kps_ - 1];
4488 z_[kps_ - 1] = z_[kp_ - 1];
4489 z_[kp_ - 1] = t_;
4490 _l180:;
4491 (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
4492 if (ks_ == 2) {
4493 (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
4494 }
4495 _l190:;
4496 if (ks_ == 2) {
4497 goto _l210;
4498 }
4499 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
4500 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
4501 goto _l200;
4502 }
4503 s_ = ({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
4504 (zdum_1_));}) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
4505 (void) _csscal (n_, &s_, z_, &_k1);
4506 ynorm_ = s_ * ynorm_;
4507 _l200:;
4508 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
4509 (zdum_1_));}) != 0.0e0) {
4510 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
4511 }
4512 if (({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
4513 (zdum_1_));}) == 0.0e0) {
4514 z_[k_ - 1] = CMPLXF (1.0, 0.0);
4515 }
4516 goto _l220;
4517 _l210:;
4518 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4519 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4520 bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4521 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4522 denom_ = ak_ * akm1_ - 1.0e0;
4523 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
4524 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
4525 _l220:;
4526 k_ = k_ - ks_;
4527 goto _l170;
4528 _l230:;
4529 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
4530 (void) _csscal (n_, &s_, z_, &_k1);
4531 ynorm_ = s_ * ynorm_;
4532 k_ = 1;
4533 _l240:;
4534 if (k_ > (*n_)) {
4535 goto _l270;
4536 }
4537 ks_ = 1;
4538 if (kpvt_[k_ - 1] < 0) {
4539 ks_ = 2;
4540 }
4541 if (k_ == 1) {
4542 goto _l260;
4543 }
4544 z_[k_ - 1] = z_[k_ - 1] + _cdotu (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
4545 if (ks_ == 2) {
4546 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0],
4547 &_k1);
4548 }
4549 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
4550 if (kp_ == k_) {
4551 goto _l250;
4552 }
4553 t_ = z_[k_ - 1];
4554 z_[k_ - 1] = z_[kp_ - 1];
4555 z_[kp_ - 1] = t_;
4556 _l250:;
4557 _l260:;
4558 k_ = k_ + ks_;
4559 goto _l240;
4560 _l270:;
4561 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
4562 (void) _csscal (n_, &s_, z_, &_k1);
4563 ynorm_ = s_ * ynorm_;
4564 if (anorm_ != 0.0e0) {
4565 (*rcond_) = ynorm_ / anorm_;
4566 }
4567 if (anorm_ == 0.0e0) {
4568 (*rcond_) = 0.0;
4569 }
4570 __calls[36].calls++;
4571 return 0;
4572 }
4573 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_,
4574 int_4 _p_ job_)
4575 { // ** body not listed **
4610 }
4611 _l40:;
4612 if (({complex_8 zdum_1_ = det_[0]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) >= 1.0e0) {
4613 goto _l50;
4614 }
4615 det_[0] = CMPLXF (ten_, 0.0) * det_[0];
4616 det_[1] = det_[1] - CMPLXF (1.0, 0.0);
4617 goto _l40;
4618 _l50:;
4619 _l60:;
4620 if (({complex_8 zdum_1_ = det_[0]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) < ten_) {
4621 goto _l70;
4622 }
4623 det_[0] = det_[0] / CMPLXF (ten_, 0.0);
4624 det_[1] = det_[1] + CMPLXF (1.0, 0.0);
4625 goto _l60;
4626 _l70:;
4627 _l80:;
4628 }
4629 _l100:;
4630 if (noinv_) {
4631 goto _l230;
4632 }
4633 k_ = 1;
4634 _l110:;
4635 if (k_ > (*n_)) {
4636 goto _l220;
4637 }
4638 km1_ = k_ - 1;
4639 if (kpvt_[k_ - 1] < 0) {
4640 goto _l140;
4641 }
4642 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
4643 if (km1_ < 1) {
4644 goto _l130;
4645 }
4646 (void) _ccopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
4647 for (j_ = 1; j_ <= km1_; (j_)++) {
4648 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _cdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
4649 (void) _caxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ -
4650 1))], &_k1);
4651 }
4652 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _cdotu (&km1_, work_, &_k1, &a_[0 +
4653 ((*lda_)) * ((k_ - 1))], &_k1);
4654 _l130:;
4655 kstep_ = 1;
4656 goto _l180;
4657 _l140:;
4658 t_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
4659 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / t_;
4660 akp1_ = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
4661 akkp1_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
4662 d_ = t_ * (ak_ * akp1_ - CMPLXF (1.0, 0.0));
4663 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = akp1_ / d_;
4664 a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = ak_ / d_;
4665 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = -akkp1_ / d_;
4666 if (km1_ < 1) {
4667 goto _l170;
4668 }
4669 (void) _ccopy (&km1_, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, work_, &_k1);
4670 for (j_ = 1; j_ <= km1_; (j_)++) {
4671 a_[j_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = _cdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
4672 (void) _caxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ +
4673 1 - 1))], &_k1);
4674 }
4675 a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _cdotu (&km1_, work_, &_k1,
4676 &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
4677 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _cdotu (&km1_, &a_[0 + ((*lda_)) *
4678 ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
4679 (void) _ccopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
4680 for (j_ = 1; j_ <= km1_; (j_)++) {
4681 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _cdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
4682 (void) _caxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ -
4683 1))], &_k1);
4684 }
4685 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _cdotu (&km1_, work_, &_k1, &a_[0 +
4686 ((*lda_)) * ((k_ - 1))], &_k1);
4687 _l170:;
4688 kstep_ = 2;
4689 _l180:;
4690 ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
4691 if (ks_ == k_) {
4692 goto _l210;
4693 }
4694 (void) _cswap (&ks_, &a_[0 + ((*lda_)) * ((ks_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
4695 for (jb_ = ks_; jb_ <= k_; (jb_)++) {
4696 j_ = k_ + ks_ - jb_;
4697 temp_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
4698 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))];
4699 a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))] = temp_;
4700 }
4701 if (kstep_ == 1) {
4702 goto _l200;
4703 }
4704 temp_ = a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
4705 a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
4706 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = temp_;
4707 _l200:;
4708 _l210:;
4709 k_ = k_ + kstep_;
4710 goto _l110;
4711 _l220:;
4712 _l230:;
4713 __calls[37].calls++;
4714 return 0;
4715 }
4716 int_4 _csifa (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
4717 { // ** body not listed **
4738 }
4739 goto _l200;
4740 _l20:;
4741 km1_ = k_ - 1;
4742 absakk_ = ({complex_8 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
4743 (zdum_1_));});
4744 imax_ = _icamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
4745 colmax_ = ({complex_8 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs
4746 (cimagf (zdum_1_));});
4747 if (absakk_ < alpha_ * colmax_) {
4748 goto _l30;
4749 }
4750 kstep_ = 1;
4751 swap_ = FALSE;
4752 goto _l90;
4753 _l30:;
4754 rowmax_ = 0.0;
4755 imaxp1_ = imax_ + 1;
4756 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
4757 rowmax_ = _max (rowmax_, ({complex_8 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs ((real_4) (crealf
4758 (zdum_1_))) + _abs (cimagf (zdum_1_));}));
4759 }
4760 if (imax_ == 1) {
4761 goto _l50;
4762 }
4763 jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
4764 rowmax_ = _max (rowmax_, ({complex_8 zdum_1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf
4765 (zdum_1_))) + _abs (cimagf (zdum_1_));}));
4766 _l50:;
4767 if (({complex_8 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
4768 (zdum_1_));}) < alpha_ * rowmax_) {
4769 goto _l60;
4770 }
4771 kstep_ = 1;
4772 swap_ = TRUE;
4773 goto _l80;
4774 _l60:;
4775 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
4776 goto _l70;
4777 }
4778 kstep_ = 1;
4779 swap_ = FALSE;
4780 goto _l80;
4781 _l70:;
4782 kstep_ = 2;
4783 swap_ = imax_ != km1_;
4784 _l80:;
4785 _l90:;
4786 if (_max (absakk_, colmax_) != 0.0e0) {
4787 goto _l100;
4788 }
4789 kpvt_[k_ - 1] = k_;
4790 (*info_) = k_;
4791 goto _l190;
4792 _l100:;
4793 if (kstep_ == 2) {
4794 goto _l140;
4795 }
4796 if (! (swap_)) {
4797 goto _l120;
4798 }
4799 (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
4800 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
4801 j_ = k_ + imax_ - jj_;
4802 t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
4803 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
4804 a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
4805 }
4806 _l120:;
4807 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
4808 j_ = k_ - jj_;
4809 mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
4810 t_ = mulk_;
4811 (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
4812 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
4813 }
4814 kpvt_[k_ - 1] = k_;
4815 if (swap_) {
4816 kpvt_[k_ - 1] = imax_;
4817 }
4818 goto _l190;
4819 _l140:;
4820 if (! (swap_)) {
4821 goto _l160;
4822 }
4823 (void) _cswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
4824 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
4825 j_ = km1_ + imax_ - jj_;
4826 t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))];
4827 a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
4828 a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
4829 }
4830 t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4831 a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
4832 a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
4833 _l160:;
4834 km2_ = k_ - 2;
4835 if (km2_ == 0) {
4836 goto _l180;
4837 }
4838 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4839 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4840 denom_ = 1.0e0 - ak_ * akm1_;
4841 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
4842 j_ = km1_ - jj_;
4843 bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4844 bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
4845 mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
4846 mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
4847 t_ = mulk_;
4848 (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
4849 t_ = mulkm1_;
4850 (void) _caxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
4851 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
4852 a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
4853 }
4854 _l180:;
4855 kpvt_[k_ - 1] = 1 - k_;
4856 if (swap_) {
4857 kpvt_[k_ - 1] = -imax_;
4858 }
4859 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
4860 _l190:;
4861 k_ = k_ - kstep_;
4862 goto _l10;
4863 _l200:;
4864 __calls[38].calls++;
4865 return 0;
4866 }
4867 int_4 _csisl (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
4868 { // ** body not listed **
4968 }
4969 int_4 _cspco (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, complex_8 _p_ z_)
4970 { // ** body not listed **
5027 }
5028 z_[k_ - 1] = z_[k_ - 1] + ek_;
5029 (void) _caxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
5030 if (ks_ == 1) {
5031 goto _l80;
5032 }
5033 if (({complex_8 zdum_1_ = z_[k_ - 1 - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) != 0.0e0) {
5034 ek_ = ({complex_8 zdum_1_ = ek_; complex_8 zdum2_1_ = z_[k_ - 1 - 1]; ({complex_8 zdum_2_ = zdum_1_; _abs ((real_4)
5035 (crealf (zdum_2_))) + _abs (cimagf (zdum_2_));}) * (zdum2_1_ / ({complex_8 zdum_2_ = zdum2_1_; _abs ((real_4) (crealf
5036 (zdum_2_))) + _abs (cimagf (zdum_2_));}));});
5037 }
5038 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
5039 (void) _caxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
5040 _l80:;
5041 if (ks_ == 2) {
5042 goto _l100;
5043 }
5044 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
5045 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
5046 goto _l90;
5047 }
5048 s_ = ({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) / ({complex_8
5049 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
5050 (void) _csscal (n_, &s_, z_, &_k1);
5051 ek_ = CMPLXF (s_, 0.0) * ek_;
5052 _l90:;
5053 if (({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) != 0.0e0) {
5054 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
5055 }
5056 if (({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
5057 z_[k_ - 1] = CMPLXF (1.0, 0.0);
5058 }
5059 goto _l110;
5060 _l100:;
5061 km1k_ = ik_ + k_ - 1;
5062 km1km1_ = ikm1_ + k_ - 1;
5063 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
5064 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
5065 bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
5066 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
5067 denom_ = ak_ * akm1_ - 1.0e0;
5068 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
5069 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
5070 _l110:;
5071 k_ = k_ - ks_;
5072 ik_ = ik_ - k_;
5073 if (ks_ == 2) {
5074 ik_ = ik_ - (k_ + 1);
5075 }
5076 goto _l60;
5077 _l120:;
5078 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
5079 (void) _csscal (n_, &s_, z_, &_k1);
5080 k_ = 1;
5081 ik_ = 0;
5082 _l130:;
5083 if (k_ > (*n_)) {
5084 goto _l160;
5085 }
5086 ks_ = 1;
5087 if (kpvt_[k_ - 1] < 0) {
5088 ks_ = 2;
5089 }
5090 if (k_ == 1) {
5091 goto _l150;
5092 }
5093 z_[k_ - 1] = z_[k_ - 1] + _cdotu (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
5094 ikp1_ = ik_ + k_;
5095 if (ks_ == 2) {
5096 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
5097 }
5098 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
5099 if (kp_ == k_) {
5100 goto _l140;
5101 }
5102 t_ = z_[k_ - 1];
5103 z_[k_ - 1] = z_[kp_ - 1];
5104 z_[kp_ - 1] = t_;
5105 _l140:;
5106 _l150:;
5107 ik_ = ik_ + k_;
5108 if (ks_ == 2) {
5109 ik_ = ik_ + (k_ + 1);
5110 }
5111 k_ = k_ + ks_;
5112 goto _l130;
5113 _l160:;
5114 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
5115 (void) _csscal (n_, &s_, z_, &_k1);
5116 ynorm_ = 1.0;
5117 k_ = (*n_);
5118 ik_ = (*n_) * ((*n_) - 1) / 2;
5119 _l170:;
5120 if (k_ == 0) {
5121 goto _l230;
5122 }
5123 kk_ = ik_ + k_;
5124 ikm1_ = ik_ - (k_ - 1);
5125 ks_ = 1;
5126 if (kpvt_[k_ - 1] < 0) {
5127 ks_ = 2;
5128 }
5129 if (k_ == ks_) {
5130 goto _l190;
5131 }
5132 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
5133 kps_ = k_ + 1 - ks_;
5134 if (kp_ == kps_) {
5135 goto _l180;
5136 }
5137 t_ = z_[kps_ - 1];
5138 z_[kps_ - 1] = z_[kp_ - 1];
5139 z_[kp_ - 1] = t_;
5140 _l180:;
5141 (void) _caxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
5142 if (ks_ == 2) {
5143 (void) _caxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
5144 }
5145 _l190:;
5146 if (ks_ == 2) {
5147 goto _l210;
5148 }
5149 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
5150 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
5151 goto _l200;
5152 }
5153 s_ = ({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) / ({complex_8
5154 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
5155 (void) _csscal (n_, &s_, z_, &_k1);
5156 ynorm_ = s_ * ynorm_;
5157 _l200:;
5158 if (({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) != 0.0e0) {
5159 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
5160 }
5161 if (({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
5162 z_[k_ - 1] = CMPLXF (1.0, 0.0);
5163 }
5164 goto _l220;
5165 _l210:;
5166 km1k_ = ik_ + k_ - 1;
5167 km1km1_ = ikm1_ + k_ - 1;
5168 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
5169 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
5170 bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
5171 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
5172 denom_ = ak_ * akm1_ - 1.0e0;
5173 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
5174 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
5175 _l220:;
5176 k_ = k_ - ks_;
5177 ik_ = ik_ - k_;
5178 if (ks_ == 2) {
5179 ik_ = ik_ - (k_ + 1);
5180 }
5181 goto _l170;
5182 _l230:;
5183 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
5184 (void) _csscal (n_, &s_, z_, &_k1);
5185 ynorm_ = s_ * ynorm_;
5186 k_ = 1;
5187 ik_ = 0;
5188 _l240:;
5189 if (k_ > (*n_)) {
5190 goto _l270;
5191 }
5192 ks_ = 1;
5193 if (kpvt_[k_ - 1] < 0) {
5194 ks_ = 2;
5195 }
5196 if (k_ == 1) {
5197 goto _l260;
5198 }
5199 z_[k_ - 1] = z_[k_ - 1] + _cdotu (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
5200 ikp1_ = ik_ + k_;
5201 if (ks_ == 2) {
5202 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _cdotu (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
5203 }
5204 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
5205 if (kp_ == k_) {
5206 goto _l250;
5207 }
5208 t_ = z_[k_ - 1];
5209 z_[k_ - 1] = z_[kp_ - 1];
5210 z_[kp_ - 1] = t_;
5211 _l250:;
5212 _l260:;
5213 ik_ = ik_ + k_;
5214 if (ks_ == 2) {
5215 ik_ = ik_ + (k_ + 1);
5216 }
5217 k_ = k_ + ks_;
5218 goto _l240;
5219 _l270:;
5220 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
5221 (void) _csscal (n_, &s_, z_, &_k1);
5222 ynorm_ = s_ * ynorm_;
5223 if (anorm_ != 0.0e0) {
5224 (*rcond_) = ynorm_ / anorm_;
5225 }
5226 if (anorm_ == 0.0e0) {
5227 (*rcond_) = 0.0;
5228 }
5229 __calls[40].calls++;
5230 return 0;
5231 }
5232 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_
5233 )
5234 { // ** body not listed **
5276 }
5277 _l40:;
5278 if (({complex_8 zdum_1_ = det_[0]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) >= 1.0e0) {
5279 goto _l50;
5280 }
5281 det_[0] = CMPLXF (ten_, 0.0) * det_[0];
5282 det_[1] = det_[1] - CMPLXF (1.0, 0.0);
5283 goto _l40;
5284 _l50:;
5285 _l60:;
5286 if (({complex_8 zdum_1_ = det_[0]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) < ten_) {
5287 goto _l70;
5288 }
5289 det_[0] = det_[0] / CMPLXF (ten_, 0.0);
5290 det_[1] = det_[1] + CMPLXF (1.0, 0.0);
5291 goto _l60;
5292 _l70:;
5293 _l80:;
5294 _l90:;
5295 ik_ = ik_ + k_;
5296 }
5297 _l110:;
5298 if (noinv_) {
5299 goto _l240;
5300 }
5301 k_ = 1;
5302 ik_ = 0;
5303 _l120:;
5304 if (k_ > (*n_)) {
5305 goto _l230;
5306 }
5307 km1_ = k_ - 1;
5308 kk_ = ik_ + k_;
5309 ikp1_ = ik_ + k_;
5310 if (kpvt_[k_ - 1] < 0) {
5311 goto _l150;
5312 }
5313 ap_[kk_ - 1] = CMPLXF (1.0, 0.0) / ap_[kk_ - 1];
5314 if (km1_ < 1) {
5315 goto _l140;
5316 }
5317 (void) _ccopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
5318 ij_ = 0;
5319 for (j_ = 1; j_ <= km1_; (j_)++) {
5320 jk_ = ik_ + j_;
5321 ap_[jk_ - 1] = _cdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
5322 (void) _caxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
5323 ij_ = ij_ + j_;
5324 }
5325 ap_[kk_ - 1] = ap_[kk_ - 1] + _cdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
5326 _l140:;
5327 kstep_ = 1;
5328 goto _l190;
5329 _l150:;
5330 kkp1_ = ikp1_ + k_;
5331 t_ = ap_[kkp1_ - 1];
5332 ak_ = ap_[kk_ - 1] / t_;
5333 akp1_ = ap_[kkp1_ + 1 - 1] / t_;
5334 akkp1_ = ap_[kkp1_ - 1] / t_;
5335 d_ = t_ * (ak_ * akp1_ - CMPLXF (1.0, 0.0));
5336 ap_[kk_ - 1] = akp1_ / d_;
5337 ap_[kkp1_ + 1 - 1] = ak_ / d_;
5338 ap_[kkp1_ - 1] = -akkp1_ / d_;
5339 if (km1_ < 1) {
5340 goto _l180;
5341 }
5342 (void) _ccopy (&km1_, &ap_[ikp1_ + 1 - 1], &_k1, work_, &_k1);
5343 ij_ = 0;
5344 for (j_ = 1; j_ <= km1_; (j_)++) {
5345 jkp1_ = ikp1_ + j_;
5346 ap_[jkp1_ - 1] = _cdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
5347 (void) _caxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
5348 ij_ = ij_ + j_;
5349 }
5350 ap_[kkp1_ + 1 - 1] = ap_[kkp1_ + 1 - 1] + _cdotu (&km1_, work_, &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
5351 ap_[kkp1_ - 1] = ap_[kkp1_ - 1] + _cdotu (&km1_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
5352 (void) _ccopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
5353 ij_ = 0;
5354 for (j_ = 1; j_ <= km1_; (j_)++) {
5355 jk_ = ik_ + j_;
5356 ap_[jk_ - 1] = _cdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
5357 (void) _caxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
5358 ij_ = ij_ + j_;
5359 }
5360 ap_[kk_ - 1] = ap_[kk_ - 1] + _cdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
5361 _l180:;
5362 kstep_ = 2;
5363 _l190:;
5364 ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
5365 if (ks_ == k_) {
5366 goto _l220;
5367 }
5368 iks_ = (ks_ * (ks_ - 1)) / 2;
5369 (void) _cswap (&ks_, &ap_[iks_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
5370 ksj_ = ik_ + ks_;
5371 for (jb_ = ks_; jb_ <= k_; (jb_)++) {
5372 j_ = k_ + ks_ - jb_;
5373 jk_ = ik_ + j_;
5374 temp_ = ap_[jk_ - 1];
5375 ap_[jk_ - 1] = ap_[ksj_ - 1];
5376 ap_[ksj_ - 1] = temp_;
5377 ksj_ = ksj_ - (j_ - 1);
5378 }
5379 if (kstep_ == 1) {
5380 goto _l210;
5381 }
5382 kskp1_ = ikp1_ + ks_;
5383 temp_ = ap_[kskp1_ - 1];
5384 ap_[kskp1_ - 1] = ap_[kkp1_ - 1];
5385 ap_[kkp1_ - 1] = temp_;
5386 _l210:;
5387 _l220:;
5388 ik_ = ik_ + k_;
5389 if (kstep_ == 2) {
5390 ik_ = ik_ + k_ + 1;
5391 }
5392 k_ = k_ + kstep_;
5393 goto _l120;
5394 _l230:;
5395 _l240:;
5396 __calls[41].calls++;
5397 return 0;
5398 }
5399 int_4 _cspfa (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
5400 { // ** body not listed **
5422 }
5423 goto _l200;
5424 _l20:;
5425 km1_ = k_ - 1;
5426 kk_ = ik_ + k_;
5427 absakk_ = ({complex_8 zdum_1_ = ap_[kk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
5428 imax_ = _icamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
5429 imk_ = ik_ + imax_;
5430 colmax_ = ({complex_8 zdum_1_ = ap_[imk_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
5431 if (absakk_ < alpha_ * colmax_) {
5432 goto _l30;
5433 }
5434 kstep_ = 1;
5435 swap_ = FALSE;
5436 goto _l90;
5437 _l30:;
5438 rowmax_ = 0.0;
5439 imaxp1_ = imax_ + 1;
5440 im_ = imax_ * (imax_ - 1) / 2;
5441 imj_ = im_ + 2 * imax_;
5442 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
5443 rowmax_ = _max (rowmax_, ({complex_8 zdum_1_ = ap_[imj_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
5444 (zdum_1_));}));
5445 imj_ = imj_ + j_;
5446 }
5447 if (imax_ == 1) {
5448 goto _l50;
5449 }
5450 jmax_ = _icamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
5451 jmim_ = jmax_ + im_;
5452 rowmax_ = _max (rowmax_, ({complex_8 zdum_1_ = ap_[jmim_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
5453 (zdum_1_));}));
5454 _l50:;
5455 imim_ = imax_ + im_;
5456 if (({complex_8 zdum_1_ = ap_[imim_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) < alpha_ *
5457 rowmax_) {
5458 goto _l60;
5459 }
5460 kstep_ = 1;
5461 swap_ = TRUE;
5462 goto _l80;
5463 _l60:;
5464 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
5465 goto _l70;
5466 }
5467 kstep_ = 1;
5468 swap_ = FALSE;
5469 goto _l80;
5470 _l70:;
5471 kstep_ = 2;
5472 swap_ = imax_ != km1_;
5473 _l80:;
5474 _l90:;
5475 if (_max (absakk_, colmax_) != 0.0e0) {
5476 goto _l100;
5477 }
5478 kpvt_[k_ - 1] = k_;
5479 (*info_) = k_;
5480 goto _l190;
5481 _l100:;
5482 if (kstep_ == 2) {
5483 goto _l140;
5484 }
5485 if (! (swap_)) {
5486 goto _l120;
5487 }
5488 (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
5489 imj_ = ik_ + imax_;
5490 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
5491 j_ = k_ + imax_ - jj_;
5492 jk_ = ik_ + j_;
5493 t_ = ap_[jk_ - 1];
5494 ap_[jk_ - 1] = ap_[imj_ - 1];
5495 ap_[imj_ - 1] = t_;
5496 imj_ = imj_ - (j_ - 1);
5497 }
5498 _l120:;
5499 ij_ = ik_ - (k_ - 1);
5500 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
5501 j_ = k_ - jj_;
5502 jk_ = ik_ + j_;
5503 mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
5504 t_ = mulk_;
5505 (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
5506 ijj_ = ij_ + j_;
5507 ap_[jk_ - 1] = mulk_;
5508 ij_ = ij_ - (j_ - 1);
5509 }
5510 kpvt_[k_ - 1] = k_;
5511 if (swap_) {
5512 kpvt_[k_ - 1] = imax_;
5513 }
5514 goto _l190;
5515 _l140:;
5516 km1k_ = ik_ + k_ - 1;
5517 ikm1_ = ik_ - (k_ - 1);
5518 if (! (swap_)) {
5519 goto _l160;
5520 }
5521 (void) _cswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
5522 imj_ = ikm1_ + imax_;
5523 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
5524 j_ = km1_ + imax_ - jj_;
5525 jkm1_ = ikm1_ + j_;
5526 t_ = ap_[jkm1_ - 1];
5527 ap_[jkm1_ - 1] = ap_[imj_ - 1];
5528 ap_[imj_ - 1] = t_;
5529 imj_ = imj_ - (j_ - 1);
5530 }
5531 t_ = ap_[km1k_ - 1];
5532 ap_[km1k_ - 1] = ap_[imk_ - 1];
5533 ap_[imk_ - 1] = t_;
5534 _l160:;
5535 km2_ = k_ - 2;
5536 if (km2_ == 0) {
5537 goto _l180;
5538 }
5539 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
5540 km1km1_ = ikm1_ + k_ - 1;
5541 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
5542 denom_ = 1.0e0 - ak_ * akm1_;
5543 ij_ = ik_ - (k_ - 1) - (k_ - 2);
5544 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
5545 j_ = km1_ - jj_;
5546 jk_ = ik_ + j_;
5547 bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
5548 jkm1_ = ikm1_ + j_;
5549 bkm1_ = ap_[jkm1_ - 1] / ap_[km1k_ - 1];
5550 mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
5551 mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
5552 t_ = mulk_;
5553 (void) _caxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
5554 t_ = mulkm1_;
5555 (void) _caxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
5556 ap_[jk_ - 1] = mulk_;
5557 ap_[jkm1_ - 1] = mulkm1_;
5558 ijj_ = ij_ + j_;
5559 ij_ = ij_ - (j_ - 1);
5560 }
5561 _l180:;
5562 kpvt_[k_ - 1] = 1 - k_;
5563 if (swap_) {
5564 kpvt_[k_ - 1] = -imax_;
5565 }
5566 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
5567 _l190:;
5568 ik_ = ik_ - (k_ - 1);
5569 if (kstep_ == 2) {
5570 ik_ = ik_ - (k_ - 2);
5571 }
5572 k_ = k_ - kstep_;
5573 goto _l10;
5574 _l200:;
5575 __calls[42].calls++;
5576 return 0;
5577 }
5578 int_4 _cspsl (complex_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_8 _p_ b_)
5579 { // ** body not listed **
5690 }
5691 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_,
5692 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_
5693 info_)
5694 { // ** body not listed **
5739 }
5740 (void) _cscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = 1.0e0 / s_[l_ - 1], &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))],
5741 &_k1);
5742 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
5743 _l10:;
5744 s_[l_ - 1] = -s_[l_ - 1];
5745 _l20:;
5746 if ((*p_) < lp1_) {
5747 goto _l50;
5748 }
5749 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
5750 if (l_ > nct_) {
5751 goto _l30;
5752 }
5753 if (({complex_8 zdum_1_ = s_[l_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
5754 goto _l30;
5755 }
5756 t_ = -_cdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ -
5757 1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
5758 (void) _caxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) *
5759 ((j_ - 1))], &_k1);
5760 _l30:;
5761 e_[j_ - 1] = conjf (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]);
5762 }
5763 _l50:;
5764 if (! (wantu_) || l_ > nct_) {
5765 goto _l70;
5766 }
5767 for (i_ = l_; i_ <= (*n_); (i_)++) {
5768 u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = x_[i_ - 1 + ((*ldx_)) * ((l_ - 1))];
5769 }
5770 _l70:;
5771 if (l_ > nrt_) {
5772 goto _l150;
5773 }
5774 e_[l_ - 1] = CMPLXF (_scnrm2 (($5_ = (*p_) - l_, &$5_), &e_[lp1_ - 1], &_k1), 0.0);
5775 if (({complex_8 zdum_1_ = e_[l_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
5776 goto _l80;
5777 }
5778 if (({complex_8 zdum_1_ = e_[lp1_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) != 0.0e0) {
5779 e_[l_ - 1] = ({complex_8 zdum1_1_ = e_[l_ - 1]; complex_8 zdum2_1_ = e_[lp1_ - 1]; cabsf (zdum1_1_) * (zdum2_1_ / cabsf
5780 (zdum2_1_));});
5781 }
5782 (void) _cscal (($6_ = (*p_) - l_, &$6_), ($7_ = 1.0e0 / e_[l_ - 1], &$7_), &e_[lp1_ - 1], &_k1);
5783 e_[lp1_ - 1] = CMPLXF (1.0, 0.0) + e_[lp1_ - 1];
5784 _l80:;
5785 e_[l_ - 1] = -conjf (e_[l_ - 1]);
5786 if (lp1_ > (*n_) || ({complex_8 zdum_1_ = e_[l_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})
5787 == 0.0e0) {
5788 goto _l120;
5789 }
5790 for (i_ = lp1_; i_ <= (*n_); (i_)++) {
5791 work_[i_ - 1] = CMPLXF (0.0, 0.0);
5792 }
5793 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
5794 (void) _caxpy (($8_ = (*n_) - l_, &$8_), &e_[j_ - 1], &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &work_[lp1_ - 1],
5795 &_k1);
5796 }
5797 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
5798 (void) _caxpy (($9_ = (*n_) - l_, &$9_), ($10_ = conjf (-e_[j_ - 1] / e_[lp1_ - 1]), &$10_), &work_[lp1_ - 1], &_k1,
5799 &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1);
5800 }
5801 _l120:;
5802 if (! (wantv_)) {
5803 goto _l140;
5804 }
5805 for (i_ = lp1_; i_ <= (*p_); (i_)++) {
5806 v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = e_[i_ - 1];
5807 }
5808 _l140:;
5809 _l150:;
5810 }
5811 _l170:;
5812 m_ = _min ((*p_), (*n_) + 1);
5813 nctp1_ = nct_ + 1;
5814 nrtp1_ = nrt_ + 1;
5815 if (nct_ < (*p_)) {
5816 s_[nctp1_ - 1] = x_[nctp1_ - 1 + ((*ldx_)) * ((nctp1_ - 1))];
5817 }
5818 if ((*n_) < m_) {
5819 s_[m_ - 1] = CMPLXF (0.0, 0.0);
5820 }
5821 if (nrtp1_ < m_) {
5822 e_[nrtp1_ - 1] = x_[nrtp1_ - 1 + ((*ldx_)) * ((m_ - 1))];
5823 }
5824 e_[m_ - 1] = CMPLXF (0.0, 0.0);
5825 if (! (wantu_)) {
5826 goto _l300;
5827 }
5828 if (ncu_ < nctp1_) {
5829 goto _l200;
5830 }
5831 for (j_ = nctp1_; j_ <= ncu_; (j_)++) {
5832 for (i_ = 1; i_ <= (*n_); (i_)++) {
5833 u_[i_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
5834 }
5835 u_[j_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLXF (1.0, 0.0);
5836 }
5837 _l200:;
5838 if (nct_ < 1) {
5839 goto _l290;
5840 }
5841 for (ll_ = 1; ll_ <= nct_; (ll_)++) {
5842 l_ = nct_ - ll_ + 1;
5843 if (({complex_8 zdum_1_ = s_[l_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
5844 goto _l250;
5845 }
5846 lp1_ = l_ + 1;
5847 if (ncu_ < lp1_) {
5848 goto _l220;
5849 }
5850 for (j_ = lp1_; j_ <= ncu_; (j_)++) {
5851 t_ = -_cdotc (($11_ = (*n_) - l_ + 1, &$11_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_)) * ((j_
5852 - 1))], &_k1) / u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
5853 (void) _caxpy (($12_ = (*n_) - l_ + 1, &$12_), &t_, &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_))
5854 * ((j_ - 1))], &_k1);
5855 }
5856 _l220:;
5857 (void) _cscal (($13_ = (*n_) - l_ + 1, &$13_), ($14_ = CMPLXF (-1.0, 0.0), &$14_), &u_[l_ - 1 + ((*ldu_)) * ((l_ -
5858 1))], &_k1);
5859 u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0) + u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
5860 lm1_ = l_ - 1;
5861 if (lm1_ < 1) {
5862 goto _l240;
5863 }
5864 for (i_ = 1; i_ <= lm1_; (i_)++) {
5865 u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (0.0, 0.0);
5866 }
5867 _l240:;
5868 goto _l270;
5869 _l250:;
5870 for (i_ = 1; i_ <= (*n_); (i_)++) {
5871 u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (0.0, 0.0);
5872 }
5873 u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0);
5874 _l270:;
5875 }
5876 _l290:;
5877 _l300:;
5878 if (! (wantv_)) {
5879 goto _l350;
5880 }
5881 for (ll_ = 1; ll_ <= (*p_); (ll_)++) {
5882 l_ = (*p_) - ll_ + 1;
5883 lp1_ = l_ + 1;
5884 if (l_ > nrt_) {
5885 goto _l320;
5886 }
5887 if (({complex_8 zdum_1_ = e_[l_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
5888 goto _l320;
5889 }
5890 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
5891 t_ = -_cdotc (($15_ = (*p_) - l_, &$15_), &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_)) * ((j_
5892 - 1))], &_k1) / v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))];
5893 (void) _caxpy (($16_ = (*p_) - l_, &$16_), &t_, &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_))
5894 * ((j_ - 1))], &_k1);
5895 }
5896 _l320:;
5897 for (i_ = 1; i_ <= (*p_); (i_)++) {
5898 v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLXF (0.0, 0.0);
5899 }
5900 v_[l_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLXF (1.0, 0.0);
5901 }
5902 _l350:;
5903 for (i_ = 1; i_ <= m_; (i_)++) {
5904 if (({complex_8 zdum_1_ = s_[i_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
5905 goto _l360;
5906 }
5907 t_ = CMPLXF (cabsf (s_[i_ - 1]), 0.0);
5908 r_ = s_[i_ - 1] / t_;
5909 s_[i_ - 1] = t_;
5910 if (i_ < m_) {
5911 e_[i_ - 1] = e_[i_ - 1] / r_;
5912 }
5913 if (wantu_) {
5914 (void) _cscal (n_, &r_, &u_[0 + ((*ldu_)) * ((i_ - 1))], &_k1);
5915 }
5916 _l360:;
5917 if (i_ == m_) {
5918 goto _l390;
5919 }
5920 if (({complex_8 zdum_1_ = e_[i_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) == 0.0e0) {
5921 goto _l370;
5922 }
5923 t_ = CMPLXF (cabsf (e_[i_ - 1]), 0.0);
5924 r_ = t_ / e_[i_ - 1];
5925 e_[i_ - 1] = t_;
5926 s_[i_ + 1 - 1] = s_[i_ + 1 - 1] * r_;
5927 if (wantv_) {
5928 (void) _cscal (p_, &r_, &v_[0 + ((*ldv_)) * ((i_ + 1 - 1))], &_k1);
5929 }
5930 _l370:;
5931 }
5932 _l390:;
5933 mm_ = m_;
5934 iter_ = 0;
5935 _l400:;
5936 if (m_ == 0) {
5937 goto _l660;
5938 }
5939 if (iter_ < maxit_) {
5940 goto _l410;
5941 }
5942 (*info_) = m_;
5943 goto _l660;
5944 _l410:;
5945 for (ll_ = 1; ll_ <= m_; (ll_)++) {
5946 l_ = m_ - ll_;
5947 if (l_ == 0) {
5948 goto _l440;
5949 }
5950 test_ = cabsf (s_[l_ - 1]) + cabsf (s_[l_ + 1 - 1]);
5951 ztest_ = test_ + cabsf (e_[l_ - 1]);
5952 if (ztest_ != test_) {
5953 goto _l420;
5954 }
5955 e_[l_ - 1] = CMPLXF (0.0, 0.0);
5956 goto _l440;
5957 _l420:;
5958 }
5959 _l440:;
5960 if (l_ != m_ - 1) {
5961 goto _l450;
5962 }
5963 kase_ = 4;
5964 goto _l520;
5965 _l450:;
5966 lp1_ = l_ + 1;
5967 mp1_ = m_ + 1;
5968 for (lls_ = lp1_; lls_ <= mp1_; (lls_)++) {
5969 ls_ = m_ - lls_ + lp1_;
5970 if (ls_ == l_) {
5971 goto _l480;
5972 }
5973 test_ = 0.0;
5974 if (ls_ != m_) {
5975 test_ = test_ + cabsf (e_[ls_ - 1]);
5976 }
5977 if (ls_ != l_ + 1) {
5978 test_ = test_ + cabsf (e_[ls_ - 1 - 1]);
5979 }
5980 ztest_ = test_ + cabsf (s_[ls_ - 1]);
5981 if (ztest_ != test_) {
5982 goto _l460;
5983 }
5984 s_[ls_ - 1] = CMPLXF (0.0, 0.0);
5985 goto _l480;
5986 _l460:;
5987 }
5988 _l480:;
5989 if (ls_ != l_) {
5990 goto _l490;
5991 }
5992 kase_ = 3;
5993 goto _l510;
5994 _l490:;
5995 if (ls_ != m_) {
5996 goto _l500;
5997 }
5998 kase_ = 1;
5999 goto _l510;
6000 _l500:;
6001 kase_ = 2;
6002 l_ = ls_;
6003 _l510:;
6004 _l520:;
6005 l_ = l_ + 1;
6006 switch (kase_) {
6007 default:
6008 case 1: goto _l530;
6009 case 2: goto _l560;
6010 case 3: goto _l580;
6011 case 4: goto _l610;
6012 }
6013 _l530:;
6014 mm1_ = m_ - 1;
6015 f_ = (real_4) (crealf (e_[m_ - 1 - 1]));
6016 e_[m_ - 1 - 1] = CMPLXF (0.0, 0.0);
6017 for (kk_ = l_; kk_ <= mm1_; (kk_)++) {
6018 k_ = mm1_ - kk_ + l_;
6019 t1_ = (real_4) (crealf (s_[k_ - 1]));
6020 (void) _srotg (&t1_, &f_, &cs_, &sn_);
6021 s_[k_ - 1] = CMPLXF (t1_, 0.0);
6022 if (k_ == l_) {
6023 goto _l540;
6024 }
6025 f_ = -sn_ * (real_4) (crealf (e_[k_ - 1 - 1]));
6026 e_[k_ - 1 - 1] = cs_ * e_[k_ - 1 - 1];
6027 _l540:;
6028 if (wantv_) {
6029 (void) _csrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((m_ - 1))], &_k1, &cs_, &sn_);
6030 }
6031 }
6032 goto _l650;
6033 _l560:;
6034 f_ = (real_4) (crealf (e_[l_ - 1 - 1]));
6035 e_[l_ - 1 - 1] = CMPLXF (0.0, 0.0);
6036 for (k_ = l_; k_ <= m_; (k_)++) {
6037 t1_ = (real_4) (crealf (s_[k_ - 1]));
6038 (void) _srotg (&t1_, &f_, &cs_, &sn_);
6039 s_[k_ - 1] = CMPLXF (t1_, 0.0);
6040 f_ = -sn_ * (real_4) (crealf (e_[k_ - 1]));
6041 e_[k_ - 1] = cs_ * e_[k_ - 1];
6042 if (wantu_) {
6043 (void) _csrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ - 1 - 1))], &_k1, &cs_, &sn_);
6044 }
6045 }
6046 goto _l650;
6047 _l580:;
6048 scale_ = ($17_ = _max (cabsf (s_[m_ - 1]), cabsf (s_[m_ - 1 - 1])), $17_ = _max ($17_, cabsf (e_[m_ - 1 - 1])), $17_ =
6049 _max ($17_, cabsf (s_[l_ - 1])), _max ($17_, cabsf (e_[l_ - 1])));
6050 sm_ = (real_4) (crealf (s_[m_ - 1])) / scale_;
6051 smm1_ = (real_4) (crealf (s_[m_ - 1 - 1])) / scale_;
6052 emm1_ = (real_4) (crealf (e_[m_ - 1 - 1])) / scale_;
6053 sl_ = (real_4) (crealf (s_[l_ - 1])) / scale_;
6054 el_ = (real_4) (crealf (e_[l_ - 1])) / scale_;
6055 b_ = ((smm1_ + sm_) * (smm1_ - sm_) + (emm1_ * emm1_)) / 2.0e0;
6056 c_ = ($18_ = (sm_ * emm1_), $18_ * $18_);
6057 shift_ = 0.0;
6058 if (b_ == 0.0e0 && c_ == 0.0e0) {
6059 goto _l590;
6060 }
6061 shift_ = sqrtf ((b_ * b_) + c_);
6062 if (b_ < 0.0e0) {
6063 shift_ = -shift_;
6064 }
6065 shift_ = c_ / (b_ + shift_);
6066 _l590:;
6067 f_ = (sl_ + sm_) * (sl_ - sm_) + shift_;
6068 g_ = sl_ * el_;
6069 mm1_ = m_ - 1;
6070 for (k_ = l_; k_ <= mm1_; (k_)++) {
6071 (void) _srotg (&f_, &g_, &cs_, &sn_);
6072 if (k_ != l_) {
6073 e_[k_ - 1 - 1] = CMPLXF (f_, 0.0);
6074 }
6075 f_ = cs_ * (real_4) (crealf (s_[k_ - 1])) + sn_ * (real_4) (crealf (e_[k_ - 1]));
6076 e_[k_ - 1] = cs_ * e_[k_ - 1] - sn_ * s_[k_ - 1];
6077 g_ = sn_ * (real_4) (crealf (s_[k_ + 1 - 1]));
6078 s_[k_ + 1 - 1] = cs_ * s_[k_ + 1 - 1];
6079 if (wantv_) {
6080 (void) _csrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
6081 }
6082 (void) _srotg (&f_, &g_, &cs_, &sn_);
6083 s_[k_ - 1] = CMPLXF (f_, 0.0);
6084 f_ = cs_ * (real_4) (crealf (e_[k_ - 1])) + sn_ * (real_4) (crealf (s_[k_ + 1 - 1]));
6085 s_[k_ + 1 - 1] = -sn_ * e_[k_ - 1] + cs_ * s_[k_ + 1 - 1];
6086 g_ = sn_ * (real_4) (crealf (e_[k_ + 1 - 1]));
6087 e_[k_ + 1 - 1] = cs_ * e_[k_ + 1 - 1];
6088 if (wantu_ && k_ < (*n_)) {
6089 (void) _csrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
6090 }
6091 }
6092 e_[m_ - 1 - 1] = CMPLXF (f_, 0.0);
6093 iter_ = iter_ + 1;
6094 goto _l650;
6095 _l610:;
6096 if ((real_4) (crealf (s_[l_ - 1])) >= 0.0e0) {
6097 goto _l620;
6098 }
6099 s_[l_ - 1] = -s_[l_ - 1];
6100 if (wantv_) {
6101 (void) _cscal (p_, ($19_ = CMPLXF (-1.0, 0.0), &$19_), &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1);
6102 }
6103 _l620:;
6104 _l630:;
6105 if (l_ == mm_) {
6106 goto _l640;
6107 }
6108 if ((real_4) (crealf (s_[l_ - 1])) >= (real_4) (crealf (s_[l_ + 1 - 1]))) {
6109 goto _l640;
6110 }
6111 t_ = s_[l_ - 1];
6112 s_[l_ - 1] = s_[l_ + 1 - 1];
6113 s_[l_ + 1 - 1] = t_;
6114 if (wantv_ && l_ < (*p_)) {
6115 (void) _cswap (p_, &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((l_ + 1 - 1))], &_k1);
6116 }
6117 if (wantu_ && l_ < (*n_)) {
6118 (void) _cswap (n_, &u_[0 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ + 1 - 1))], &_k1);
6119 }
6120 l_ = l_ + 1;
6121 goto _l630;
6122 _l640:;
6123 iter_ = 0;
6124 m_ = m_ - 1;
6125 _l650:;
6126 goto _l400;
6127 _l660:;
6128 __calls[44].calls++;
6129 return 0;
6130 }
6131 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_)
6132 { // ** body not listed **
6170 }
6171 s_ = ({complex_8 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
6172 (zdum_1_));}) / ({complex_8 zdum_1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})
6173 ;
6174 (void) _csscal (n_, &s_, z_, &_k1);
6175 ek_ = CMPLXF (s_, 0.0) * ek_;
6176 _l30:;
6177 wk_ = ek_ - z_[k_ - 1];
6178 wkm_ = -ek_ - z_[k_ - 1];
6179 s_ = ({complex_8 zdum_1_ = wk_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
6180 sm_ = ({complex_8 zdum_1_ = wkm_; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
6181 if (({complex_8 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
6182 (zdum_1_));}) == 0.0e0) {
6183 goto _l40;
6184 }
6185 wk_ = wk_ / conjf (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
6186 wkm_ = wkm_ / conjf (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
6187 goto _l50;
6188 _l40:;
6189 wk_ = CMPLXF (1.0, 0.0);
6190 wkm_ = CMPLXF (1.0, 0.0);
6191 _l50:;
6192 if (kk_ == (*n_)) {
6193 goto _l90;
6194 }
6195 j1_ = k_ + 1;
6196 if (lower_) {
6197 j1_ = 1;
6198 }
6199 j2_ = (*n_);
6200 if (lower_) {
6201 j2_ = k_ - 1;
6202 }
6203 for (j_ = j1_; j_ <= j2_; (j_)++) {
6204 sm_ = sm_ + ({complex_8 zdum_1_ = z_[j_ - 1] + wkm_ * conjf (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]); _abs ((real_4)
6205 (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
6206 z_[j_ - 1] = z_[j_ - 1] + wk_ * conjf (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
6207 s_ = s_ + ({complex_8 zdum_1_ = z_[j_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
6208 }
6209 if (s_ >= sm_) {
6210 goto _l80;
6211 }
6212 w_ = wkm_ - wk_;
6213 wk_ = wkm_;
6214 for (j_ = j1_; j_ <= j2_; (j_)++) {
6215 z_[j_ - 1] = z_[j_ - 1] + w_ * conjf (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
6216 }
6217 _l80:;
6218 _l90:;
6219 z_[k_ - 1] = wk_;
6220 }
6221 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
6222 (void) _csscal (n_, &s_, z_, &_k1);
6223 ynorm_ = 1.0;
6224 for (kk_ = 1; kk_ <= (*n_); (kk_)++) {
6225 k_ = (*n_) + 1 - kk_;
6226 if (lower_) {
6227 k_ = kk_;
6228 }
6229 if (({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) <= ({complex_8
6230 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));})) {
6231 goto _l110;
6232 }
6233 s_ = ({complex_8 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
6234 (zdum_1_));}) / ({complex_8 zdum_1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));});
6235 (void) _csscal (n_, &s_, z_, &_k1);
6236 ynorm_ = s_ * ynorm_;
6237 _l110:;
6238 if (({complex_8 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
6239 (zdum_1_));}) != 0.0e0) {
6240 z_[k_ - 1] = z_[k_ - 1] / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
6241 }
6242 if (({complex_8 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
6243 (zdum_1_));}) == 0.0e0) {
6244 z_[k_ - 1] = CMPLXF (1.0, 0.0);
6245 }
6246 i1_ = 1;
6247 if (lower_) {
6248 i1_ = k_ + 1;
6249 }
6250 if (kk_ >= (*n_)) {
6251 goto _l120;
6252 }
6253 w_ = -z_[k_ - 1];
6254 (void) _caxpy (($0_ = (*n_) - kk_, &$0_), &w_, &t_[i1_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &z_[i1_ - 1], &_k1);
6255 _l120:;
6256 }
6257 s_ = 1.0e0 / _scasum (n_, z_, &_k1);
6258 (void) _csscal (n_, &s_, z_, &_k1);
6259 ynorm_ = s_ * ynorm_;
6260 if (tnorm_ != 0.0e0) {
6261 (*rcond_) = ynorm_ / tnorm_;
6262 }
6263 if (tnorm_ == 0.0e0) {
6264 (*rcond_) = 0.0;
6265 }
6266 __calls[45].calls++;
6267 return 0;
6268 }
6269 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_)
6270 { // ** body not listed **
6289 }
6290 det_[0] = CMPLXF (ten_, 0.0) * det_[0];
6291 det_[1] = det_[1] - CMPLXF (1.0, 0.0);
6292 goto _l10;
6293 _l20:;
6294 _l30:;
6295 if (({complex_8 zdum_1_ = det_[0]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf (zdum_1_));}) < ten_) {
6296 goto _l40;
6297 }
6298 det_[0] = det_[0] / CMPLXF (ten_, 0.0);
6299 det_[1] = det_[1] + CMPLXF (1.0, 0.0);
6300 goto _l30;
6301 _l40:;
6302 }
6303 _l60:;
6304 _l70:;
6305 if (_imod ((*job_) / 10, 10) == 0) {
6306 goto _l170;
6307 }
6308 if (_imod ((*job_), 10) == 0) {
6309 goto _l120;
6310 }
6311 for (k_ = 1; k_ <= (*n_); (k_)++) {
6312 (*info_) = k_;
6313 if (({complex_8 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
6314 (zdum_1_));}) == 0.0e0) {
6315 goto _l110;
6316 }
6317 t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
6318 temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
6319 (void) _cscal (($0_ = k_ - 1, &$0_), &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1);
6320 kp1_ = k_ + 1;
6321 if ((*n_) < kp1_) {
6322 goto _l90;
6323 }
6324 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
6325 temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
6326 t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
6327 (void) _caxpy (&k_, &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1);
6328 }
6329 _l90:;
6330 }
6331 (*info_) = 0;
6332 _l110:;
6333 goto _l160;
6334 _l120:;
6335 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
6336 k_ = (*n_) + 1 - kb_;
6337 (*info_) = k_;
6338 if (({complex_8 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs ((real_4) (crealf (zdum_1_))) + _abs (cimagf
6339 (zdum_1_));}) == 0.0e0) {
6340 goto _l180;
6341 }
6342 t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLXF (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
6343 temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
6344 if (k_ != (*n_)) {
6345 (void) _cscal (($1_ = (*n_) - k_, &$1_), &temp_, &t_[k_ + 1 - 1 + ((*ldt_)) * ((k_ - 1))], &_k1);
6346 }
6347 km1_ = k_ - 1;
6348 if (km1_ < 1) {
6349 goto _l140;
6350 }
6351 for (j_ = 1; j_ <= km1_; (j_)++) {
6352 temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
6353 t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLXF (0.0, 0.0);
6354 (void) _caxpy (($2_ = (*n_) - k_ + 1, &$2_), &temp_, &t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[k_ - 1 + ((*ldt_))
6355 * ((j_ - 1))], &_k1);
6356 }
6357 _l140:;
6358 }
6359 (*info_) = 0;
6360 _l160:;
6361 _l170:;
6362 _l180:;
6363 __calls[46].calls++;
6364 return 0;
6365 }
6366 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_)
6367 { // ** body not listed **
6377 }
6378 (*info_) = 0;
6379 case_ = 1;
6380 if (_imod ((*job_), 10) != 0) {
6381 case_ = 2;
6382 }
6383 if (_imod ((*job_), 100) / 10 != 0) {
6384 case_ = case_ + 2;
6385 }
6386 switch (case_) {
6387 default:
6388 case 1: goto _l20;
6389 case 2: goto _l50;
6390 case 3: goto _l80;
6391 case 4: goto _l110;
6392 }
6393 _l20:;
6394 b_[0] = b_[0] / t_[0 + ((*ldt_)) * ((0))];
6395 if ((*n_) < 2) {
6396 goto _l40;
6397 }
6398 for (j_ = 2; j_ <= (*n_); (j_)++) {
6399 temp_ = -b_[j_ - 1 - 1];
6400 (void) _caxpy (($0_ = (*n_) - j_ + 1, &$0_), &temp_, &t_[j_ - 1 + ((*ldt_)) * ((j_ - 1 - 1))], &_k1, &b_[j_ - 1], &_k1)
6401 ;
6402 b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
6403 }
6404 _l40:;
6405 goto _l140;
6406 _l50:;
6407 b_[(*n_) - 1] = b_[(*n_) - 1] / t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))];
6408 if ((*n_) < 2) {
6409 goto _l70;
6410 }
6411 for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
6412 j_ = (*n_) - jj_ + 1;
6413 temp_ = -b_[j_ + 1 - 1];
6414 (void) _caxpy (&j_, &temp_, &t_[0 + ((*ldt_)) * ((j_ + 1 - 1))], &_k1, &b_[0], &_k1);
6415 b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
6416 }
6417 _l70:;
6418 goto _l140;
6419 _l80:;
6420 b_[(*n_) - 1] = b_[(*n_) - 1] / conjf (t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))]);
6421 if ((*n_) < 2) {
6422 goto _l100;
6423 }
6424 for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
6425 j_ = (*n_) - jj_ + 1;
6426 b_[j_ - 1] = b_[j_ - 1] - _cdotc (($1_ = jj_ - 1, &$1_), &t_[j_ + 1 - 1 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[j_ + 1 -
6427 1], &_k1);
6428 b_[j_ - 1] = b_[j_ - 1] / conjf (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
6429 }
6430 _l100:;
6431 goto _l140;
6432 _l110:;
6433 b_[0] = b_[0] / conjf (t_[0 + ((*ldt_)) * ((0))]);
6434 if ((*n_) < 2) {
6435 goto _l130;
6436 }
6437 for (j_ = 2; j_ <= (*n_); (j_)++) {
6438 b_[j_ - 1] = b_[j_ - 1] - _cdotc (($2_ = j_ - 1, &$2_), &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[0], &_k1);
6439 b_[j_ - 1] = b_[j_ - 1] / conjf (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
6440 }
6441 _l130:;
6442 _l140:;
6443 _l150:;
6444 __calls[47].calls++;
6445 return 0;
6446 }
6447 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_
6448 info_)
6449 { // ** body not listed **
6621 }
6622 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_,
6623 real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ info_)
6624 { // ** body not listed **
6693 }
6694 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_,
6695 int_4 _p_ nz_, real_8 _p_ c_, real_8 _p_ s_, int_4 _p_ job_)
6696 { // ** body not listed **
6814 }
6815 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_,
6816 real_8 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, real_8 _p_ s_)
6817 { // ** body not listed **
6856 }
6857 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_
6858 rcond_, real_8 _p_ z_)
6859 { // ** body not listed **
7011 }
7012 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_
7013 det_)
7014 { // ** body not listed **
7049 }
7050 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_
7051 info_)
7052 { // ** body not listed **
7136 }
7137 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_
7138 b_, int_4 _p_ job_)
7139 { // ** body not listed **
7208 }
7209 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_)
7210 { // ** body not listed **
7341 }
7342 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
7343 _p_ job_)
7344 { // ** body not listed **
7423 }
7424 int_4 _dgefa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
7425 { // ** body not listed **
7474 }
7475 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_)
7476 { // ** body not listed **
7532 }
7533 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_)
7534 { // ** body not listed **
7602 }
7603 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_
7604 info_)
7605 { // ** body not listed **
7744 }
7745 int_4 _dpbdi (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ det_)
7746 { // ** body not listed **
7777 }
7778 int_4 _dpbfa (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
7779 { // ** body not listed **
7813 }
7814 int_4 _dpbsl (real_8 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ b_)
7815 { // ** body not listed **
7837 }
7838 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_)
7839 { // ** body not listed **
7962 }
7963 int_4 _dpodi (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
7964 { // ** body not listed **
8032 }
8033 int_4 _dpofa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
8034 { // ** body not listed **
8064 }
8065 int_4 _dposl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ b_)
8066 { // ** body not listed **
8083 }
8084 int_4 _dppco (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ rcond_, real_8 _p_ z_, int_4 _p_ info_)
8085 { // ** body not listed **
8221 }
8222 int_4 _dppdi (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
8223 { // ** body not listed **
8307 }
8308 int_4 _dppfa (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
8309 { // ** body not listed **
8344 }
8345 int_4 _dppsl (real_8 _p_ ap_, int_4 _p_ n_, real_8 _p_ b_)
8346 { // ** body not listed **
8366 }
8367 int_4 _dptsl (int_4 _p_ n_, real_8 _p_ d_, real_8 _p_ e_, real_8 _p_ b_)
8368 { // ** body not listed **
8420 }
8421 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_
8422 work_, int_4 _p_ job_)
8423 { // ** body not listed **
8559 }
8560 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_
8561 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_)
8562 { // ** body not listed **
8719 }
8720 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_)
8721 { // ** body not listed **
8940 }
8941 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
8942 _p_ work_, int_4 _p_ job_)
8943 { // ** body not listed **
9111 }
9112 int_4 _dsifa (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
9113 { // ** body not listed **
9255 }
9256 int_4 _dsisl (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ b_)
9257 { // ** body not listed **
9357 }
9358 int_4 _dspco (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, real_8 _p_ z_)
9359 { // ** body not listed **
9610 }
9611 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
9612 _p_ job_)
9613 { // ** body not listed **
9801 }
9802 int_4 _dspfa (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
9803 { // ** body not listed **
9976 }
9977 int_4 _dspsl (real_8 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ b_)
9978 { // ** body not listed **
10089 }
10090 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_,
10091 int_4 _p_ ldu_, real_8 _p_ v_, int_4 _p_ ldv_, real_8 _p_ work_, int_4 _p_ job_, int_4 _p_ info_)
10092 { // ** body not listed **
10491 }
10492 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_)
10493 { // ** body not listed **
10616 }
10617 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_)
10618 { // ** body not listed **
10710 }
10711 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_)
10712 { // ** body not listed **
10790 }
10791 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_
10792 info_)
10793 { // ** body not listed **
10965 }
10966 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_,
10967 real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ info_)
10968 { // ** body not listed **
11036 }
11037 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_,
11038 int_4 _p_ nz_, real_4 _p_ c_, real_4 _p_ s_, int_4 _p_ job_)
11039 { // ** body not listed **
11157 }
11158 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_,
11159 real_4 _p_ y_, real_4 _p_ rho_, real_4 _p_ c_, real_4 _p_ s_)
11160 { // ** body not listed **
11199 }
11200 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_
11201 rcond_, real_4 _p_ z_)
11202 { // ** body not listed **
11354 }
11355 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_
11356 det_)
11357 { // ** body not listed **
11392 }
11393 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_
11394 info_)
11395 { // ** body not listed **
11479 }
11480 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_
11481 b_, int_4 _p_ job_)
11482 { // ** body not listed **
11551 }
11552 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_)
11553 { // ** body not listed **
11684 }
11685 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
11686 _p_ job_)
11687 { // ** body not listed **
11766 }
11767 int_4 _sgefa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
11768 { // ** body not listed **
11817 }
11818 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_)
11819 { // ** body not listed **
11875 }
11876 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_)
11877 { // ** body not listed **
11945 }
11946 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_
11947 info_)
11948 { // ** body not listed **
12087 }
12088 int_4 _spbdi (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ det_)
12089 { // ** body not listed **
12120 }
12121 int_4 _spbfa (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
12122 { // ** body not listed **
12156 }
12157 int_4 _spbsl (real_4 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ b_)
12158 { // ** body not listed **
12180 }
12181 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_)
12182 { // ** body not listed **
12305 }
12306 int_4 _spodi (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
12307 { // ** body not listed **
12375 }
12376 int_4 _spofa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
12377 { // ** body not listed **
12407 }
12408 int_4 _sposl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ b_)
12409 { // ** body not listed **
12426 }
12427 int_4 _sppco (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ rcond_, real_4 _p_ z_, int_4 _p_ info_)
12428 { // ** body not listed **
12564 }
12565 int_4 _sppdi (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ det_, int_4 _p_ job_)
12566 { // ** body not listed **
12650 }
12651 int_4 _sppfa (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
12652 { // ** body not listed **
12687 }
12688 int_4 _sppsl (real_4 _p_ ap_, int_4 _p_ n_, real_4 _p_ b_)
12689 { // ** body not listed **
12709 }
12710 int_4 _sptsl (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e_, real_4 _p_ b_)
12711 { // ** body not listed **
12763 }
12764 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_
12765 work_, int_4 _p_ job_)
12766 { // ** body not listed **
12902 }
12903 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_
12904 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_)
12905 { // ** body not listed **
13062 }
13063 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_)
13064 { // ** body not listed **
13283 }
13284 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
13285 _p_ work_, int_4 _p_ job_)
13286 { // ** body not listed **
13454 }
13455 int_4 _ssifa (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
13456 { // ** body not listed **
13598 }
13599 int_4 _ssisl (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ b_)
13600 { // ** body not listed **
13700 }
13701 int_4 _sspco (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ rcond_, real_4 _p_ z_)
13702 { // ** body not listed **
13953 }
13954 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
13955 _p_ job_)
13956 { // ** body not listed **
14144 }
14145 int_4 _sspfa (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
14146 { // ** body not listed **
14319 }
14320 int_4 _sspsl (real_4 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_4 _p_ b_)
14321 { // ** body not listed **
14432 }
14433 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_,
14434 int_4 _p_ ldu_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_)
14435 { // ** body not listed **
14834 }
14835 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_)
14836 { // ** body not listed **
14959 }
14960 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_)
14961 { // ** body not listed **
15053 }
15054 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_)
15055 { // ** body not listed **
15133 }
15134 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_,
15135 int_4 _p_ info_)
15136 { // ** body not listed **
15312 }
15313 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_,
15314 int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ info_)
15315 { // ** body not listed **
15385 }
15386 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_
15387 ldz_, int_4 _p_ nz_, real_8 _p_ c_, complex_16 _p_ s_, int_4 _p_ job_)
15388 { // ** body not listed **
15506 }
15507 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_,
15508 int_4 _p_ nz_, complex_16 _p_ y_, real_8 _p_ rho_, real_8 _p_ c_, complex_16 _p_ s_)
15509 { // ** body not listed **
15549 }
15550 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
15551 _p_ rcond_, complex_16 _p_ z_)
15552 { // ** body not listed **
15589 }
15590 s_ = ({complex_16 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) /
15591 ({complex_16 zdum_1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15592 (void) _zdscal (n_, &s_, z_, &_k1);
15593 ek_ = CMPLX (s_, 0.0) * ek_;
15594 _l30:;
15595 wk_ = ek_ - z_[k_ - 1];
15596 wkm_ = -ek_ - z_[k_ - 1];
15597 s_ = ({complex_16 zdum_1_ = wk_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15598 sm_ = ({complex_16 zdum_1_ = wkm_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15599 if (({complex_16 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
15600 0.0e0) {
15601 goto _l40;
15602 }
15603 wk_ = wk_ / conj (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
15604 wkm_ = wkm_ / conj (abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]);
15605 goto _l50;
15606 _l40:;
15607 wk_ = CMPLX (1.0, 0.0);
15608 wkm_ = CMPLX (1.0, 0.0);
15609 _l50:;
15610 kp1_ = k_ + 1;
15611 ju_ = _min (_max (ju_, (*mu_) + ipvt_[k_ - 1]), (*n_));
15612 mm_ = m_;
15613 if (kp1_ > ju_) {
15614 goto _l90;
15615 }
15616 for (j_ = kp1_; j_ <= ju_; (j_)++) {
15617 mm_ = mm_ - 1;
15618 sm_ = sm_ + ({complex_16 zdum_1_ = z_[j_ - 1] + wkm_ * conj (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal
15619 (zdum_1_)) + _abs (cimag (zdum_1_));});
15620 z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
15621 s_ = s_ + ({complex_16 zdum_1_ = z_[j_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15622 }
15623 if (s_ >= sm_) {
15624 goto _l80;
15625 }
15626 t_ = wkm_ - wk_;
15627 wk_ = wkm_;
15628 mm_ = m_;
15629 for (j_ = kp1_; j_ <= ju_; (j_)++) {
15630 mm_ = mm_ - 1;
15631 z_[j_ - 1] = z_[j_ - 1] + t_ * conj (abd_[mm_ - 1 + ((*lda_)) * ((j_ - 1))]);
15632 }
15633 _l80:;
15634 _l90:;
15635 z_[k_ - 1] = wk_;
15636 }
15637 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
15638 (void) _zdscal (n_, &s_, z_, &_k1);
15639 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
15640 k_ = (*n_) + 1 - kb_;
15641 lm_ = _min ((*ml_), (*n_) - k_);
15642 if (k_ < (*n_)) {
15643 z_[k_ - 1] = z_[k_ - 1] + _zdotc (&lm_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
15644 }
15645 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= 1.0e0) {
15646 goto _l110;
15647 }
15648 s_ = 1.0e0 / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15649 (void) _zdscal (n_, &s_, z_, &_k1);
15650 _l110:;
15651 l_ = ipvt_[k_ - 1];
15652 t_ = z_[l_ - 1];
15653 z_[l_ - 1] = z_[k_ - 1];
15654 z_[k_ - 1] = t_;
15655 }
15656 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
15657 (void) _zdscal (n_, &s_, z_, &_k1);
15658 ynorm_ = 1.0;
15659 for (k_ = 1; k_ <= (*n_); (k_)++) {
15660 l_ = ipvt_[k_ - 1];
15661 t_ = z_[l_ - 1];
15662 z_[l_ - 1] = z_[k_ - 1];
15663 z_[k_ - 1] = t_;
15664 lm_ = _min ((*ml_), (*n_) - k_);
15665 if (k_ < (*n_)) {
15666 (void) _zaxpy (&lm_, &t_, &abd_[m_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
15667 }
15668 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= 1.0e0) {
15669 goto _l130;
15670 }
15671 s_ = 1.0e0 / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15672 (void) _zdscal (n_, &s_, z_, &_k1);
15673 ynorm_ = s_ * ynorm_;
15674 _l130:;
15675 }
15676 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
15677 (void) _zdscal (n_, &s_, z_, &_k1);
15678 ynorm_ = s_ * ynorm_;
15679 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
15680 k_ = (*n_) + 1 - kb_;
15681 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
15682 abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
15683 goto _l150;
15684 }
15685 s_ = ({complex_16 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) /
15686 ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15687 (void) _zdscal (n_, &s_, z_, &_k1);
15688 ynorm_ = s_ * ynorm_;
15689 _l150:;
15690 if (({complex_16 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) !=
15691 0.0e0) {
15692 z_[k_ - 1] = z_[k_ - 1] / abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))];
15693 }
15694 if (({complex_16 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
15695 0.0e0) {
15696 z_[k_ - 1] = CMPLX (1.0, 0.0);
15697 }
15698 lm_ = _min (k_, m_) - 1;
15699 la_ = m_ - lm_;
15700 lz_ = k_ - lm_;
15701 t_ = -z_[k_ - 1];
15702 (void) _zaxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lz_ - 1], &_k1);
15703 }
15704 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
15705 (void) _zdscal (n_, &s_, z_, &_k1);
15706 ynorm_ = s_ * ynorm_;
15707 if (anorm_ != 0.0e0) {
15708 (*rcond_) = ynorm_ / anorm_;
15709 }
15710 if (anorm_ == 0.0e0) {
15711 (*rcond_) = 0.0;
15712 }
15713 __calls[132].calls++;
15714 return 0;
15715 }
15716 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_,
15717 complex_16 _p_ det_)
15718 { // ** body not listed **
15737 }
15738 det_[0] = CMPLX (ten_, 0.0) * det_[0];
15739 det_[1] = det_[1] - CMPLX (1.0, 0.0);
15740 goto _l10;
15741 _l20:;
15742 _l30:;
15743 if (({complex_16 zdum_1_ = det_[0]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) < ten_) {
15744 goto _l40;
15745 }
15746 det_[0] = det_[0] / CMPLX (ten_, 0.0);
15747 det_[1] = det_[1] + CMPLX (1.0, 0.0);
15748 goto _l30;
15749 _l40:;
15750 }
15751 _l60:;
15752 __calls[133].calls++;
15753 return 0;
15754 }
15755 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
15756 _p_ info_)
15757 { // ** body not listed **
15834 }
15835 _l130:;
15836 ipvt_[(*n_) - 1] = (*n_);
15837 if (({complex_16 zdum_1_ = abd_[m_ - 1 + ((*lda_)) * (((*n_) - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})
15838 == 0.0e0) {
15839 (*info_) = (*n_);
15840 }
15841 __calls[134].calls++;
15842 return 0;
15843 }
15844 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_,
15845 complex_16 _p_ b_, int_4 _p_ job_)
15846 { // ** body not listed **
15915 }
15916 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_)
15917 { // ** body not listed **
15942 }
15943 s_ = ({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) /
15944 ({complex_16 zdum_1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15945 (void) _zdscal (n_, &s_, z_, &_k1);
15946 ek_ = CMPLX (s_, 0.0) * ek_;
15947 _l30:;
15948 wk_ = ek_ - z_[k_ - 1];
15949 wkm_ = -ek_ - z_[k_ - 1];
15950 s_ = ({complex_16 zdum_1_ = wk_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15951 sm_ = ({complex_16 zdum_1_ = wkm_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15952 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
15953 0.0e0) {
15954 goto _l40;
15955 }
15956 wk_ = wk_ / conj (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
15957 wkm_ = wkm_ / conj (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]);
15958 goto _l50;
15959 _l40:;
15960 wk_ = CMPLX (1.0, 0.0);
15961 wkm_ = CMPLX (1.0, 0.0);
15962 _l50:;
15963 kp1_ = k_ + 1;
15964 if (kp1_ > (*n_)) {
15965 goto _l90;
15966 }
15967 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
15968 sm_ = sm_ + ({complex_16 zdum_1_ = z_[j_ - 1] + wkm_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal
15969 (zdum_1_)) + _abs (cimag (zdum_1_));});
15970 z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
15971 s_ = s_ + ({complex_16 zdum_1_ = z_[j_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15972 }
15973 if (s_ >= sm_) {
15974 goto _l80;
15975 }
15976 t_ = wkm_ - wk_;
15977 wk_ = wkm_;
15978 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
15979 z_[j_ - 1] = z_[j_ - 1] + t_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
15980 }
15981 _l80:;
15982 _l90:;
15983 z_[k_ - 1] = wk_;
15984 }
15985 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
15986 (void) _zdscal (n_, &s_, z_, &_k1);
15987 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
15988 k_ = (*n_) + 1 - kb_;
15989 if (k_ < (*n_)) {
15990 z_[k_ - 1] = z_[k_ - 1] + _zdotc (($0_ = (*n_) - k_, &$0_), &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1
15991 - 1], &_k1);
15992 }
15993 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= 1.0e0) {
15994 goto _l110;
15995 }
15996 s_ = 1.0e0 / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
15997 (void) _zdscal (n_, &s_, z_, &_k1);
15998 _l110:;
15999 l_ = ipvt_[k_ - 1];
16000 t_ = z_[l_ - 1];
16001 z_[l_ - 1] = z_[k_ - 1];
16002 z_[k_ - 1] = t_;
16003 }
16004 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
16005 (void) _zdscal (n_, &s_, z_, &_k1);
16006 ynorm_ = 1.0;
16007 for (k_ = 1; k_ <= (*n_); (k_)++) {
16008 l_ = ipvt_[k_ - 1];
16009 t_ = z_[l_ - 1];
16010 z_[l_ - 1] = z_[k_ - 1];
16011 z_[k_ - 1] = t_;
16012 if (k_ < (*n_)) {
16013 (void) _zaxpy (($1_ = (*n_) - k_, &$1_), &t_, &a_[k_ + 1 - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[k_ + 1 - 1], &_k1);
16014 }
16015 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= 1.0e0) {
16016 goto _l130;
16017 }
16018 s_ = 1.0e0 / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
16019 (void) _zdscal (n_, &s_, z_, &_k1);
16020 ynorm_ = s_ * ynorm_;
16021 _l130:;
16022 }
16023 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
16024 (void) _zdscal (n_, &s_, z_, &_k1);
16025 ynorm_ = s_ * ynorm_;
16026 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
16027 k_ = (*n_) + 1 - kb_;
16028 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
16029 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
16030 goto _l150;
16031 }
16032 s_ = ({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) /
16033 ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
16034 (void) _zdscal (n_, &s_, z_, &_k1);
16035 ynorm_ = s_ * ynorm_;
16036 _l150:;
16037 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) !=
16038 0.0e0) {
16039 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
16040 }
16041 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
16042 0.0e0) {
16043 z_[k_ - 1] = CMPLX (1.0, 0.0);
16044 }
16045 t_ = -z_[k_ - 1];
16046 (void) _zaxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
16047 }
16048 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
16049 (void) _zdscal (n_, &s_, z_, &_k1);
16050 ynorm_ = s_ * ynorm_;
16051 if (anorm_ != 0.0e0) {
16052 (*rcond_) = ynorm_ / anorm_;
16053 }
16054 if (anorm_ == 0.0e0) {
16055 (*rcond_) = 0.0;
16056 }
16057 __calls[136].calls++;
16058 return 0;
16059 }
16060 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_
16061 work_, int_4 _p_ job_)
16062 { // ** body not listed **
16084 }
16085 det_[0] = CMPLX (ten_, 0.0) * det_[0];
16086 det_[1] = det_[1] - CMPLX (1.0, 0.0);
16087 goto _l10;
16088 _l20:;
16089 _l30:;
16090 if (({complex_16 zdum_1_ = det_[0]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) < ten_) {
16091 goto _l40;
16092 }
16093 det_[0] = det_[0] / CMPLX (ten_, 0.0);
16094 det_[1] = det_[1] + CMPLX (1.0, 0.0);
16095 goto _l30;
16096 _l40:;
16097 }
16098 _l60:;
16099 _l70:;
16100 if (_imod ((*job_), 10) == 0) {
16101 goto _l150;
16102 }
16103 for (k_ = 1; k_ <= (*n_); (k_)++) {
16104 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
16105 t_ = -a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
16106 (void) _zscal (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
16107 kp1_ = k_ + 1;
16108 if ((*n_) < kp1_) {
16109 goto _l90;
16110 }
16111 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
16112 t_ = a_[k_ - 1 + ((*lda_)) * ((j_ - 1))];
16113 a_[k_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
16114 (void) _zaxpy (&k_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
16115 }
16116 _l90:;
16117 }
16118 nm1_ = (*n_) - 1;
16119 if (nm1_ < 1) {
16120 goto _l140;
16121 }
16122 for (kb_ = 1; kb_ <= nm1_; (kb_)++) {
16123 k_ = (*n_) - kb_;
16124 kp1_ = k_ + 1;
16125 for (i_ = kp1_; i_ <= (*n_); (i_)++) {
16126 work_[i_ - 1] = a_[i_ - 1 + ((*lda_)) * ((k_ - 1))];
16127 a_[i_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLX (0.0, 0.0);
16128 }
16129 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
16130 t_ = work_[j_ - 1];
16131 (void) _zaxpy (n_, &t_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
16132 }
16133 l_ = ipvt_[k_ - 1];
16134 if (l_ != k_) {
16135 (void) _zswap (n_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((l_ - 1))], &_k1);
16136 }
16137 }
16138 _l140:;
16139 _l150:;
16140 __calls[137].calls++;
16141 return 0;
16142 }
16143 int_4 _zgefa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ipvt_, int_4 _p_ info_)
16144 { // ** body not listed **
16186 }
16187 _l70:;
16188 ipvt_[(*n_) - 1] = (*n_);
16189 if (({complex_16 zdum_1_ = a_[(*n_) - 1 + ((*lda_)) * (((*n_) - 1))]; _abs (creal (zdum_1_)) + _abs (cimag
16190 (zdum_1_));}) == 0.0e0) {
16191 (*info_) = (*n_);
16192 }
16193 __calls[138].calls++;
16194 return 0;
16195 }
16196 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_)
16197 { // ** body not listed **
16253 }
16254 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_
16255 )
16256 { // ** body not listed **
16289 }
16290 (*info_) = k_;
16291 goto _l100;
16292 _l20:;
16293 t_ = -c_[kp1_ - 1] / c_[k_ - 1];
16294 c_[kp1_ - 1] = d_[kp1_ - 1] + t_ * d_[k_ - 1];
16295 d_[kp1_ - 1] = e_[kp1_ - 1] + t_ * e_[k_ - 1];
16296 e_[kp1_ - 1] = CMPLX (0.0, 0.0);
16297 b_[kp1_ - 1] = b_[kp1_ - 1] + t_ * b_[k_ - 1];
16298 }
16299 _l40:;
16300 if (({complex_16 zdum_1_ = c_[(*n_) - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) != 0.0e0) {
16301 goto _l50;
16302 }
16303 (*info_) = (*n_);
16304 goto _l90;
16305 _l50:;
16306 nm2_ = (*n_) - 2;
16307 b_[(*n_) - 1] = b_[(*n_) - 1] / c_[(*n_) - 1];
16308 if ((*n_) == 1) {
16309 goto _l80;
16310 }
16311 b_[nm1_ - 1] = (b_[nm1_ - 1] - d_[nm1_ - 1] * b_[(*n_) - 1]) / c_[nm1_ - 1];
16312 if (nm2_ < 1) {
16313 goto _l70;
16314 }
16315 for (kb_ = 1; kb_ <= nm2_; (kb_)++) {
16316 k_ = nm2_ - kb_ + 1;
16317 b_[k_ - 1] = (b_[k_ - 1] - d_[k_ - 1] * b_[k_ + 1 - 1] - e_[k_ - 1] * b_[k_ + 2 - 1]) / c_[k_ - 1];
16318 }
16319 _l70:;
16320 _l80:;
16321 _l90:;
16322 _l100:;
16323 __calls[140].calls++;
16324 return 0;
16325 }
16326 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_)
16327 { // ** body not listed **
16377 }
16378 z_[k_ - 1] = z_[k_ - 1] + ek_;
16379 (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
16380 if (ks_ == 1) {
16381 goto _l80;
16382 }
16383 if (({complex_16 zdum_1_ = z_[k_ - 1 - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) != 0.0e0) {
16384 ek_ = ({complex_16 zdum_1_ = ek_; complex_16 zdum2_1_ = z_[k_ - 1 - 1]; ({complex_16 zdum_2_ = zdum_1_; _abs (creal
16385 (zdum_2_)) + _abs (cimag (zdum_2_));}) * (zdum2_1_ / ({complex_16 zdum_2_ = zdum2_1_; _abs (creal (zdum_2_)) + _abs
16386 (cimag (zdum_2_));}));});
16387 }
16388 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
16389 (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
16390 _l80:;
16391 if (ks_ == 2) {
16392 goto _l100;
16393 }
16394 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
16395 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
16396 goto _l90;
16397 }
16398 s_ = ({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) /
16399 ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
16400 (void) _zdscal (n_, &s_, z_, &_k1);
16401 ek_ = CMPLX (s_, 0.0) * ek_;
16402 _l90:;
16403 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) !=
16404 0.0e0) {
16405 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
16406 }
16407 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
16408 0.0e0) {
16409 z_[k_ - 1] = CMPLX (1.0, 0.0);
16410 }
16411 goto _l110;
16412 _l100:;
16413 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
16414 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
16415 bk_ = z_[k_ - 1] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
16416 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
16417 denom_ = ak_ * akm1_ - 1.0e0;
16418 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
16419 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
16420 _l110:;
16421 k_ = k_ - ks_;
16422 goto _l60;
16423 _l120:;
16424 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
16425 (void) _zdscal (n_, &s_, z_, &_k1);
16426 k_ = 1;
16427 _l130:;
16428 if (k_ > (*n_)) {
16429 goto _l160;
16430 }
16431 ks_ = 1;
16432 if (kpvt_[k_ - 1] < 0) {
16433 ks_ = 2;
16434 }
16435 if (k_ == 1) {
16436 goto _l150;
16437 }
16438 z_[k_ - 1] = z_[k_ - 1] + _zdotc (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
16439 if (ks_ == 2) {
16440 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0],
16441 &_k1);
16442 }
16443 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
16444 if (kp_ == k_) {
16445 goto _l140;
16446 }
16447 t_ = z_[k_ - 1];
16448 z_[k_ - 1] = z_[kp_ - 1];
16449 z_[kp_ - 1] = t_;
16450 _l140:;
16451 _l150:;
16452 k_ = k_ + ks_;
16453 goto _l130;
16454 _l160:;
16455 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
16456 (void) _zdscal (n_, &s_, z_, &_k1);
16457 ynorm_ = 1.0;
16458 k_ = (*n_);
16459 _l170:;
16460 if (k_ == 0) {
16461 goto _l230;
16462 }
16463 ks_ = 1;
16464 if (kpvt_[k_ - 1] < 0) {
16465 ks_ = 2;
16466 }
16467 if (k_ == ks_) {
16468 goto _l190;
16469 }
16470 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
16471 kps_ = k_ + 1 - ks_;
16472 if (kp_ == kps_) {
16473 goto _l180;
16474 }
16475 t_ = z_[kps_ - 1];
16476 z_[kps_ - 1] = z_[kp_ - 1];
16477 z_[kp_ - 1] = t_;
16478 _l180:;
16479 (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
16480 if (ks_ == 2) {
16481 (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
16482 }
16483 _l190:;
16484 if (ks_ == 2) {
16485 goto _l210;
16486 }
16487 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
16488 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
16489 goto _l200;
16490 }
16491 s_ = ({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) /
16492 ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
16493 (void) _zdscal (n_, &s_, z_, &_k1);
16494 ynorm_ = s_ * ynorm_;
16495 _l200:;
16496 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) !=
16497 0.0e0) {
16498 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
16499 }
16500 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
16501 0.0e0) {
16502 z_[k_ - 1] = CMPLX (1.0, 0.0);
16503 }
16504 goto _l220;
16505 _l210:;
16506 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
16507 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
16508 bk_ = z_[k_ - 1] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
16509 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
16510 denom_ = ak_ * akm1_ - 1.0e0;
16511 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
16512 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
16513 _l220:;
16514 k_ = k_ - ks_;
16515 goto _l170;
16516 _l230:;
16517 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
16518 (void) _zdscal (n_, &s_, z_, &_k1);
16519 ynorm_ = s_ * ynorm_;
16520 k_ = 1;
16521 _l240:;
16522 if (k_ > (*n_)) {
16523 goto _l270;
16524 }
16525 ks_ = 1;
16526 if (kpvt_[k_ - 1] < 0) {
16527 ks_ = 2;
16528 }
16529 if (k_ == 1) {
16530 goto _l260;
16531 }
16532 z_[k_ - 1] = z_[k_ - 1] + _zdotc (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
16533 if (ks_ == 2) {
16534 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0],
16535 &_k1);
16536 }
16537 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
16538 if (kp_ == k_) {
16539 goto _l250;
16540 }
16541 t_ = z_[k_ - 1];
16542 z_[k_ - 1] = z_[kp_ - 1];
16543 z_[kp_ - 1] = t_;
16544 _l250:;
16545 _l260:;
16546 k_ = k_ + ks_;
16547 goto _l240;
16548 _l270:;
16549 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
16550 (void) _zdscal (n_, &s_, z_, &_k1);
16551 ynorm_ = s_ * ynorm_;
16552 if (anorm_ != 0.0e0) {
16553 (*rcond_) = ynorm_ / anorm_;
16554 }
16555 if (anorm_ == 0.0e0) {
16556 (*rcond_) = 0.0;
16557 }
16558 __calls[141].calls++;
16559 return 0;
16560 }
16561 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_,
16562 complex_16 _p_ work_, int_4 _p_ job_)
16563 { // ** body not listed **
16732 }
16733 int_4 _zhifa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
16734 { // ** body not listed **
16754 }
16755 goto _l200;
16756 _l20:;
16757 km1_ = k_ - 1;
16758 absakk_ = ({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag
16759 (zdum_1_));});
16760 imax_ = _izamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
16761 colmax_ = ({complex_16 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag
16762 (zdum_1_));});
16763 if (absakk_ < alpha_ * colmax_) {
16764 goto _l30;
16765 }
16766 kstep_ = 1;
16767 swap_ = FALSE;
16768 goto _l90;
16769 _l30:;
16770 rowmax_ = 0.0;
16771 imaxp1_ = imax_ + 1;
16772 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
16773 rowmax_ = _max (rowmax_, ({complex_16 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs (creal (zdum_1_)) + _abs
16774 (cimag (zdum_1_));}));
16775 }
16776 if (imax_ == 1) {
16777 goto _l50;
16778 }
16779 jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
16780 rowmax_ = _max (rowmax_, ({complex_16 zdum_1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum_1_)) +
16781 _abs (cimag (zdum_1_));}));
16782 _l50:;
16783 if (({complex_16 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag
16784 (zdum_1_));}) < alpha_ * rowmax_) {
16785 goto _l60;
16786 }
16787 kstep_ = 1;
16788 swap_ = TRUE;
16789 goto _l80;
16790 _l60:;
16791 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
16792 goto _l70;
16793 }
16794 kstep_ = 1;
16795 swap_ = FALSE;
16796 goto _l80;
16797 _l70:;
16798 kstep_ = 2;
16799 swap_ = imax_ != km1_;
16800 _l80:;
16801 _l90:;
16802 if (_max (absakk_, colmax_) != 0.0e0) {
16803 goto _l100;
16804 }
16805 kpvt_[k_ - 1] = k_;
16806 (*info_) = k_;
16807 goto _l190;
16808 _l100:;
16809 if (kstep_ == 2) {
16810 goto _l140;
16811 }
16812 if (! (swap_)) {
16813 goto _l120;
16814 }
16815 (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
16816 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
16817 j_ = k_ + imax_ - jj_;
16818 t_ = conj (a_[j_ - 1 + ((*lda_)) * ((k_ - 1))]);
16819 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = conj (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
16820 a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
16821 }
16822 _l120:;
16823 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
16824 j_ = k_ - jj_;
16825 mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
16826 t_ = conj (mulk_);
16827 (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
16828 a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLX (creal (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))]), 0.0);
16829 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
16830 }
16831 kpvt_[k_ - 1] = k_;
16832 if (swap_) {
16833 kpvt_[k_ - 1] = imax_;
16834 }
16835 goto _l190;
16836 _l140:;
16837 if (! (swap_)) {
16838 goto _l160;
16839 }
16840 (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
16841 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
16842 j_ = km1_ + imax_ - jj_;
16843 t_ = conj (a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))]);
16844 a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = conj (a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]);
16845 a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
16846 }
16847 t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
16848 a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
16849 a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
16850 _l160:;
16851 km2_ = k_ - 2;
16852 if (km2_ == 0) {
16853 goto _l180;
16854 }
16855 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
16856 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
16857 denom_ = 1.0e0 - ak_ * akm1_;
16858 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
16859 j_ = km1_ - jj_;
16860 bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
16861 bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / conj (a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))]);
16862 mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
16863 mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
16864 t_ = conj (mulk_);
16865 (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
16866 t_ = conj (mulkm1_);
16867 (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
16868 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
16869 a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
16870 a_[j_ - 1 + ((*lda_)) * ((j_ - 1))] = CMPLX (creal (a_[j_ - 1 + ((*lda_)) * ((j_ - 1))]), 0.0);
16871 }
16872 _l180:;
16873 kpvt_[k_ - 1] = 1 - k_;
16874 if (swap_) {
16875 kpvt_[k_ - 1] = -imax_;
16876 }
16877 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
16878 _l190:;
16879 k_ = k_ - kstep_;
16880 goto _l10;
16881 _l200:;
16882 __calls[143].calls++;
16883 return 0;
16884 }
16885 int_4 _zhisl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
16886 { // ** body not listed **
16986 }
16987 int_4 _zhpco (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
16988 { // ** body not listed **
17045 }
17046 z_[k_ - 1] = z_[k_ - 1] + ek_;
17047 (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
17048 if (ks_ == 1) {
17049 goto _l80;
17050 }
17051 if (({complex_16 zdum_1_ = z_[k_ - 1 - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) != 0.0e0) {
17052 ek_ = ({complex_16 zdum_1_ = ek_; complex_16 zdum2_1_ = z_[k_ - 1 - 1]; ({complex_16 zdum_2_ = zdum_1_; _abs (creal
17053 (zdum_2_)) + _abs (cimag (zdum_2_));}) * (zdum2_1_ / ({complex_16 zdum_2_ = zdum2_1_; _abs (creal (zdum_2_)) + _abs
17054 (cimag (zdum_2_));}));});
17055 }
17056 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
17057 (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
17058 _l80:;
17059 if (ks_ == 2) {
17060 goto _l100;
17061 }
17062 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
17063 ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
17064 goto _l90;
17065 }
17066 s_ = ({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) / ({complex_16 zdum_1_ =
17067 z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
17068 (void) _zdscal (n_, &s_, z_, &_k1);
17069 ek_ = CMPLX (s_, 0.0) * ek_;
17070 _l90:;
17071 if (({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) != 0.0e0) {
17072 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
17073 }
17074 if (({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
17075 z_[k_ - 1] = CMPLX (1.0, 0.0);
17076 }
17077 goto _l110;
17078 _l100:;
17079 km1k_ = ik_ + k_ - 1;
17080 km1km1_ = ikm1_ + k_ - 1;
17081 ak_ = ap_[kk_ - 1] / conj (ap_[km1k_ - 1]);
17082 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
17083 bk_ = z_[k_ - 1] / conj (ap_[km1k_ - 1]);
17084 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
17085 denom_ = ak_ * akm1_ - 1.0e0;
17086 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
17087 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
17088 _l110:;
17089 k_ = k_ - ks_;
17090 ik_ = ik_ - k_;
17091 if (ks_ == 2) {
17092 ik_ = ik_ - (k_ + 1);
17093 }
17094 goto _l60;
17095 _l120:;
17096 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
17097 (void) _zdscal (n_, &s_, z_, &_k1);
17098 k_ = 1;
17099 ik_ = 0;
17100 _l130:;
17101 if (k_ > (*n_)) {
17102 goto _l160;
17103 }
17104 ks_ = 1;
17105 if (kpvt_[k_ - 1] < 0) {
17106 ks_ = 2;
17107 }
17108 if (k_ == 1) {
17109 goto _l150;
17110 }
17111 z_[k_ - 1] = z_[k_ - 1] + _zdotc (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
17112 ikp1_ = ik_ + k_;
17113 if (ks_ == 2) {
17114 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
17115 }
17116 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
17117 if (kp_ == k_) {
17118 goto _l140;
17119 }
17120 t_ = z_[k_ - 1];
17121 z_[k_ - 1] = z_[kp_ - 1];
17122 z_[kp_ - 1] = t_;
17123 _l140:;
17124 _l150:;
17125 ik_ = ik_ + k_;
17126 if (ks_ == 2) {
17127 ik_ = ik_ + (k_ + 1);
17128 }
17129 k_ = k_ + ks_;
17130 goto _l130;
17131 _l160:;
17132 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
17133 (void) _zdscal (n_, &s_, z_, &_k1);
17134 ynorm_ = 1.0;
17135 k_ = (*n_);
17136 ik_ = (*n_) * ((*n_) - 1) / 2;
17137 _l170:;
17138 if (k_ == 0) {
17139 goto _l230;
17140 }
17141 kk_ = ik_ + k_;
17142 ikm1_ = ik_ - (k_ - 1);
17143 ks_ = 1;
17144 if (kpvt_[k_ - 1] < 0) {
17145 ks_ = 2;
17146 }
17147 if (k_ == ks_) {
17148 goto _l190;
17149 }
17150 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
17151 kps_ = k_ + 1 - ks_;
17152 if (kp_ == kps_) {
17153 goto _l180;
17154 }
17155 t_ = z_[kps_ - 1];
17156 z_[kps_ - 1] = z_[kp_ - 1];
17157 z_[kp_ - 1] = t_;
17158 _l180:;
17159 (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
17160 if (ks_ == 2) {
17161 (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
17162 }
17163 _l190:;
17164 if (ks_ == 2) {
17165 goto _l210;
17166 }
17167 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
17168 ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
17169 goto _l200;
17170 }
17171 s_ = ({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) / ({complex_16 zdum_1_ =
17172 z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
17173 (void) _zdscal (n_, &s_, z_, &_k1);
17174 ynorm_ = s_ * ynorm_;
17175 _l200:;
17176 if (({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) != 0.0e0) {
17177 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
17178 }
17179 if (({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
17180 z_[k_ - 1] = CMPLX (1.0, 0.0);
17181 }
17182 goto _l220;
17183 _l210:;
17184 km1k_ = ik_ + k_ - 1;
17185 km1km1_ = ikm1_ + k_ - 1;
17186 ak_ = ap_[kk_ - 1] / conj (ap_[km1k_ - 1]);
17187 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
17188 bk_ = z_[k_ - 1] / conj (ap_[km1k_ - 1]);
17189 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
17190 denom_ = ak_ * akm1_ - 1.0e0;
17191 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
17192 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
17193 _l220:;
17194 k_ = k_ - ks_;
17195 ik_ = ik_ - k_;
17196 if (ks_ == 2) {
17197 ik_ = ik_ - (k_ + 1);
17198 }
17199 goto _l170;
17200 _l230:;
17201 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
17202 (void) _zdscal (n_, &s_, z_, &_k1);
17203 ynorm_ = s_ * ynorm_;
17204 k_ = 1;
17205 ik_ = 0;
17206 _l240:;
17207 if (k_ > (*n_)) {
17208 goto _l270;
17209 }
17210 ks_ = 1;
17211 if (kpvt_[k_ - 1] < 0) {
17212 ks_ = 2;
17213 }
17214 if (k_ == 1) {
17215 goto _l260;
17216 }
17217 z_[k_ - 1] = z_[k_ - 1] + _zdotc (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
17218 ikp1_ = ik_ + k_;
17219 if (ks_ == 2) {
17220 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotc (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
17221 }
17222 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
17223 if (kp_ == k_) {
17224 goto _l250;
17225 }
17226 t_ = z_[k_ - 1];
17227 z_[k_ - 1] = z_[kp_ - 1];
17228 z_[kp_ - 1] = t_;
17229 _l250:;
17230 _l260:;
17231 ik_ = ik_ + k_;
17232 if (ks_ == 2) {
17233 ik_ = ik_ + (k_ + 1);
17234 }
17235 k_ = k_ + ks_;
17236 goto _l240;
17237 _l270:;
17238 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
17239 (void) _zdscal (n_, &s_, z_, &_k1);
17240 ynorm_ = s_ * ynorm_;
17241 if (anorm_ != 0.0e0) {
17242 (*rcond_) = ynorm_ / anorm_;
17243 }
17244 if (anorm_ == 0.0e0) {
17245 (*rcond_) = 0.0;
17246 }
17247 __calls[145].calls++;
17248 return 0;
17249 }
17250 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_
17251 work_, int_4 _p_ job_)
17252 { // ** body not listed **
17441 }
17442 int_4 _zhpfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
17443 { // ** body not listed **
17465 }
17466 goto _l200;
17467 _l20:;
17468 km1_ = k_ - 1;
17469 kk_ = ik_ + k_;
17470 absakk_ = ({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
17471 imax_ = _izamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
17472 imk_ = ik_ + imax_;
17473 colmax_ = ({complex_16 zdum_1_ = ap_[imk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
17474 if (absakk_ < alpha_ * colmax_) {
17475 goto _l30;
17476 }
17477 kstep_ = 1;
17478 swap_ = FALSE;
17479 goto _l90;
17480 _l30:;
17481 rowmax_ = 0.0;
17482 imaxp1_ = imax_ + 1;
17483 im_ = imax_ * (imax_ - 1) / 2;
17484 imj_ = im_ + 2 * imax_;
17485 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
17486 rowmax_ = _max (rowmax_, ({complex_16 zdum_1_ = ap_[imj_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}));
17487 imj_ = imj_ + j_;
17488 }
17489 if (imax_ == 1) {
17490 goto _l50;
17491 }
17492 jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
17493 jmim_ = jmax_ + im_;
17494 rowmax_ = _max (rowmax_, ({complex_16 zdum_1_ = ap_[jmim_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}));
17495 _l50:;
17496 imim_ = imax_ + im_;
17497 if (({complex_16 zdum_1_ = ap_[imim_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) < alpha_ * rowmax_) {
17498 goto _l60;
17499 }
17500 kstep_ = 1;
17501 swap_ = TRUE;
17502 goto _l80;
17503 _l60:;
17504 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
17505 goto _l70;
17506 }
17507 kstep_ = 1;
17508 swap_ = FALSE;
17509 goto _l80;
17510 _l70:;
17511 kstep_ = 2;
17512 swap_ = imax_ != km1_;
17513 _l80:;
17514 _l90:;
17515 if (_max (absakk_, colmax_) != 0.0e0) {
17516 goto _l100;
17517 }
17518 kpvt_[k_ - 1] = k_;
17519 (*info_) = k_;
17520 goto _l190;
17521 _l100:;
17522 if (kstep_ == 2) {
17523 goto _l140;
17524 }
17525 if (! (swap_)) {
17526 goto _l120;
17527 }
17528 (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
17529 imj_ = ik_ + imax_;
17530 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
17531 j_ = k_ + imax_ - jj_;
17532 jk_ = ik_ + j_;
17533 t_ = conj (ap_[jk_ - 1]);
17534 ap_[jk_ - 1] = conj (ap_[imj_ - 1]);
17535 ap_[imj_ - 1] = t_;
17536 imj_ = imj_ - (j_ - 1);
17537 }
17538 _l120:;
17539 ij_ = ik_ - (k_ - 1);
17540 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
17541 j_ = k_ - jj_;
17542 jk_ = ik_ + j_;
17543 mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
17544 t_ = conj (mulk_);
17545 (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
17546 ijj_ = ij_ + j_;
17547 ap_[ijj_ - 1] = CMPLX (creal (ap_[ijj_ - 1]), 0.0);
17548 ap_[jk_ - 1] = mulk_;
17549 ij_ = ij_ - (j_ - 1);
17550 }
17551 kpvt_[k_ - 1] = k_;
17552 if (swap_) {
17553 kpvt_[k_ - 1] = imax_;
17554 }
17555 goto _l190;
17556 _l140:;
17557 km1k_ = ik_ + k_ - 1;
17558 ikm1_ = ik_ - (k_ - 1);
17559 if (! (swap_)) {
17560 goto _l160;
17561 }
17562 (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
17563 imj_ = ikm1_ + imax_;
17564 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
17565 j_ = km1_ + imax_ - jj_;
17566 jkm1_ = ikm1_ + j_;
17567 t_ = conj (ap_[jkm1_ - 1]);
17568 ap_[jkm1_ - 1] = conj (ap_[imj_ - 1]);
17569 ap_[imj_ - 1] = t_;
17570 imj_ = imj_ - (j_ - 1);
17571 }
17572 t_ = ap_[km1k_ - 1];
17573 ap_[km1k_ - 1] = ap_[imk_ - 1];
17574 ap_[imk_ - 1] = t_;
17575 _l160:;
17576 km2_ = k_ - 2;
17577 if (km2_ == 0) {
17578 goto _l180;
17579 }
17580 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
17581 km1km1_ = ikm1_ + k_ - 1;
17582 akm1_ = ap_[km1km1_ - 1] / conj (ap_[km1k_ - 1]);
17583 denom_ = 1.0e0 - ak_ * akm1_;
17584 ij_ = ik_ - (k_ - 1) - (k_ - 2);
17585 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
17586 j_ = km1_ - jj_;
17587 jk_ = ik_ + j_;
17588 bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
17589 jkm1_ = ikm1_ + j_;
17590 bkm1_ = ap_[jkm1_ - 1] / conj (ap_[km1k_ - 1]);
17591 mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
17592 mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
17593 t_ = conj (mulk_);
17594 (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
17595 t_ = conj (mulkm1_);
17596 (void) _zaxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
17597 ap_[jk_ - 1] = mulk_;
17598 ap_[jkm1_ - 1] = mulkm1_;
17599 ijj_ = ij_ + j_;
17600 ap_[ijj_ - 1] = CMPLX (creal (ap_[ijj_ - 1]), 0.0);
17601 ij_ = ij_ - (j_ - 1);
17602 }
17603 _l180:;
17604 kpvt_[k_ - 1] = 1 - k_;
17605 if (swap_) {
17606 kpvt_[k_ - 1] = -imax_;
17607 }
17608 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
17609 _l190:;
17610 ik_ = ik_ - (k_ - 1);
17611 if (kstep_ == 2) {
17612 ik_ = ik_ - (k_ - 2);
17613 }
17614 k_ = k_ - kstep_;
17615 goto _l10;
17616 _l200:;
17617 __calls[147].calls++;
17618 return 0;
17619 }
17620 int_4 _zhpsl (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
17621 { // ** body not listed **
17732 }
17733 real_8 _zmach (int_4 _p_ job_)
17734 { // ** body not listed **
17769 }
17770 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_,
17771 int_4 _p_ info_)
17772 { // ** body not listed **
17814 }
17815 s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum_1_ = ek_ - z_[k_ - 1]; _abs (creal
17816 (zdum_1_)) + _abs (cimag (zdum_1_));});
17817 (void) _zdscal (n_, &s_, z_, &_k1);
17818 ek_ = CMPLX (s_, 0.0) * ek_;
17819 _l60:;
17820 wk_ = ek_ - z_[k_ - 1];
17821 wkm_ = -ek_ - z_[k_ - 1];
17822 s_ = ({complex_16 zdum_1_ = wk_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
17823 sm_ = ({complex_16 zdum_1_ = wkm_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
17824 wk_ = wk_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
17825 wkm_ = wkm_ / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
17826 kp1_ = k_ + 1;
17827 j2_ = _min (k_ + (*m_), (*n_));
17828 i_ = (*m_) + 1;
17829 if (kp1_ > j2_) {
17830 goto _l100;
17831 }
17832 for (j_ = kp1_; j_ <= j2_; (j_)++) {
17833 i_ = i_ - 1;
17834 sm_ = sm_ + ({complex_16 zdum_1_ = z_[j_ - 1] + wkm_ * conj (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal
17835 (zdum_1_)) + _abs (cimag (zdum_1_));});
17836 z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
17837 s_ = s_ + ({complex_16 zdum_1_ = z_[j_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
17838 }
17839 if (s_ >= sm_) {
17840 goto _l90;
17841 }
17842 t_ = wkm_ - wk_;
17843 wk_ = wkm_;
17844 i_ = (*m_) + 1;
17845 for (j_ = kp1_; j_ <= j2_; (j_)++) {
17846 i_ = i_ - 1;
17847 z_[j_ - 1] = z_[j_ - 1] + t_ * conj (abd_[i_ - 1 + ((*lda_)) * ((j_ - 1))]);
17848 }
17849 _l90:;
17850 _l100:;
17851 z_[k_ - 1] = wk_;
17852 }
17853 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
17854 (void) _zdscal (n_, &s_, z_, &_k1);
17855 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
17856 k_ = (*n_) + 1 - kb_;
17857 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= creal (abd_[(*m_) + 1 - 1
17858 + ((*lda_)) * ((k_ - 1))])) {
17859 goto _l120;
17860 }
17861 s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) +
17862 _abs (cimag (zdum_1_));});
17863 (void) _zdscal (n_, &s_, z_, &_k1);
17864 _l120:;
17865 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
17866 lm_ = _min (k_ - 1, (*m_));
17867 la_ = (*m_) + 1 - lm_;
17868 lb_ = k_ - lm_;
17869 t_ = -z_[k_ - 1];
17870 (void) _zaxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
17871 }
17872 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
17873 (void) _zdscal (n_, &s_, z_, &_k1);
17874 ynorm_ = 1.0;
17875 for (k_ = 1; k_ <= (*n_); (k_)++) {
17876 lm_ = _min (k_ - 1, (*m_));
17877 la_ = (*m_) + 1 - lm_;
17878 lb_ = k_ - lm_;
17879 z_[k_ - 1] = z_[k_ - 1] - _zdotc (&lm_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
17880 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= creal (abd_[(*m_) + 1 - 1
17881 + ((*lda_)) * ((k_ - 1))])) {
17882 goto _l140;
17883 }
17884 s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) +
17885 _abs (cimag (zdum_1_));});
17886 (void) _zdscal (n_, &s_, z_, &_k1);
17887 ynorm_ = s_ * ynorm_;
17888 _l140:;
17889 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
17890 }
17891 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
17892 (void) _zdscal (n_, &s_, z_, &_k1);
17893 ynorm_ = s_ * ynorm_;
17894 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
17895 k_ = (*n_) + 1 - kb_;
17896 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= creal (abd_[(*m_) + 1 - 1
17897 + ((*lda_)) * ((k_ - 1))])) {
17898 goto _l160;
17899 }
17900 s_ = creal (abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) +
17901 _abs (cimag (zdum_1_));});
17902 (void) _zdscal (n_, &s_, z_, &_k1);
17903 ynorm_ = s_ * ynorm_;
17904 _l160:;
17905 z_[k_ - 1] = z_[k_ - 1] / abd_[(*m_) + 1 - 1 + ((*lda_)) * ((k_ - 1))];
17906 lm_ = _min (k_ - 1, (*m_));
17907 la_ = (*m_) + 1 - lm_;
17908 lb_ = k_ - lm_;
17909 t_ = -z_[k_ - 1];
17910 (void) _zaxpy (&lm_, &t_, &abd_[la_ - 1 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[lb_ - 1], &_k1);
17911 }
17912 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
17913 (void) _zdscal (n_, &s_, z_, &_k1);
17914 ynorm_ = s_ * ynorm_;
17915 if (anorm_ != 0.0e0) {
17916 (*rcond_) = ynorm_ / anorm_;
17917 }
17918 if (anorm_ == 0.0e0) {
17919 (*rcond_) = 0.0;
17920 }
17921 _l180:;
17922 __calls[150].calls++;
17923 return 0;
17924 }
17925 int_4 _zpbdi (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ det_)
17926 { // ** body not listed **
17959 }
17960 int_4 _zpbfa (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ info_)
17961 { // ** body not listed **
17996 }
17997 int_4 _zpbsl (complex_16 _p_ abd_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ m_, complex_16 _p_ b_)
17998 { // ** body not listed **
18020 }
18021 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_)
18022 { // ** body not listed **
18062 }
18063 s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum_1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum_1_)) +
18064 _abs (cimag (zdum_1_));});
18065 (void) _zdscal (n_, &s_, z_, &_k1);
18066 ek_ = CMPLX (s_, 0.0) * ek_;
18067 _l60:;
18068 wk_ = ek_ - z_[k_ - 1];
18069 wkm_ = -ek_ - z_[k_ - 1];
18070 s_ = ({complex_16 zdum_1_ = wk_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
18071 sm_ = ({complex_16 zdum_1_ = wkm_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
18072 wk_ = wk_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
18073 wkm_ = wkm_ / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
18074 kp1_ = k_ + 1;
18075 if (kp1_ > (*n_)) {
18076 goto _l100;
18077 }
18078 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
18079 sm_ = sm_ + ({complex_16 zdum_1_ = z_[j_ - 1] + wkm_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]); _abs (creal
18080 (zdum_1_)) + _abs (cimag (zdum_1_));});
18081 z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
18082 s_ = s_ + ({complex_16 zdum_1_ = z_[j_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
18083 }
18084 if (s_ >= sm_) {
18085 goto _l90;
18086 }
18087 t_ = wkm_ - wk_;
18088 wk_ = wkm_;
18089 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
18090 z_[j_ - 1] = z_[j_ - 1] + t_ * conj (a_[k_ - 1 + ((*lda_)) * ((j_ - 1))]);
18091 }
18092 _l90:;
18093 _l100:;
18094 z_[k_ - 1] = wk_;
18095 }
18096 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
18097 (void) _zdscal (n_, &s_, z_, &_k1);
18098 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
18099 k_ = (*n_) + 1 - kb_;
18100 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= creal (a_[k_ - 1 +
18101 ((*lda_)) * ((k_ - 1))])) {
18102 goto _l120;
18103 }
18104 s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs
18105 (cimag (zdum_1_));});
18106 (void) _zdscal (n_, &s_, z_, &_k1);
18107 _l120:;
18108 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
18109 t_ = -z_[k_ - 1];
18110 (void) _zaxpy (($0_ = k_ - 1, &$0_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
18111 }
18112 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
18113 (void) _zdscal (n_, &s_, z_, &_k1);
18114 ynorm_ = 1.0;
18115 for (k_ = 1; k_ <= (*n_); (k_)++) {
18116 z_[k_ - 1] = z_[k_ - 1] - _zdotc (($1_ = k_ - 1, &$1_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
18117 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= creal (a_[k_ - 1 +
18118 ((*lda_)) * ((k_ - 1))])) {
18119 goto _l140;
18120 }
18121 s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs
18122 (cimag (zdum_1_));});
18123 (void) _zdscal (n_, &s_, z_, &_k1);
18124 ynorm_ = s_ * ynorm_;
18125 _l140:;
18126 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
18127 }
18128 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
18129 (void) _zdscal (n_, &s_, z_, &_k1);
18130 ynorm_ = s_ * ynorm_;
18131 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
18132 k_ = (*n_) + 1 - kb_;
18133 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= creal (a_[k_ - 1 +
18134 ((*lda_)) * ((k_ - 1))])) {
18135 goto _l160;
18136 }
18137 s_ = creal (a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]) / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs
18138 (cimag (zdum_1_));});
18139 (void) _zdscal (n_, &s_, z_, &_k1);
18140 ynorm_ = s_ * ynorm_;
18141 _l160:;
18142 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
18143 t_ = -z_[k_ - 1];
18144 (void) _zaxpy (($2_ = k_ - 1, &$2_), &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
18145 }
18146 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
18147 (void) _zdscal (n_, &s_, z_, &_k1);
18148 ynorm_ = s_ * ynorm_;
18149 if (anorm_ != 0.0e0) {
18150 (*rcond_) = ynorm_ / anorm_;
18151 }
18152 if (anorm_ == 0.0e0) {
18153 (*rcond_) = 0.0;
18154 }
18155 _l180:;
18156 __calls[154].calls++;
18157 return 0;
18158 }
18159 int_4 _zpodi (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
18160 { // ** body not listed **
18230 }
18231 int_4 _zpofa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
18232 { // ** body not listed **
18263 }
18264 int_4 _zposl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_16 _p_ b_)
18265 { // ** body not listed **
18282 }
18283 int_4 _zppco (complex_16 _p_ ap_, int_4 _p_ n_, real_8 _p_ rcond_, complex_16 _p_ z_, int_4 _p_ info_)
18284 { // ** body not listed **
18330 }
18331 s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum_1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})
18332 ;
18333 (void) _zdscal (n_, &s_, z_, &_k1);
18334 ek_ = CMPLX (s_, 0.0) * ek_;
18335 _l60:;
18336 wk_ = ek_ - z_[k_ - 1];
18337 wkm_ = -ek_ - z_[k_ - 1];
18338 s_ = ({complex_16 zdum_1_ = wk_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
18339 sm_ = ({complex_16 zdum_1_ = wkm_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
18340 wk_ = wk_ / ap_[kk_ - 1];
18341 wkm_ = wkm_ / ap_[kk_ - 1];
18342 kp1_ = k_ + 1;
18343 kj_ = kk_ + k_;
18344 if (kp1_ > (*n_)) {
18345 goto _l100;
18346 }
18347 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
18348 sm_ = sm_ + ({complex_16 zdum_1_ = z_[j_ - 1] + wkm_ * conj (ap_[kj_ - 1]); _abs (creal (zdum_1_)) + _abs (cimag
18349 (zdum_1_));});
18350 z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (ap_[kj_ - 1]);
18351 s_ = s_ + ({complex_16 zdum_1_ = z_[j_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
18352 kj_ = kj_ + j_;
18353 }
18354 if (s_ >= sm_) {
18355 goto _l90;
18356 }
18357 t_ = wkm_ - wk_;
18358 wk_ = wkm_;
18359 kj_ = kk_ + k_;
18360 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
18361 z_[j_ - 1] = z_[j_ - 1] + t_ * conj (ap_[kj_ - 1]);
18362 kj_ = kj_ + j_;
18363 }
18364 _l90:;
18365 _l100:;
18366 z_[k_ - 1] = wk_;
18367 }
18368 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
18369 (void) _zdscal (n_, &s_, z_, &_k1);
18370 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
18371 k_ = (*n_) + 1 - kb_;
18372 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= creal (ap_[kk_ - 1])) {
18373 goto _l120;
18374 }
18375 s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
18376 (void) _zdscal (n_, &s_, z_, &_k1);
18377 _l120:;
18378 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
18379 kk_ = kk_ - k_;
18380 t_ = -z_[k_ - 1];
18381 (void) _zaxpy (($0_ = k_ - 1, &$0_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
18382 }
18383 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
18384 (void) _zdscal (n_, &s_, z_, &_k1);
18385 ynorm_ = 1.0;
18386 for (k_ = 1; k_ <= (*n_); (k_)++) {
18387 z_[k_ - 1] = z_[k_ - 1] - _zdotc (($1_ = k_ - 1, &$1_), &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
18388 kk_ = kk_ + k_;
18389 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= creal (ap_[kk_ - 1])) {
18390 goto _l140;
18391 }
18392 s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
18393 (void) _zdscal (n_, &s_, z_, &_k1);
18394 ynorm_ = s_ * ynorm_;
18395 _l140:;
18396 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
18397 }
18398 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
18399 (void) _zdscal (n_, &s_, z_, &_k1);
18400 ynorm_ = s_ * ynorm_;
18401 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
18402 k_ = (*n_) + 1 - kb_;
18403 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= creal (ap_[kk_ - 1])) {
18404 goto _l160;
18405 }
18406 s_ = creal (ap_[kk_ - 1]) / ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
18407 (void) _zdscal (n_, &s_, z_, &_k1);
18408 ynorm_ = s_ * ynorm_;
18409 _l160:;
18410 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
18411 kk_ = kk_ - k_;
18412 t_ = -z_[k_ - 1];
18413 (void) _zaxpy (($2_ = k_ - 1, &$2_), &t_, &ap_[kk_ + 1 - 1], &_k1, &z_[0], &_k1);
18414 }
18415 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
18416 (void) _zdscal (n_, &s_, z_, &_k1);
18417 ynorm_ = s_ * ynorm_;
18418 if (anorm_ != 0.0e0) {
18419 (*rcond_) = ynorm_ / anorm_;
18420 }
18421 if (anorm_ == 0.0e0) {
18422 (*rcond_) = 0.0;
18423 }
18424 _l180:;
18425 __calls[158].calls++;
18426 return 0;
18427 }
18428 int_4 _zppdi (complex_16 _p_ ap_, int_4 _p_ n_, real_8 _p_ det_, int_4 _p_ job_)
18429 { // ** body not listed **
18515 }
18516 int_4 _zppfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ info_)
18517 { // ** body not listed **
18553 }
18554 int_4 _zppsl (complex_16 _p_ ap_, int_4 _p_ n_, complex_16 _p_ b_)
18555 { // ** body not listed **
18575 }
18576 int_4 _zptsl (int_4 _p_ n_, complex_16 _p_ d_, complex_16 _p_ e_, complex_16 _p_ b_)
18577 { // ** body not listed **
18629 }
18630 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_,
18631 complex_16 _p_ work_, int_4 _p_ job_)
18632 { // ** body not listed **
18730 }
18731 (void) _zscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = CMPLX (1.0, 0.0) / nrmxl_, &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ -
18732 1))], &_k1);
18733 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLX (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
18734 lp1_ = l_ + 1;
18735 if ((*p_) < lp1_) {
18736 goto _l170;
18737 }
18738 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
18739 t_ = -_zdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ -
18740 1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
18741 (void) _zaxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) *
18742 ((j_ - 1))], &_k1);
18743 if (j_ < pl_ || j_ > pu_) {
18744 goto _l150;
18745 }
18746 if (({complex_16 zdum_1_ = qraux_[j_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
18747 goto _l150;
18748 }
18749 tt_ = 1.0e0 - ($5_ = (cabs (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]) / creal (qraux_[j_ - 1])), $5_ * $5_);
18750 tt_ = _max (tt_, 0.0);
18751 t_ = CMPLX (tt_, 0.0);
18752 tt_ = 1.0e0 + 0.05e0 * tt_ * ($6_ = (creal (qraux_[j_ - 1]) / creal (work_[j_ - 1])), $6_ * $6_);
18753 if (tt_ == 1.0e0) {
18754 goto _l130;
18755 }
18756 qraux_[j_ - 1] = qraux_[j_ - 1] * csqrt (t_);
18757 goto _l140;
18758 _l130:;
18759 qraux_[j_ - 1] = CMPLX (_dznrm2 (($7_ = (*n_) - l_, &$7_), &x_[l_ + 1 - 1 + ((*ldx_)) * ((j_ - 1))], &_k1), 0.0);
18760 work_[j_ - 1] = qraux_[j_ - 1];
18761 _l140:;
18762 _l150:;
18763 }
18764 _l170:;
18765 qraux_[l_ - 1] = x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
18766 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = -nrmxl_;
18767 _l180:;
18768 _l190:;
18769 }
18770 __calls[163].calls++;
18771 return 0;
18772 }
18773 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_,
18774 complex_16 _p_ qy_, complex_16 _p_ qty_, complex_16 _p_ b_, complex_16 _p_ rsd_, complex_16 _p_ xb_, int_4 _p_ job_,
18775 int_4 _p_ info_)
18776 { // ** body not listed **
18806 }
18807 (*info_) = 1;
18808 goto _l20;
18809 _l10:;
18810 b_[0] = y_[0] / x_[0 + ((*ldx_)) * ((0))];
18811 _l20:;
18812 _l30:;
18813 if (cr_) {
18814 rsd_[0] = CMPLX (0.0, 0.0);
18815 }
18816 goto _l250;
18817 _l40:;
18818 if (cqy_) {
18819 (void) _zcopy (n_, y_, &_k1, qy_, &_k1);
18820 }
18821 if (cqty_) {
18822 (void) _zcopy (n_, y_, &_k1, qty_, &_k1);
18823 }
18824 if (! (cqy_)) {
18825 goto _l70;
18826 }
18827 for (jj_ = 1; jj_ <= ju_; (jj_)++) {
18828 j_ = ju_ - jj_ + 1;
18829 if (({complex_16 zdum_1_ = qraux_[j_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
18830 goto _l50;
18831 }
18832 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
18833 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
18834 t_ = -_zdotc (($0_ = (*n_) - j_ + 1, &$0_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1) / x_[j_ - 1
18835 + ((*ldx_)) * ((j_ - 1))];
18836 (void) _zaxpy (($1_ = (*n_) - j_ + 1, &$1_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qy_[j_ - 1], &_k1);
18837 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
18838 _l50:;
18839 }
18840 _l70:;
18841 if (! (cqty_)) {
18842 goto _l100;
18843 }
18844 for (j_ = 1; j_ <= ju_; (j_)++) {
18845 if (({complex_16 zdum_1_ = qraux_[j_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
18846 goto _l80;
18847 }
18848 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
18849 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
18850 t_ = -_zdotc (($2_ = (*n_) - j_ + 1, &$2_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1) / x_[j_ -
18851 1 + ((*ldx_)) * ((j_ - 1))];
18852 (void) _zaxpy (($3_ = (*n_) - j_ + 1, &$3_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &qty_[j_ - 1], &_k1);
18853 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
18854 _l80:;
18855 }
18856 _l100:;
18857 if (cb_) {
18858 (void) _zcopy (k_, qty_, &_k1, b_, &_k1);
18859 }
18860 kp1_ = (*k_) + 1;
18861 if (cxb_) {
18862 (void) _zcopy (k_, qty_, &_k1, xb_, &_k1);
18863 }
18864 if (cr_ && (*k_) < (*n_)) {
18865 (void) _zcopy (($4_ = (*n_) - (*k_), &$4_), &qty_[kp1_ - 1], &_k1, &rsd_[kp1_ - 1], &_k1);
18866 }
18867 if (! (cxb_) || kp1_ > (*n_)) {
18868 goto _l120;
18869 }
18870 for (i_ = kp1_; i_ <= (*n_); (i_)++) {
18871 xb_[i_ - 1] = CMPLX (0.0, 0.0);
18872 }
18873 _l120:;
18874 if (! (cr_)) {
18875 goto _l140;
18876 }
18877 for (i_ = 1; i_ <= (*k_); (i_)++) {
18878 rsd_[i_ - 1] = CMPLX (0.0, 0.0);
18879 }
18880 _l140:;
18881 if (! (cb_)) {
18882 goto _l190;
18883 }
18884 for (jj_ = 1; jj_ <= (*k_); (jj_)++) {
18885 j_ = (*k_) - jj_ + 1;
18886 if (({complex_16 zdum_1_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) !=
18887 0.0e0) {
18888 goto _l150;
18889 }
18890 (*info_) = j_;
18891 goto _l180;
18892 _l150:;
18893 b_[j_ - 1] = b_[j_ - 1] / x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
18894 if (j_ == 1) {
18895 goto _l160;
18896 }
18897 t_ = -b_[j_ - 1];
18898 (void) _zaxpy (($5_ = j_ - 1, &$5_), &t_, &x_[0 + ((*ldx_)) * ((j_ - 1))], &_k1, b_, &_k1);
18899 _l160:;
18900 }
18901 _l180:;
18902 _l190:;
18903 if (! (cr_) && ! (cxb_)) {
18904 goto _l240;
18905 }
18906 for (jj_ = 1; jj_ <= ju_; (jj_)++) {
18907 j_ = ju_ - jj_ + 1;
18908 if (({complex_16 zdum_1_ = qraux_[j_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
18909 goto _l220;
18910 }
18911 temp_ = x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))];
18912 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = qraux_[j_ - 1];
18913 if (! (cr_)) {
18914 goto _l200;
18915 }
18916 t_ = -_zdotc (($6_ = (*n_) - j_ + 1, &$6_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1) / x_[j_ -
18917 1 + ((*ldx_)) * ((j_ - 1))];
18918 (void) _zaxpy (($7_ = (*n_) - j_ + 1, &$7_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &rsd_[j_ - 1], &_k1);
18919 _l200:;
18920 if (! (cxb_)) {
18921 goto _l210;
18922 }
18923 t_ = -_zdotc (($8_ = (*n_) - j_ + 1, &$8_), &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1) / x_[j_ - 1
18924 + ((*ldx_)) * ((j_ - 1))];
18925 (void) _zaxpy (($9_ = (*n_) - j_ + 1, &$9_), &t_, &x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &xb_[j_ - 1], &_k1);
18926 _l210:;
18927 x_[j_ - 1 + ((*ldx_)) * ((j_ - 1))] = temp_;
18928 _l220:;
18929 }
18930 _l240:;
18931 _l250:;
18932 __calls[164].calls++;
18933 return 0;
18934 }
18935 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_)
18936 { // ** body not listed **
18986 }
18987 z_[k_ - 1] = z_[k_ - 1] + ek_;
18988 (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
18989 if (ks_ == 1) {
18990 goto _l80;
18991 }
18992 if (({complex_16 zdum_1_ = z_[k_ - 1 - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) != 0.0e0) {
18993 ek_ = ({complex_16 zdum_1_ = ek_; complex_16 zdum2_1_ = z_[k_ - 1 - 1]; ({complex_16 zdum_2_ = zdum_1_; _abs (creal
18994 (zdum_2_)) + _abs (cimag (zdum_2_));}) * (zdum2_1_ / ({complex_16 zdum_2_ = zdum2_1_; _abs (creal (zdum_2_)) + _abs
18995 (cimag (zdum_2_));}));});
18996 }
18997 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
18998 (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
18999 _l80:;
19000 if (ks_ == 2) {
19001 goto _l100;
19002 }
19003 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
19004 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
19005 goto _l90;
19006 }
19007 s_ = ({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) /
19008 ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
19009 (void) _zdscal (n_, &s_, z_, &_k1);
19010 ek_ = CMPLX (s_, 0.0) * ek_;
19011 _l90:;
19012 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) !=
19013 0.0e0) {
19014 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
19015 }
19016 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
19017 0.0e0) {
19018 z_[k_ - 1] = CMPLX (1.0, 0.0);
19019 }
19020 goto _l110;
19021 _l100:;
19022 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19023 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19024 bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19025 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19026 denom_ = ak_ * akm1_ - 1.0e0;
19027 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
19028 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
19029 _l110:;
19030 k_ = k_ - ks_;
19031 goto _l60;
19032 _l120:;
19033 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
19034 (void) _zdscal (n_, &s_, z_, &_k1);
19035 k_ = 1;
19036 _l130:;
19037 if (k_ > (*n_)) {
19038 goto _l160;
19039 }
19040 ks_ = 1;
19041 if (kpvt_[k_ - 1] < 0) {
19042 ks_ = 2;
19043 }
19044 if (k_ == 1) {
19045 goto _l150;
19046 }
19047 z_[k_ - 1] = z_[k_ - 1] + _zdotu (($2_ = k_ - 1, &$2_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
19048 if (ks_ == 2) {
19049 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($3_ = k_ - 1, &$3_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0],
19050 &_k1);
19051 }
19052 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
19053 if (kp_ == k_) {
19054 goto _l140;
19055 }
19056 t_ = z_[k_ - 1];
19057 z_[k_ - 1] = z_[kp_ - 1];
19058 z_[kp_ - 1] = t_;
19059 _l140:;
19060 _l150:;
19061 k_ = k_ + ks_;
19062 goto _l130;
19063 _l160:;
19064 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
19065 (void) _zdscal (n_, &s_, z_, &_k1);
19066 ynorm_ = 1.0;
19067 k_ = (*n_);
19068 _l170:;
19069 if (k_ == 0) {
19070 goto _l230;
19071 }
19072 ks_ = 1;
19073 if (kpvt_[k_ - 1] < 0) {
19074 ks_ = 2;
19075 }
19076 if (k_ == ks_) {
19077 goto _l190;
19078 }
19079 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
19080 kps_ = k_ + 1 - ks_;
19081 if (kp_ == kps_) {
19082 goto _l180;
19083 }
19084 t_ = z_[kps_ - 1];
19085 z_[kps_ - 1] = z_[kp_ - 1];
19086 z_[kp_ - 1] = t_;
19087 _l180:;
19088 (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
19089 if (ks_ == 2) {
19090 (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &z_[0], &_k1);
19091 }
19092 _l190:;
19093 if (ks_ == 2) {
19094 goto _l210;
19095 }
19096 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
19097 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
19098 goto _l200;
19099 }
19100 s_ = ({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) /
19101 ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
19102 (void) _zdscal (n_, &s_, z_, &_k1);
19103 ynorm_ = s_ * ynorm_;
19104 _l200:;
19105 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) !=
19106 0.0e0) {
19107 z_[k_ - 1] = z_[k_ - 1] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
19108 }
19109 if (({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
19110 0.0e0) {
19111 z_[k_ - 1] = CMPLX (1.0, 0.0);
19112 }
19113 goto _l220;
19114 _l210:;
19115 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19116 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19117 bk_ = z_[k_ - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19118 bkm1_ = z_[k_ - 1 - 1] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19119 denom_ = ak_ * akm1_ - 1.0e0;
19120 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
19121 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
19122 _l220:;
19123 k_ = k_ - ks_;
19124 goto _l170;
19125 _l230:;
19126 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
19127 (void) _zdscal (n_, &s_, z_, &_k1);
19128 ynorm_ = s_ * ynorm_;
19129 k_ = 1;
19130 _l240:;
19131 if (k_ > (*n_)) {
19132 goto _l270;
19133 }
19134 ks_ = 1;
19135 if (kpvt_[k_ - 1] < 0) {
19136 ks_ = 2;
19137 }
19138 if (k_ == 1) {
19139 goto _l260;
19140 }
19141 z_[k_ - 1] = z_[k_ - 1] + _zdotu (($6_ = k_ - 1, &$6_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &z_[0], &_k1);
19142 if (ks_ == 2) {
19143 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($7_ = k_ - 1, &$7_), &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, &z_[0],
19144 &_k1);
19145 }
19146 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
19147 if (kp_ == k_) {
19148 goto _l250;
19149 }
19150 t_ = z_[k_ - 1];
19151 z_[k_ - 1] = z_[kp_ - 1];
19152 z_[kp_ - 1] = t_;
19153 _l250:;
19154 _l260:;
19155 k_ = k_ + ks_;
19156 goto _l240;
19157 _l270:;
19158 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
19159 (void) _zdscal (n_, &s_, z_, &_k1);
19160 ynorm_ = s_ * ynorm_;
19161 if (anorm_ != 0.0e0) {
19162 (*rcond_) = ynorm_ / anorm_;
19163 }
19164 if (anorm_ == 0.0e0) {
19165 (*rcond_) = 0.0;
19166 }
19167 __calls[165].calls++;
19168 return 0;
19169 }
19170 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_
19171 work_, int_4 _p_ job_)
19172 { // ** body not listed **
19207 }
19208 _l40:;
19209 if (({complex_16 zdum_1_ = det_[0]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) >= 1.0e0) {
19210 goto _l50;
19211 }
19212 det_[0] = CMPLX (ten_, 0.0) * det_[0];
19213 det_[1] = det_[1] - CMPLX (1.0, 0.0);
19214 goto _l40;
19215 _l50:;
19216 _l60:;
19217 if (({complex_16 zdum_1_ = det_[0]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) < ten_) {
19218 goto _l70;
19219 }
19220 det_[0] = det_[0] / CMPLX (ten_, 0.0);
19221 det_[1] = det_[1] + CMPLX (1.0, 0.0);
19222 goto _l60;
19223 _l70:;
19224 _l80:;
19225 }
19226 _l100:;
19227 if (noinv_) {
19228 goto _l230;
19229 }
19230 k_ = 1;
19231 _l110:;
19232 if (k_ > (*n_)) {
19233 goto _l220;
19234 }
19235 km1_ = k_ - 1;
19236 if (kpvt_[k_ - 1] < 0) {
19237 goto _l140;
19238 }
19239 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
19240 if (km1_ < 1) {
19241 goto _l130;
19242 }
19243 (void) _zcopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
19244 for (j_ = 1; j_ <= km1_; (j_)++) {
19245 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _zdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
19246 (void) _zaxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ -
19247 1))], &_k1);
19248 }
19249 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _zdotu (&km1_, work_, &_k1, &a_[0 +
19250 ((*lda_)) * ((k_ - 1))], &_k1);
19251 _l130:;
19252 kstep_ = 1;
19253 goto _l180;
19254 _l140:;
19255 t_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
19256 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / t_;
19257 akp1_ = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
19258 akkp1_ = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] / t_;
19259 d_ = t_ * (ak_ * akp1_ - CMPLX (1.0, 0.0));
19260 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = akp1_ / d_;
19261 a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = ak_ / d_;
19262 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = -akkp1_ / d_;
19263 if (km1_ < 1) {
19264 goto _l170;
19265 }
19266 (void) _zcopy (&km1_, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1, work_, &_k1);
19267 for (j_ = 1; j_ <= km1_; (j_)++) {
19268 a_[j_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = _zdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
19269 (void) _zaxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ +
19270 1 - 1))], &_k1);
19271 }
19272 a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ + 1 - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _zdotu (&km1_, work_, &_k1,
19273 &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
19274 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] + _zdotu (&km1_, &a_[0 + ((*lda_)) *
19275 ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ + 1 - 1))], &_k1);
19276 (void) _zcopy (&km1_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, work_, &_k1);
19277 for (j_ = 1; j_ <= km1_; (j_)++) {
19278 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = _zdotu (&j_, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, work_, &_k1);
19279 (void) _zaxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ -
19280 1))], &_k1);
19281 }
19282 a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] + _zdotu (&km1_, work_, &_k1, &a_[0 +
19283 ((*lda_)) * ((k_ - 1))], &_k1);
19284 _l170:;
19285 kstep_ = 2;
19286 _l180:;
19287 ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
19288 if (ks_ == k_) {
19289 goto _l210;
19290 }
19291 (void) _zswap (&ks_, &a_[0 + ((*lda_)) * ((ks_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
19292 for (jb_ = ks_; jb_ <= k_; (jb_)++) {
19293 j_ = k_ + ks_ - jb_;
19294 temp_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
19295 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))];
19296 a_[ks_ - 1 + ((*lda_)) * ((j_ - 1))] = temp_;
19297 }
19298 if (kstep_ == 1) {
19299 goto _l200;
19300 }
19301 temp_ = a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
19302 a_[ks_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))];
19303 a_[k_ - 1 + ((*lda_)) * ((k_ + 1 - 1))] = temp_;
19304 _l200:;
19305 _l210:;
19306 k_ = k_ + kstep_;
19307 goto _l110;
19308 _l220:;
19309 _l230:;
19310 __calls[166].calls++;
19311 return 0;
19312 }
19313 int_4 _zsifa (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
19314 { // ** body not listed **
19334 }
19335 goto _l200;
19336 _l20:;
19337 km1_ = k_ - 1;
19338 absakk_ = ({complex_16 zdum_1_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag
19339 (zdum_1_));});
19340 imax_ = _izamax (($0_ = k_ - 1, &$0_), &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
19341 colmax_ = ({complex_16 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag
19342 (zdum_1_));});
19343 if (absakk_ < alpha_ * colmax_) {
19344 goto _l30;
19345 }
19346 kstep_ = 1;
19347 swap_ = FALSE;
19348 goto _l90;
19349 _l30:;
19350 rowmax_ = 0.0;
19351 imaxp1_ = imax_ + 1;
19352 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
19353 rowmax_ = _max (rowmax_, ({complex_16 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))]; _abs (creal (zdum_1_)) + _abs
19354 (cimag (zdum_1_));}));
19355 }
19356 if (imax_ == 1) {
19357 goto _l50;
19358 }
19359 jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1);
19360 rowmax_ = _max (rowmax_, ({complex_16 zdum_1_ = a_[jmax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum_1_)) +
19361 _abs (cimag (zdum_1_));}));
19362 _l50:;
19363 if (({complex_16 zdum_1_ = a_[imax_ - 1 + ((*lda_)) * ((imax_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag
19364 (zdum_1_));}) < alpha_ * rowmax_) {
19365 goto _l60;
19366 }
19367 kstep_ = 1;
19368 swap_ = TRUE;
19369 goto _l80;
19370 _l60:;
19371 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
19372 goto _l70;
19373 }
19374 kstep_ = 1;
19375 swap_ = FALSE;
19376 goto _l80;
19377 _l70:;
19378 kstep_ = 2;
19379 swap_ = imax_ != km1_;
19380 _l80:;
19381 _l90:;
19382 if (_max (absakk_, colmax_) != 0.0e0) {
19383 goto _l100;
19384 }
19385 kpvt_[k_ - 1] = k_;
19386 (*info_) = k_;
19387 goto _l190;
19388 _l100:;
19389 if (kstep_ == 2) {
19390 goto _l140;
19391 }
19392 if (! (swap_)) {
19393 goto _l120;
19394 }
19395 (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1);
19396 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
19397 j_ = k_ + imax_ - jj_;
19398 t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))];
19399 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
19400 a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
19401 }
19402 _l120:;
19403 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
19404 j_ = k_ - jj_;
19405 mulk_ = -a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 + ((*lda_)) * ((k_ - 1))];
19406 t_ = mulk_;
19407 (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
19408 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
19409 }
19410 kpvt_[k_ - 1] = k_;
19411 if (swap_) {
19412 kpvt_[k_ - 1] = imax_;
19413 }
19414 goto _l190;
19415 _l140:;
19416 if (! (swap_)) {
19417 goto _l160;
19418 }
19419 (void) _zswap (&imax_, &a_[0 + ((*lda_)) * ((imax_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1);
19420 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
19421 j_ = km1_ + imax_ - jj_;
19422 t_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))];
19423 a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))];
19424 a_[imax_ - 1 + ((*lda_)) * ((j_ - 1))] = t_;
19425 }
19426 t_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19427 a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))] = a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))];
19428 a_[imax_ - 1 + ((*lda_)) * ((k_ - 1))] = t_;
19429 _l160:;
19430 km2_ = k_ - 2;
19431 if (km2_ == 0) {
19432 goto _l180;
19433 }
19434 ak_ = a_[k_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19435 akm1_ = a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19436 denom_ = 1.0e0 - ak_ * akm1_;
19437 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
19438 j_ = km1_ - jj_;
19439 bk_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19440 bkm1_ = a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] / a_[k_ - 1 - 1 + ((*lda_)) * ((k_ - 1))];
19441 mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
19442 mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
19443 t_ = mulk_;
19444 (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
19445 t_ = mulkm1_;
19446 (void) _zaxpy (&j_, &t_, &a_[0 + ((*lda_)) * ((k_ - 1 - 1))], &_k1, &a_[0 + ((*lda_)) * ((j_ - 1))], &_k1);
19447 a_[j_ - 1 + ((*lda_)) * ((k_ - 1))] = mulk_;
19448 a_[j_ - 1 + ((*lda_)) * ((k_ - 1 - 1))] = mulkm1_;
19449 }
19450 _l180:;
19451 kpvt_[k_ - 1] = 1 - k_;
19452 if (swap_) {
19453 kpvt_[k_ - 1] = -imax_;
19454 }
19455 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
19456 _l190:;
19457 k_ = k_ - kstep_;
19458 goto _l10;
19459 _l200:;
19460 __calls[167].calls++;
19461 return 0;
19462 }
19463 int_4 _zsisl (complex_16 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
19464 { // ** body not listed **
19564 }
19565 int_4 _zspco (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, real_8 _p_ rcond_, complex_16 _p_ z_)
19566 { // ** body not listed **
19623 }
19624 z_[k_ - 1] = z_[k_ - 1] + ek_;
19625 (void) _zaxpy (($0_ = k_ - ks_, &$0_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
19626 if (ks_ == 1) {
19627 goto _l80;
19628 }
19629 if (({complex_16 zdum_1_ = z_[k_ - 1 - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) != 0.0e0) {
19630 ek_ = ({complex_16 zdum_1_ = ek_; complex_16 zdum2_1_ = z_[k_ - 1 - 1]; ({complex_16 zdum_2_ = zdum_1_; _abs (creal
19631 (zdum_2_)) + _abs (cimag (zdum_2_));}) * (zdum2_1_ / ({complex_16 zdum_2_ = zdum2_1_; _abs (creal (zdum_2_)) + _abs
19632 (cimag (zdum_2_));}));});
19633 }
19634 z_[k_ - 1 - 1] = z_[k_ - 1 - 1] + ek_;
19635 (void) _zaxpy (($1_ = k_ - ks_, &$1_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
19636 _l80:;
19637 if (ks_ == 2) {
19638 goto _l100;
19639 }
19640 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
19641 ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
19642 goto _l90;
19643 }
19644 s_ = ({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) / ({complex_16 zdum_1_ =
19645 z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
19646 (void) _zdscal (n_, &s_, z_, &_k1);
19647 ek_ = CMPLX (s_, 0.0) * ek_;
19648 _l90:;
19649 if (({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) != 0.0e0) {
19650 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
19651 }
19652 if (({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
19653 z_[k_ - 1] = CMPLX (1.0, 0.0);
19654 }
19655 goto _l110;
19656 _l100:;
19657 km1k_ = ik_ + k_ - 1;
19658 km1km1_ = ikm1_ + k_ - 1;
19659 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
19660 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
19661 bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
19662 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
19663 denom_ = ak_ * akm1_ - 1.0e0;
19664 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
19665 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
19666 _l110:;
19667 k_ = k_ - ks_;
19668 ik_ = ik_ - k_;
19669 if (ks_ == 2) {
19670 ik_ = ik_ - (k_ + 1);
19671 }
19672 goto _l60;
19673 _l120:;
19674 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
19675 (void) _zdscal (n_, &s_, z_, &_k1);
19676 k_ = 1;
19677 ik_ = 0;
19678 _l130:;
19679 if (k_ > (*n_)) {
19680 goto _l160;
19681 }
19682 ks_ = 1;
19683 if (kpvt_[k_ - 1] < 0) {
19684 ks_ = 2;
19685 }
19686 if (k_ == 1) {
19687 goto _l150;
19688 }
19689 z_[k_ - 1] = z_[k_ - 1] + _zdotu (($2_ = k_ - 1, &$2_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
19690 ikp1_ = ik_ + k_;
19691 if (ks_ == 2) {
19692 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($3_ = k_ - 1, &$3_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
19693 }
19694 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
19695 if (kp_ == k_) {
19696 goto _l140;
19697 }
19698 t_ = z_[k_ - 1];
19699 z_[k_ - 1] = z_[kp_ - 1];
19700 z_[kp_ - 1] = t_;
19701 _l140:;
19702 _l150:;
19703 ik_ = ik_ + k_;
19704 if (ks_ == 2) {
19705 ik_ = ik_ + (k_ + 1);
19706 }
19707 k_ = k_ + ks_;
19708 goto _l130;
19709 _l160:;
19710 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
19711 (void) _zdscal (n_, &s_, z_, &_k1);
19712 ynorm_ = 1.0;
19713 k_ = (*n_);
19714 ik_ = (*n_) * ((*n_) - 1) / 2;
19715 _l170:;
19716 if (k_ == 0) {
19717 goto _l230;
19718 }
19719 kk_ = ik_ + k_;
19720 ikm1_ = ik_ - (k_ - 1);
19721 ks_ = 1;
19722 if (kpvt_[k_ - 1] < 0) {
19723 ks_ = 2;
19724 }
19725 if (k_ == ks_) {
19726 goto _l190;
19727 }
19728 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
19729 kps_ = k_ + 1 - ks_;
19730 if (kp_ == kps_) {
19731 goto _l180;
19732 }
19733 t_ = z_[kps_ - 1];
19734 z_[kps_ - 1] = z_[kp_ - 1];
19735 z_[kp_ - 1] = t_;
19736 _l180:;
19737 (void) _zaxpy (($4_ = k_ - ks_, &$4_), &z_[k_ - 1], &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
19738 if (ks_ == 2) {
19739 (void) _zaxpy (($5_ = k_ - ks_, &$5_), &z_[k_ - 1 - 1], &ap_[ikm1_ + 1 - 1], &_k1, &z_[0], &_k1);
19740 }
19741 _l190:;
19742 if (ks_ == 2) {
19743 goto _l210;
19744 }
19745 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
19746 ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
19747 goto _l200;
19748 }
19749 s_ = ({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) / ({complex_16 zdum_1_ =
19750 z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
19751 (void) _zdscal (n_, &s_, z_, &_k1);
19752 ynorm_ = s_ * ynorm_;
19753 _l200:;
19754 if (({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) != 0.0e0) {
19755 z_[k_ - 1] = z_[k_ - 1] / ap_[kk_ - 1];
19756 }
19757 if (({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
19758 z_[k_ - 1] = CMPLX (1.0, 0.0);
19759 }
19760 goto _l220;
19761 _l210:;
19762 km1k_ = ik_ + k_ - 1;
19763 km1km1_ = ikm1_ + k_ - 1;
19764 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
19765 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
19766 bk_ = z_[k_ - 1] / ap_[km1k_ - 1];
19767 bkm1_ = z_[k_ - 1 - 1] / ap_[km1k_ - 1];
19768 denom_ = ak_ * akm1_ - 1.0e0;
19769 z_[k_ - 1] = (akm1_ * bk_ - bkm1_) / denom_;
19770 z_[k_ - 1 - 1] = (ak_ * bkm1_ - bk_) / denom_;
19771 _l220:;
19772 k_ = k_ - ks_;
19773 ik_ = ik_ - k_;
19774 if (ks_ == 2) {
19775 ik_ = ik_ - (k_ + 1);
19776 }
19777 goto _l170;
19778 _l230:;
19779 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
19780 (void) _zdscal (n_, &s_, z_, &_k1);
19781 ynorm_ = s_ * ynorm_;
19782 k_ = 1;
19783 ik_ = 0;
19784 _l240:;
19785 if (k_ > (*n_)) {
19786 goto _l270;
19787 }
19788 ks_ = 1;
19789 if (kpvt_[k_ - 1] < 0) {
19790 ks_ = 2;
19791 }
19792 if (k_ == 1) {
19793 goto _l260;
19794 }
19795 z_[k_ - 1] = z_[k_ - 1] + _zdotu (($6_ = k_ - 1, &$6_), &ap_[ik_ + 1 - 1], &_k1, &z_[0], &_k1);
19796 ikp1_ = ik_ + k_;
19797 if (ks_ == 2) {
19798 z_[k_ + 1 - 1] = z_[k_ + 1 - 1] + _zdotu (($7_ = k_ - 1, &$7_), &ap_[ikp1_ + 1 - 1], &_k1, &z_[0], &_k1);
19799 }
19800 kp_ = (int_4) (_abs (kpvt_[k_ - 1]));
19801 if (kp_ == k_) {
19802 goto _l250;
19803 }
19804 t_ = z_[k_ - 1];
19805 z_[k_ - 1] = z_[kp_ - 1];
19806 z_[kp_ - 1] = t_;
19807 _l250:;
19808 _l260:;
19809 ik_ = ik_ + k_;
19810 if (ks_ == 2) {
19811 ik_ = ik_ + (k_ + 1);
19812 }
19813 k_ = k_ + ks_;
19814 goto _l240;
19815 _l270:;
19816 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
19817 (void) _zdscal (n_, &s_, z_, &_k1);
19818 ynorm_ = s_ * ynorm_;
19819 if (anorm_ != 0.0e0) {
19820 (*rcond_) = ynorm_ / anorm_;
19821 }
19822 if (anorm_ == 0.0e0) {
19823 (*rcond_) = 0.0;
19824 }
19825 __calls[169].calls++;
19826 return 0;
19827 }
19828 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_
19829 job_)
19830 { // ** body not listed **
19872 }
19873 _l40:;
19874 if (({complex_16 zdum_1_ = det_[0]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) >= 1.0e0) {
19875 goto _l50;
19876 }
19877 det_[0] = CMPLX (ten_, 0.0) * det_[0];
19878 det_[1] = det_[1] - CMPLX (1.0, 0.0);
19879 goto _l40;
19880 _l50:;
19881 _l60:;
19882 if (({complex_16 zdum_1_ = det_[0]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) < ten_) {
19883 goto _l70;
19884 }
19885 det_[0] = det_[0] / CMPLX (ten_, 0.0);
19886 det_[1] = det_[1] + CMPLX (1.0, 0.0);
19887 goto _l60;
19888 _l70:;
19889 _l80:;
19890 _l90:;
19891 ik_ = ik_ + k_;
19892 }
19893 _l110:;
19894 if (noinv_) {
19895 goto _l240;
19896 }
19897 k_ = 1;
19898 ik_ = 0;
19899 _l120:;
19900 if (k_ > (*n_)) {
19901 goto _l230;
19902 }
19903 km1_ = k_ - 1;
19904 kk_ = ik_ + k_;
19905 ikp1_ = ik_ + k_;
19906 if (kpvt_[k_ - 1] < 0) {
19907 goto _l150;
19908 }
19909 ap_[kk_ - 1] = CMPLX (1.0, 0.0) / ap_[kk_ - 1];
19910 if (km1_ < 1) {
19911 goto _l140;
19912 }
19913 (void) _zcopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
19914 ij_ = 0;
19915 for (j_ = 1; j_ <= km1_; (j_)++) {
19916 jk_ = ik_ + j_;
19917 ap_[jk_ - 1] = _zdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
19918 (void) _zaxpy (($0_ = j_ - 1, &$0_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
19919 ij_ = ij_ + j_;
19920 }
19921 ap_[kk_ - 1] = ap_[kk_ - 1] + _zdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
19922 _l140:;
19923 kstep_ = 1;
19924 goto _l190;
19925 _l150:;
19926 kkp1_ = ikp1_ + k_;
19927 t_ = ap_[kkp1_ - 1];
19928 ak_ = ap_[kk_ - 1] / t_;
19929 akp1_ = ap_[kkp1_ + 1 - 1] / t_;
19930 akkp1_ = ap_[kkp1_ - 1] / t_;
19931 d_ = t_ * (ak_ * akp1_ - CMPLX (1.0, 0.0));
19932 ap_[kk_ - 1] = akp1_ / d_;
19933 ap_[kkp1_ + 1 - 1] = ak_ / d_;
19934 ap_[kkp1_ - 1] = -akkp1_ / d_;
19935 if (km1_ < 1) {
19936 goto _l180;
19937 }
19938 (void) _zcopy (&km1_, &ap_[ikp1_ + 1 - 1], &_k1, work_, &_k1);
19939 ij_ = 0;
19940 for (j_ = 1; j_ <= km1_; (j_)++) {
19941 jkp1_ = ikp1_ + j_;
19942 ap_[jkp1_ - 1] = _zdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
19943 (void) _zaxpy (($1_ = j_ - 1, &$1_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
19944 ij_ = ij_ + j_;
19945 }
19946 ap_[kkp1_ + 1 - 1] = ap_[kkp1_ + 1 - 1] + _zdotu (&km1_, work_, &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
19947 ap_[kkp1_ - 1] = ap_[kkp1_ - 1] + _zdotu (&km1_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ikp1_ + 1 - 1], &_k1);
19948 (void) _zcopy (&km1_, &ap_[ik_ + 1 - 1], &_k1, work_, &_k1);
19949 ij_ = 0;
19950 for (j_ = 1; j_ <= km1_; (j_)++) {
19951 jk_ = ik_ + j_;
19952 ap_[jk_ - 1] = _zdotu (&j_, &ap_[ij_ + 1 - 1], &_k1, work_, &_k1);
19953 (void) _zaxpy (($2_ = j_ - 1, &$2_), &work_[j_ - 1], &ap_[ij_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
19954 ij_ = ij_ + j_;
19955 }
19956 ap_[kk_ - 1] = ap_[kk_ - 1] + _zdotu (&km1_, work_, &_k1, &ap_[ik_ + 1 - 1], &_k1);
19957 _l180:;
19958 kstep_ = 2;
19959 _l190:;
19960 ks_ = (int_4) (_abs (kpvt_[k_ - 1]));
19961 if (ks_ == k_) {
19962 goto _l220;
19963 }
19964 iks_ = (ks_ * (ks_ - 1)) / 2;
19965 (void) _zswap (&ks_, &ap_[iks_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
19966 ksj_ = ik_ + ks_;
19967 for (jb_ = ks_; jb_ <= k_; (jb_)++) {
19968 j_ = k_ + ks_ - jb_;
19969 jk_ = ik_ + j_;
19970 temp_ = ap_[jk_ - 1];
19971 ap_[jk_ - 1] = ap_[ksj_ - 1];
19972 ap_[ksj_ - 1] = temp_;
19973 ksj_ = ksj_ - (j_ - 1);
19974 }
19975 if (kstep_ == 1) {
19976 goto _l210;
19977 }
19978 kskp1_ = ikp1_ + ks_;
19979 temp_ = ap_[kskp1_ - 1];
19980 ap_[kskp1_ - 1] = ap_[kkp1_ - 1];
19981 ap_[kkp1_ - 1] = temp_;
19982 _l210:;
19983 _l220:;
19984 ik_ = ik_ + k_;
19985 if (kstep_ == 2) {
19986 ik_ = ik_ + k_ + 1;
19987 }
19988 k_ = k_ + kstep_;
19989 goto _l120;
19990 _l230:;
19991 _l240:;
19992 __calls[170].calls++;
19993 return 0;
19994 }
19995 int_4 _zspfa (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, int_4 _p_ info_)
19996 { // ** body not listed **
20018 }
20019 goto _l200;
20020 _l20:;
20021 km1_ = k_ - 1;
20022 kk_ = ik_ + k_;
20023 absakk_ = ({complex_16 zdum_1_ = ap_[kk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
20024 imax_ = _izamax (($0_ = k_ - 1, &$0_), &ap_[ik_ + 1 - 1], &_k1);
20025 imk_ = ik_ + imax_;
20026 colmax_ = ({complex_16 zdum_1_ = ap_[imk_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
20027 if (absakk_ < alpha_ * colmax_) {
20028 goto _l30;
20029 }
20030 kstep_ = 1;
20031 swap_ = FALSE;
20032 goto _l90;
20033 _l30:;
20034 rowmax_ = 0.0;
20035 imaxp1_ = imax_ + 1;
20036 im_ = imax_ * (imax_ - 1) / 2;
20037 imj_ = im_ + 2 * imax_;
20038 for (j_ = imaxp1_; j_ <= k_; (j_)++) {
20039 rowmax_ = _max (rowmax_, ({complex_16 zdum_1_ = ap_[imj_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}));
20040 imj_ = imj_ + j_;
20041 }
20042 if (imax_ == 1) {
20043 goto _l50;
20044 }
20045 jmax_ = _izamax (($1_ = imax_ - 1, &$1_), &ap_[im_ + 1 - 1], &_k1);
20046 jmim_ = jmax_ + im_;
20047 rowmax_ = _max (rowmax_, ({complex_16 zdum_1_ = ap_[jmim_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}));
20048 _l50:;
20049 imim_ = imax_ + im_;
20050 if (({complex_16 zdum_1_ = ap_[imim_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) < alpha_ * rowmax_) {
20051 goto _l60;
20052 }
20053 kstep_ = 1;
20054 swap_ = TRUE;
20055 goto _l80;
20056 _l60:;
20057 if (absakk_ < alpha_ * colmax_ * (colmax_ / rowmax_)) {
20058 goto _l70;
20059 }
20060 kstep_ = 1;
20061 swap_ = FALSE;
20062 goto _l80;
20063 _l70:;
20064 kstep_ = 2;
20065 swap_ = imax_ != km1_;
20066 _l80:;
20067 _l90:;
20068 if (_max (absakk_, colmax_) != 0.0e0) {
20069 goto _l100;
20070 }
20071 kpvt_[k_ - 1] = k_;
20072 (*info_) = k_;
20073 goto _l190;
20074 _l100:;
20075 if (kstep_ == 2) {
20076 goto _l140;
20077 }
20078 if (! (swap_)) {
20079 goto _l120;
20080 }
20081 (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ik_ + 1 - 1], &_k1);
20082 imj_ = ik_ + imax_;
20083 for (jj_ = imax_; jj_ <= k_; (jj_)++) {
20084 j_ = k_ + imax_ - jj_;
20085 jk_ = ik_ + j_;
20086 t_ = ap_[jk_ - 1];
20087 ap_[jk_ - 1] = ap_[imj_ - 1];
20088 ap_[imj_ - 1] = t_;
20089 imj_ = imj_ - (j_ - 1);
20090 }
20091 _l120:;
20092 ij_ = ik_ - (k_ - 1);
20093 for (jj_ = 1; jj_ <= km1_; (jj_)++) {
20094 j_ = k_ - jj_;
20095 jk_ = ik_ + j_;
20096 mulk_ = -ap_[jk_ - 1] / ap_[kk_ - 1];
20097 t_ = mulk_;
20098 (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
20099 ijj_ = ij_ + j_;
20100 ap_[jk_ - 1] = mulk_;
20101 ij_ = ij_ - (j_ - 1);
20102 }
20103 kpvt_[k_ - 1] = k_;
20104 if (swap_) {
20105 kpvt_[k_ - 1] = imax_;
20106 }
20107 goto _l190;
20108 _l140:;
20109 km1k_ = ik_ + k_ - 1;
20110 ikm1_ = ik_ - (k_ - 1);
20111 if (! (swap_)) {
20112 goto _l160;
20113 }
20114 (void) _zswap (&imax_, &ap_[im_ + 1 - 1], &_k1, &ap_[ikm1_ + 1 - 1], &_k1);
20115 imj_ = ikm1_ + imax_;
20116 for (jj_ = imax_; jj_ <= km1_; (jj_)++) {
20117 j_ = km1_ + imax_ - jj_;
20118 jkm1_ = ikm1_ + j_;
20119 t_ = ap_[jkm1_ - 1];
20120 ap_[jkm1_ - 1] = ap_[imj_ - 1];
20121 ap_[imj_ - 1] = t_;
20122 imj_ = imj_ - (j_ - 1);
20123 }
20124 t_ = ap_[km1k_ - 1];
20125 ap_[km1k_ - 1] = ap_[imk_ - 1];
20126 ap_[imk_ - 1] = t_;
20127 _l160:;
20128 km2_ = k_ - 2;
20129 if (km2_ == 0) {
20130 goto _l180;
20131 }
20132 ak_ = ap_[kk_ - 1] / ap_[km1k_ - 1];
20133 km1km1_ = ikm1_ + k_ - 1;
20134 akm1_ = ap_[km1km1_ - 1] / ap_[km1k_ - 1];
20135 denom_ = 1.0e0 - ak_ * akm1_;
20136 ij_ = ik_ - (k_ - 1) - (k_ - 2);
20137 for (jj_ = 1; jj_ <= km2_; (jj_)++) {
20138 j_ = km1_ - jj_;
20139 jk_ = ik_ + j_;
20140 bk_ = ap_[jk_ - 1] / ap_[km1k_ - 1];
20141 jkm1_ = ikm1_ + j_;
20142 bkm1_ = ap_[jkm1_ - 1] / ap_[km1k_ - 1];
20143 mulk_ = (akm1_ * bk_ - bkm1_) / denom_;
20144 mulkm1_ = (ak_ * bkm1_ - bk_) / denom_;
20145 t_ = mulk_;
20146 (void) _zaxpy (&j_, &t_, &ap_[ik_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
20147 t_ = mulkm1_;
20148 (void) _zaxpy (&j_, &t_, &ap_[ikm1_ + 1 - 1], &_k1, &ap_[ij_ + 1 - 1], &_k1);
20149 ap_[jk_ - 1] = mulk_;
20150 ap_[jkm1_ - 1] = mulkm1_;
20151 ijj_ = ij_ + j_;
20152 ij_ = ij_ - (j_ - 1);
20153 }
20154 _l180:;
20155 kpvt_[k_ - 1] = 1 - k_;
20156 if (swap_) {
20157 kpvt_[k_ - 1] = -imax_;
20158 }
20159 kpvt_[k_ - 1 - 1] = kpvt_[k_ - 1];
20160 _l190:;
20161 ik_ = ik_ - (k_ - 1);
20162 if (kstep_ == 2) {
20163 ik_ = ik_ - (k_ - 2);
20164 }
20165 k_ = k_ - kstep_;
20166 goto _l10;
20167 _l200:;
20168 __calls[171].calls++;
20169 return 0;
20170 }
20171 int_4 _zspsl (complex_16 _p_ ap_, int_4 _p_ n_, int_4 _p_ kpvt_, complex_16 _p_ b_)
20172 { // ** body not listed **
20283 }
20284 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_,
20285 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_
20286 info_)
20287 { // ** body not listed **
20332 }
20333 (void) _zscal (($1_ = (*n_) - l_ + 1, &$1_), ($2_ = 1.0e0 / s_[l_ - 1], &$2_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))],
20334 &_k1);
20335 x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))] = CMPLX (1.0, 0.0) + x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
20336 _l10:;
20337 s_[l_ - 1] = -s_[l_ - 1];
20338 _l20:;
20339 if ((*p_) < lp1_) {
20340 goto _l50;
20341 }
20342 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
20343 if (l_ > nct_) {
20344 goto _l30;
20345 }
20346 if (({complex_16 zdum_1_ = s_[l_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
20347 goto _l30;
20348 }
20349 t_ = -_zdotc (($3_ = (*n_) - l_ + 1, &$3_), &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) * ((j_ -
20350 1))], &_k1) / x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))];
20351 (void) _zaxpy (($4_ = (*n_) - l_ + 1, &$4_), &t_, &x_[l_ - 1 + ((*ldx_)) * ((l_ - 1))], &_k1, &x_[l_ - 1 + ((*ldx_)) *
20352 ((j_ - 1))], &_k1);
20353 _l30:;
20354 e_[j_ - 1] = conj (x_[l_ - 1 + ((*ldx_)) * ((j_ - 1))]);
20355 }
20356 _l50:;
20357 if (! (wantu_) || l_ > nct_) {
20358 goto _l70;
20359 }
20360 for (i_ = l_; i_ <= (*n_); (i_)++) {
20361 u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = x_[i_ - 1 + ((*ldx_)) * ((l_ - 1))];
20362 }
20363 _l70:;
20364 if (l_ > nrt_) {
20365 goto _l150;
20366 }
20367 e_[l_ - 1] = CMPLX (_dznrm2 (($5_ = (*p_) - l_, &$5_), &e_[lp1_ - 1], &_k1), 0.0);
20368 if (({complex_16 zdum_1_ = e_[l_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
20369 goto _l80;
20370 }
20371 if (({complex_16 zdum_1_ = e_[lp1_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) != 0.0e0) {
20372 e_[l_ - 1] = ({complex_16 zdum1_1_ = e_[l_ - 1]; complex_16 zdum2_1_ = e_[lp1_ - 1]; cabs (zdum1_1_) * (zdum2_1_ / cabs
20373 (zdum2_1_));});
20374 }
20375 (void) _zscal (($6_ = (*p_) - l_, &$6_), ($7_ = 1.0e0 / e_[l_ - 1], &$7_), &e_[lp1_ - 1], &_k1);
20376 e_[lp1_ - 1] = CMPLX (1.0, 0.0) + e_[lp1_ - 1];
20377 _l80:;
20378 e_[l_ - 1] = -conj (e_[l_ - 1]);
20379 if (lp1_ > (*n_) || ({complex_16 zdum_1_ = e_[l_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
20380 goto _l120;
20381 }
20382 for (i_ = lp1_; i_ <= (*n_); (i_)++) {
20383 work_[i_ - 1] = CMPLX (0.0, 0.0);
20384 }
20385 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
20386 (void) _zaxpy (($8_ = (*n_) - l_, &$8_), &e_[j_ - 1], &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1, &work_[lp1_ - 1],
20387 &_k1);
20388 }
20389 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
20390 (void) _zaxpy (($9_ = (*n_) - l_, &$9_), ($10_ = conj (-e_[j_ - 1] / e_[lp1_ - 1]), &$10_), &work_[lp1_ - 1], &_k1,
20391 &x_[lp1_ - 1 + ((*ldx_)) * ((j_ - 1))], &_k1);
20392 }
20393 _l120:;
20394 if (! (wantv_)) {
20395 goto _l140;
20396 }
20397 for (i_ = lp1_; i_ <= (*p_); (i_)++) {
20398 v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = e_[i_ - 1];
20399 }
20400 _l140:;
20401 _l150:;
20402 }
20403 _l170:;
20404 m_ = _min ((*p_), (*n_) + 1);
20405 nctp1_ = nct_ + 1;
20406 nrtp1_ = nrt_ + 1;
20407 if (nct_ < (*p_)) {
20408 s_[nctp1_ - 1] = x_[nctp1_ - 1 + ((*ldx_)) * ((nctp1_ - 1))];
20409 }
20410 if ((*n_) < m_) {
20411 s_[m_ - 1] = CMPLX (0.0, 0.0);
20412 }
20413 if (nrtp1_ < m_) {
20414 e_[nrtp1_ - 1] = x_[nrtp1_ - 1 + ((*ldx_)) * ((m_ - 1))];
20415 }
20416 e_[m_ - 1] = CMPLX (0.0, 0.0);
20417 if (! (wantu_)) {
20418 goto _l300;
20419 }
20420 if (ncu_ < nctp1_) {
20421 goto _l200;
20422 }
20423 for (j_ = nctp1_; j_ <= ncu_; (j_)++) {
20424 for (i_ = 1; i_ <= (*n_); (i_)++) {
20425 u_[i_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
20426 }
20427 u_[j_ - 1 + ((*ldu_)) * ((j_ - 1))] = CMPLX (1.0, 0.0);
20428 }
20429 _l200:;
20430 if (nct_ < 1) {
20431 goto _l290;
20432 }
20433 for (ll_ = 1; ll_ <= nct_; (ll_)++) {
20434 l_ = nct_ - ll_ + 1;
20435 if (({complex_16 zdum_1_ = s_[l_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
20436 goto _l250;
20437 }
20438 lp1_ = l_ + 1;
20439 if (ncu_ < lp1_) {
20440 goto _l220;
20441 }
20442 for (j_ = lp1_; j_ <= ncu_; (j_)++) {
20443 t_ = -_zdotc (($11_ = (*n_) - l_ + 1, &$11_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_)) * ((j_
20444 - 1))], &_k1) / u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
20445 (void) _zaxpy (($12_ = (*n_) - l_ + 1, &$12_), &t_, &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[l_ - 1 + ((*ldu_))
20446 * ((j_ - 1))], &_k1);
20447 }
20448 _l220:;
20449 (void) _zscal (($13_ = (*n_) - l_ + 1, &$13_), ($14_ = CMPLX (-1.0, 0.0), &$14_), &u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))],
20450 &_k1);
20451 u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (1.0, 0.0) + u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))];
20452 lm1_ = l_ - 1;
20453 if (lm1_ < 1) {
20454 goto _l240;
20455 }
20456 for (i_ = 1; i_ <= lm1_; (i_)++) {
20457 u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (0.0, 0.0);
20458 }
20459 _l240:;
20460 goto _l270;
20461 _l250:;
20462 for (i_ = 1; i_ <= (*n_); (i_)++) {
20463 u_[i_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (0.0, 0.0);
20464 }
20465 u_[l_ - 1 + ((*ldu_)) * ((l_ - 1))] = CMPLX (1.0, 0.0);
20466 _l270:;
20467 }
20468 _l290:;
20469 _l300:;
20470 if (! (wantv_)) {
20471 goto _l350;
20472 }
20473 for (ll_ = 1; ll_ <= (*p_); (ll_)++) {
20474 l_ = (*p_) - ll_ + 1;
20475 lp1_ = l_ + 1;
20476 if (l_ > nrt_) {
20477 goto _l320;
20478 }
20479 if (({complex_16 zdum_1_ = e_[l_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
20480 goto _l320;
20481 }
20482 for (j_ = lp1_; j_ <= (*p_); (j_)++) {
20483 t_ = -_zdotc (($15_ = (*p_) - l_, &$15_), &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_)) * ((j_
20484 - 1))], &_k1) / v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))];
20485 (void) _zaxpy (($16_ = (*p_) - l_, &$16_), &t_, &v_[lp1_ - 1 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[lp1_ - 1 + ((*ldv_))
20486 * ((j_ - 1))], &_k1);
20487 }
20488 _l320:;
20489 for (i_ = 1; i_ <= (*p_); (i_)++) {
20490 v_[i_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLX (0.0, 0.0);
20491 }
20492 v_[l_ - 1 + ((*ldv_)) * ((l_ - 1))] = CMPLX (1.0, 0.0);
20493 }
20494 _l350:;
20495 for (i_ = 1; i_ <= m_; (i_)++) {
20496 if (({complex_16 zdum_1_ = s_[i_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
20497 goto _l360;
20498 }
20499 t_ = CMPLX (cabs (s_[i_ - 1]), 0.0);
20500 r_ = s_[i_ - 1] / t_;
20501 s_[i_ - 1] = t_;
20502 if (i_ < m_) {
20503 e_[i_ - 1] = e_[i_ - 1] / r_;
20504 }
20505 if (wantu_) {
20506 (void) _zscal (n_, &r_, &u_[0 + ((*ldu_)) * ((i_ - 1))], &_k1);
20507 }
20508 _l360:;
20509 if (i_ == m_) {
20510 goto _l390;
20511 }
20512 if (({complex_16 zdum_1_ = e_[i_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) == 0.0e0) {
20513 goto _l370;
20514 }
20515 t_ = CMPLX (cabs (e_[i_ - 1]), 0.0);
20516 r_ = t_ / e_[i_ - 1];
20517 e_[i_ - 1] = t_;
20518 s_[i_ + 1 - 1] = s_[i_ + 1 - 1] * r_;
20519 if (wantv_) {
20520 (void) _zscal (p_, &r_, &v_[0 + ((*ldv_)) * ((i_ + 1 - 1))], &_k1);
20521 }
20522 _l370:;
20523 }
20524 _l390:;
20525 mm_ = m_;
20526 iter_ = 0;
20527 _l400:;
20528 if (m_ == 0) {
20529 goto _l660;
20530 }
20531 if (iter_ < maxit_) {
20532 goto _l410;
20533 }
20534 (*info_) = m_;
20535 goto _l660;
20536 _l410:;
20537 for (ll_ = 1; ll_ <= m_; (ll_)++) {
20538 l_ = m_ - ll_;
20539 if (l_ == 0) {
20540 goto _l440;
20541 }
20542 test_ = cabs (s_[l_ - 1]) + cabs (s_[l_ + 1 - 1]);
20543 ztest_ = test_ + cabs (e_[l_ - 1]);
20544 if (ztest_ != test_) {
20545 goto _l420;
20546 }
20547 e_[l_ - 1] = CMPLX (0.0, 0.0);
20548 goto _l440;
20549 _l420:;
20550 }
20551 _l440:;
20552 if (l_ != m_ - 1) {
20553 goto _l450;
20554 }
20555 kase_ = 4;
20556 goto _l520;
20557 _l450:;
20558 lp1_ = l_ + 1;
20559 mp1_ = m_ + 1;
20560 for (lls_ = lp1_; lls_ <= mp1_; (lls_)++) {
20561 ls_ = m_ - lls_ + lp1_;
20562 if (ls_ == l_) {
20563 goto _l480;
20564 }
20565 test_ = 0.0;
20566 if (ls_ != m_) {
20567 test_ = test_ + cabs (e_[ls_ - 1]);
20568 }
20569 if (ls_ != l_ + 1) {
20570 test_ = test_ + cabs (e_[ls_ - 1 - 1]);
20571 }
20572 ztest_ = test_ + cabs (s_[ls_ - 1]);
20573 if (ztest_ != test_) {
20574 goto _l460;
20575 }
20576 s_[ls_ - 1] = CMPLX (0.0, 0.0);
20577 goto _l480;
20578 _l460:;
20579 }
20580 _l480:;
20581 if (ls_ != l_) {
20582 goto _l490;
20583 }
20584 kase_ = 3;
20585 goto _l510;
20586 _l490:;
20587 if (ls_ != m_) {
20588 goto _l500;
20589 }
20590 kase_ = 1;
20591 goto _l510;
20592 _l500:;
20593 kase_ = 2;
20594 l_ = ls_;
20595 _l510:;
20596 _l520:;
20597 l_ = l_ + 1;
20598 switch (kase_) {
20599 default:
20600 case 1: goto _l530;
20601 case 2: goto _l560;
20602 case 3: goto _l580;
20603 case 4: goto _l610;
20604 }
20605 _l530:;
20606 mm1_ = m_ - 1;
20607 f_ = creal (e_[m_ - 1 - 1]);
20608 e_[m_ - 1 - 1] = CMPLX (0.0, 0.0);
20609 for (kk_ = l_; kk_ <= mm1_; (kk_)++) {
20610 k_ = mm1_ - kk_ + l_;
20611 t1_ = creal (s_[k_ - 1]);
20612 (void) _drotg (&t1_, &f_, &cs_, &sn_);
20613 s_[k_ - 1] = CMPLX (t1_, 0.0);
20614 if (k_ == l_) {
20615 goto _l540;
20616 }
20617 f_ = -sn_ * creal (e_[k_ - 1 - 1]);
20618 e_[k_ - 1 - 1] = cs_ * e_[k_ - 1 - 1];
20619 _l540:;
20620 if (wantv_) {
20621 (void) _zdrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((m_ - 1))], &_k1, &cs_, &sn_);
20622 }
20623 }
20624 goto _l650;
20625 _l560:;
20626 f_ = creal (e_[l_ - 1 - 1]);
20627 e_[l_ - 1 - 1] = CMPLX (0.0, 0.0);
20628 for (k_ = l_; k_ <= m_; (k_)++) {
20629 t1_ = creal (s_[k_ - 1]);
20630 (void) _drotg (&t1_, &f_, &cs_, &sn_);
20631 s_[k_ - 1] = CMPLX (t1_, 0.0);
20632 f_ = -sn_ * creal (e_[k_ - 1]);
20633 e_[k_ - 1] = cs_ * e_[k_ - 1];
20634 if (wantu_) {
20635 (void) _zdrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ - 1 - 1))], &_k1, &cs_, &sn_);
20636 }
20637 }
20638 goto _l650;
20639 _l580:;
20640 scale_ = ($17_ = _max (cabs (s_[m_ - 1]), cabs (s_[m_ - 1 - 1])), $17_ = _max ($17_, cabs (e_[m_ - 1 - 1])), $17_ =
20641 _max ($17_, cabs (s_[l_ - 1])), _max ($17_, cabs (e_[l_ - 1])));
20642 sm_ = creal (s_[m_ - 1]) / scale_;
20643 smm1_ = creal (s_[m_ - 1 - 1]) / scale_;
20644 emm1_ = creal (e_[m_ - 1 - 1]) / scale_;
20645 sl_ = creal (s_[l_ - 1]) / scale_;
20646 el_ = creal (e_[l_ - 1]) / scale_;
20647 b_ = ((smm1_ + sm_) * (smm1_ - sm_) + (emm1_ * emm1_)) / 2.0e0;
20648 c_ = ($18_ = (sm_ * emm1_), $18_ * $18_);
20649 shift_ = 0.0;
20650 if (b_ == 0.0e0 && c_ == 0.0e0) {
20651 goto _l590;
20652 }
20653 shift_ = sqrt ((b_ * b_) + c_);
20654 if (b_ < 0.0e0) {
20655 shift_ = -shift_;
20656 }
20657 shift_ = c_ / (b_ + shift_);
20658 _l590:;
20659 f_ = (sl_ + sm_) * (sl_ - sm_) + shift_;
20660 g_ = sl_ * el_;
20661 mm1_ = m_ - 1;
20662 for (k_ = l_; k_ <= mm1_; (k_)++) {
20663 (void) _drotg (&f_, &g_, &cs_, &sn_);
20664 if (k_ != l_) {
20665 e_[k_ - 1 - 1] = CMPLX (f_, 0.0);
20666 }
20667 f_ = cs_ * creal (s_[k_ - 1]) + sn_ * creal (e_[k_ - 1]);
20668 e_[k_ - 1] = cs_ * e_[k_ - 1] - sn_ * s_[k_ - 1];
20669 g_ = sn_ * creal (s_[k_ + 1 - 1]);
20670 s_[k_ + 1 - 1] = cs_ * s_[k_ + 1 - 1];
20671 if (wantv_) {
20672 (void) _zdrot (p_, &v_[0 + ((*ldv_)) * ((k_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
20673 }
20674 (void) _drotg (&f_, &g_, &cs_, &sn_);
20675 s_[k_ - 1] = CMPLX (f_, 0.0);
20676 f_ = cs_ * creal (e_[k_ - 1]) + sn_ * creal (s_[k_ + 1 - 1]);
20677 s_[k_ + 1 - 1] = -sn_ * e_[k_ - 1] + cs_ * s_[k_ + 1 - 1];
20678 g_ = sn_ * creal (e_[k_ + 1 - 1]);
20679 e_[k_ + 1 - 1] = cs_ * e_[k_ + 1 - 1];
20680 if (wantu_ && k_ < (*n_)) {
20681 (void) _zdrot (n_, &u_[0 + ((*ldu_)) * ((k_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((k_ + 1 - 1))], &_k1, &cs_, &sn_);
20682 }
20683 }
20684 e_[m_ - 1 - 1] = CMPLX (f_, 0.0);
20685 iter_ = iter_ + 1;
20686 goto _l650;
20687 _l610:;
20688 if (creal (s_[l_ - 1]) >= 0.0e0) {
20689 goto _l620;
20690 }
20691 s_[l_ - 1] = -s_[l_ - 1];
20692 if (wantv_) {
20693 (void) _zscal (p_, ($19_ = CMPLX (-1.0, 0.0), &$19_), &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1);
20694 }
20695 _l620:;
20696 _l630:;
20697 if (l_ == mm_) {
20698 goto _l640;
20699 }
20700 if (creal (s_[l_ - 1]) >= creal (s_[l_ + 1 - 1])) {
20701 goto _l640;
20702 }
20703 t_ = s_[l_ - 1];
20704 s_[l_ - 1] = s_[l_ + 1 - 1];
20705 s_[l_ + 1 - 1] = t_;
20706 if (wantv_ && l_ < (*p_)) {
20707 (void) _zswap (p_, &v_[0 + ((*ldv_)) * ((l_ - 1))], &_k1, &v_[0 + ((*ldv_)) * ((l_ + 1 - 1))], &_k1);
20708 }
20709 if (wantu_ && l_ < (*n_)) {
20710 (void) _zswap (n_, &u_[0 + ((*ldu_)) * ((l_ - 1))], &_k1, &u_[0 + ((*ldu_)) * ((l_ + 1 - 1))], &_k1);
20711 }
20712 l_ = l_ + 1;
20713 goto _l630;
20714 _l640:;
20715 iter_ = 0;
20716 m_ = m_ - 1;
20717 _l650:;
20718 goto _l400;
20719 _l660:;
20720 __calls[173].calls++;
20721 return 0;
20722 }
20723 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_)
20724 { // ** body not listed **
20761 }
20762 s_ = ({complex_16 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) /
20763 ({complex_16 zdum_1_ = ek_ - z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
20764 (void) _zdscal (n_, &s_, z_, &_k1);
20765 ek_ = CMPLX (s_, 0.0) * ek_;
20766 _l30:;
20767 wk_ = ek_ - z_[k_ - 1];
20768 wkm_ = -ek_ - z_[k_ - 1];
20769 s_ = ({complex_16 zdum_1_ = wk_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
20770 sm_ = ({complex_16 zdum_1_ = wkm_; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
20771 if (({complex_16 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
20772 0.0e0) {
20773 goto _l40;
20774 }
20775 wk_ = wk_ / conj (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
20776 wkm_ = wkm_ / conj (t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]);
20777 goto _l50;
20778 _l40:;
20779 wk_ = CMPLX (1.0, 0.0);
20780 wkm_ = CMPLX (1.0, 0.0);
20781 _l50:;
20782 if (kk_ == (*n_)) {
20783 goto _l90;
20784 }
20785 j1_ = k_ + 1;
20786 if (lower_) {
20787 j1_ = 1;
20788 }
20789 j2_ = (*n_);
20790 if (lower_) {
20791 j2_ = k_ - 1;
20792 }
20793 for (j_ = j1_; j_ <= j2_; (j_)++) {
20794 sm_ = sm_ + ({complex_16 zdum_1_ = z_[j_ - 1] + wkm_ * conj (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]); _abs (creal
20795 (zdum_1_)) + _abs (cimag (zdum_1_));});
20796 z_[j_ - 1] = z_[j_ - 1] + wk_ * conj (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
20797 s_ = s_ + ({complex_16 zdum_1_ = z_[j_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
20798 }
20799 if (s_ >= sm_) {
20800 goto _l80;
20801 }
20802 w_ = wkm_ - wk_;
20803 wk_ = wkm_;
20804 for (j_ = j1_; j_ <= j2_; (j_)++) {
20805 z_[j_ - 1] = z_[j_ - 1] + w_ * conj (t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))]);
20806 }
20807 _l80:;
20808 _l90:;
20809 z_[k_ - 1] = wk_;
20810 }
20811 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
20812 (void) _zdscal (n_, &s_, z_, &_k1);
20813 ynorm_ = 1.0;
20814 for (kk_ = 1; kk_ <= (*n_); (kk_)++) {
20815 k_ = (*n_) + 1 - kk_;
20816 if (lower_) {
20817 k_ = kk_;
20818 }
20819 if (({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) <= ({complex_16 zdum_1_ =
20820 t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));})) {
20821 goto _l110;
20822 }
20823 s_ = ({complex_16 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) /
20824 ({complex_16 zdum_1_ = z_[k_ - 1]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));});
20825 (void) _zdscal (n_, &s_, z_, &_k1);
20826 ynorm_ = s_ * ynorm_;
20827 _l110:;
20828 if (({complex_16 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) !=
20829 0.0e0) {
20830 z_[k_ - 1] = z_[k_ - 1] / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
20831 }
20832 if (({complex_16 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
20833 0.0e0) {
20834 z_[k_ - 1] = CMPLX (1.0, 0.0);
20835 }
20836 i1_ = 1;
20837 if (lower_) {
20838 i1_ = k_ + 1;
20839 }
20840 if (kk_ >= (*n_)) {
20841 goto _l120;
20842 }
20843 w_ = -z_[k_ - 1];
20844 (void) _zaxpy (($0_ = (*n_) - kk_, &$0_), &w_, &t_[i1_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &z_[i1_ - 1], &_k1);
20845 _l120:;
20846 }
20847 s_ = 1.0e0 / _dzasum (n_, z_, &_k1);
20848 (void) _zdscal (n_, &s_, z_, &_k1);
20849 ynorm_ = s_ * ynorm_;
20850 if (tnorm_ != 0.0e0) {
20851 (*rcond_) = ynorm_ / tnorm_;
20852 }
20853 if (tnorm_ == 0.0e0) {
20854 (*rcond_) = 0.0;
20855 }
20856 __calls[174].calls++;
20857 return 0;
20858 }
20859 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_)
20860 { // ** body not listed **
20879 }
20880 det_[0] = CMPLX (ten_, 0.0) * det_[0];
20881 det_[1] = det_[1] - CMPLX (1.0, 0.0);
20882 goto _l10;
20883 _l20:;
20884 _l30:;
20885 if (({complex_16 zdum_1_ = det_[0]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) < ten_) {
20886 goto _l40;
20887 }
20888 det_[0] = det_[0] / CMPLX (ten_, 0.0);
20889 det_[1] = det_[1] + CMPLX (1.0, 0.0);
20890 goto _l30;
20891 _l40:;
20892 }
20893 _l60:;
20894 _l70:;
20895 if (_imod ((*job_) / 10, 10) == 0) {
20896 goto _l170;
20897 }
20898 if (_imod ((*job_), 10) == 0) {
20899 goto _l120;
20900 }
20901 for (k_ = 1; k_ <= (*n_); (k_)++) {
20902 (*info_) = k_;
20903 if (({complex_16 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
20904 0.0e0) {
20905 goto _l110;
20906 }
20907 t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
20908 temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
20909 (void) _zscal (($0_ = k_ - 1, &$0_), &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1);
20910 kp1_ = k_ + 1;
20911 if ((*n_) < kp1_) {
20912 goto _l90;
20913 }
20914 for (j_ = kp1_; j_ <= (*n_); (j_)++) {
20915 temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
20916 t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
20917 (void) _zaxpy (&k_, &temp_, &t_[0 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1);
20918 }
20919 _l90:;
20920 }
20921 (*info_) = 0;
20922 _l110:;
20923 goto _l160;
20924 _l120:;
20925 for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
20926 k_ = (*n_) + 1 - kb_;
20927 (*info_) = k_;
20928 if (({complex_16 zdum_1_ = t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))]; _abs (creal (zdum_1_)) + _abs (cimag (zdum_1_));}) ==
20929 0.0e0) {
20930 goto _l180;
20931 }
20932 t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))] = CMPLX (1.0, 0.0) / t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
20933 temp_ = -t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))];
20934 if (k_ != (*n_)) {
20935 (void) _zscal (($1_ = (*n_) - k_, &$1_), &temp_, &t_[k_ + 1 - 1 + ((*ldt_)) * ((k_ - 1))], &_k1);
20936 }
20937 km1_ = k_ - 1;
20938 if (km1_ < 1) {
20939 goto _l140;
20940 }
20941 for (j_ = 1; j_ <= km1_; (j_)++) {
20942 temp_ = t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))];
20943 t_[k_ - 1 + ((*ldt_)) * ((j_ - 1))] = CMPLX (0.0, 0.0);
20944 (void) _zaxpy (($2_ = (*n_) - k_ + 1, &$2_), &temp_, &t_[k_ - 1 + ((*ldt_)) * ((k_ - 1))], &_k1, &t_[k_ - 1 + ((*ldt_))
20945 * ((j_ - 1))], &_k1);
20946 }
20947 _l140:;
20948 }
20949 (*info_) = 0;
20950 _l160:;
20951 _l170:;
20952 _l180:;
20953 __calls[175].calls++;
20954 return 0;
20955 }
20956 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_)
20957 { // ** body not listed **
20967 }
20968 (*info_) = 0;
20969 case_ = 1;
20970 if (_imod ((*job_), 10) != 0) {
20971 case_ = 2;
20972 }
20973 if (_imod ((*job_), 100) / 10 != 0) {
20974 case_ = case_ + 2;
20975 }
20976 switch (case_) {
20977 default:
20978 case 1: goto _l20;
20979 case 2: goto _l50;
20980 case 3: goto _l80;
20981 case 4: goto _l110;
20982 }
20983 _l20:;
20984 b_[0] = b_[0] / t_[0 + ((*ldt_)) * ((0))];
20985 if ((*n_) < 2) {
20986 goto _l40;
20987 }
20988 for (j_ = 2; j_ <= (*n_); (j_)++) {
20989 temp_ = -b_[j_ - 1 - 1];
20990 (void) _zaxpy (($0_ = (*n_) - j_ + 1, &$0_), &temp_, &t_[j_ - 1 + ((*ldt_)) * ((j_ - 1 - 1))], &_k1, &b_[j_ - 1], &_k1)
20991 ;
20992 b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
20993 }
20994 _l40:;
20995 goto _l140;
20996 _l50:;
20997 b_[(*n_) - 1] = b_[(*n_) - 1] / t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))];
20998 if ((*n_) < 2) {
20999 goto _l70;
21000 }
21001 for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
21002 j_ = (*n_) - jj_ + 1;
21003 temp_ = -b_[j_ + 1 - 1];
21004 (void) _zaxpy (&j_, &temp_, &t_[0 + ((*ldt_)) * ((j_ + 1 - 1))], &_k1, &b_[0], &_k1);
21005 b_[j_ - 1] = b_[j_ - 1] / t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))];
21006 }
21007 _l70:;
21008 goto _l140;
21009 _l80:;
21010 b_[(*n_) - 1] = b_[(*n_) - 1] / conj (t_[(*n_) - 1 + ((*ldt_)) * (((*n_) - 1))]);
21011 if ((*n_) < 2) {
21012 goto _l100;
21013 }
21014 for (jj_ = 2; jj_ <= (*n_); (jj_)++) {
21015 j_ = (*n_) - jj_ + 1;
21016 b_[j_ - 1] = b_[j_ - 1] - _zdotc (($1_ = jj_ - 1, &$1_), &t_[j_ + 1 - 1 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[j_ + 1 -
21017 1], &_k1);
21018 b_[j_ - 1] = b_[j_ - 1] / conj (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
21019 }
21020 _l100:;
21021 goto _l140;
21022 _l110:;
21023 b_[0] = b_[0] / conj (t_[0 + ((*ldt_)) * ((0))]);
21024 if ((*n_) < 2) {
21025 goto _l130;
21026 }
21027 for (j_ = 2; j_ <= (*n_); (j_)++) {
21028 b_[j_ - 1] = b_[j_ - 1] - _zdotc (($2_ = j_ - 1, &$2_), &t_[0 + ((*ldt_)) * ((j_ - 1))], &_k1, &b_[0], &_k1);
21029 b_[j_ - 1] = b_[j_ - 1] / conj (t_[j_ - 1 + ((*ldt_)) * ((j_ - 1))]);
21030 }
21031 _l130:;
21032 _l140:;
21033 _l150:;
21034 __calls[176].calls++;
21035 return 0;
21036 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
