| blob | a6d67a3d1a5d392f86d3d68b5c6a1730ac414991 |
1 ;;; Compiled by f2cl version:
2 ;;; ("f2cl1.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
3 ;;; "f2cl2.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
4 ;;; "f2cl3.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
5 ;;; "f2cl4.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
6 ;;; "f2cl5.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
7 ;;; "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
8 ;;; "macros.l,v 1409c1352feb 2013/03/24 20:44:50 toy $")
10 ;;; Using Lisp CMU Common Lisp snapshot-2020-04 (21D Unicode)
11 ;;;
12 ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
13 ;;; (:coerce-assigns :as-needed) (:array-type ':array)
14 ;;; (:array-slicing t) (:declare-common nil)
15 ;;; (:float-format double-float))
24 ipar)
51 (+
52 (*
53 (+
54 (*
57 s)
58 fp0)
59 s)
60 f0)))
63 dd01))
67 dd001))
71 dd011))
74 double-float)
76 dd0011))
79 double-float double-float)
81 qofs))
87 judy jw lcode np1)
89 sb sout u))
102 label100
119 lenqr)))
120 work-%offset%)
125 y-%offset%)
129 yold-%offset%)))
130 label110))
134 double-float
140 n
143 lenqr)))
144 work-%offset%)
149 label130
164 yold-%offset%)
168 ypold-%offset%)
172 y-%offset%)
176 yp-%offset%)
177 dels sout)
180 label140
198 lenqr)))
199 work-%offset%)
204 yold-%offset%)
208 ypold-%offset%)
212 y-%offset%)
216 yp-%offset%)
217 dels sa))
218 label150))
221 var-9 var-10 var-11 var-12 var-13 var-14 var-15 var-16)
224 double-float
230 n
233 lenqr)))
234 work-%offset%)
236 double-float
242 n
245 lenqr)))
246 work-%offset%)
248 double-float
254 n
257 lenqr)))
258 work-%offset%)
259 ypold a qr lenqr pivot
261 double-float
267 n
270 lenqr)))
271 work-%offset%)
273 double-float
279 n
282 lenqr)))
283 work-%offset%)
285 double-float
291 n
294 lenqr)))
295 work-%offset%)
296 nfe n iflag par ipar)
298 var-8 var-9 var-10 var-11 var-13 var-15
299 var-16))
306 double-float
314 lenqr)))
315 work-%offset%)
316 1
318 double-float
326 lenqr)))
327 work-%offset%)
331 var-9 var-10 var-11 var-12 var-13 var-14 var-15 var-16)
334 double-float
340 n
343 lenqr)))
344 work-%offset%)
346 double-float
352 n
355 lenqr)))
356 work-%offset%)
358 double-float
364 n
367 lenqr)))
368 work-%offset%)
369 ypold a qr lenqr pivot
371 double-float
377 n
380 lenqr)))
381 work-%offset%)
383 double-float
389 n
392 lenqr)))
393 work-%offset%)
395 double-float
401 n
404 lenqr)))
405 work-%offset%)
406 nfe n iflag par ipar)
408 var-8 var-9 var-10 var-11 var-13 var-15
409 var-16))
416 double-float
424 lenqr)))
425 work-%offset%)
426 1
428 double-float
436 lenqr)))
437 work-%offset%)
441 (<=
443 (+
452 lenqr))))
455 (<=
458 double-float
464 n
467 lenqr))))
469 (+
470 (* rerr
473 double-float
479 n
482 lenqr))))
484 aerr)))
487 double-float
493 n
496 lenqr)))
497 work-%offset%)
501 ((>
502 (*
505 (+
513 lenqr))))
518 double-float
524 n
527 lenqr)))
528 work-%offset%)
532 double-float
538 n
541 lenqr)))
542 work-%offset%)
547 double-float
553 n
556 lenqr)))
557 work-%offset%)
561 double-float
567 n
570 lenqr)))
571 work-%offset%)
573 label300))
576 end_label
579 nfe
580 iflag
581 nil
582 nil
583 nil
584 nil
585 nil
586 nil
587 nil
588 nil
589 nil
590 nil
591 nil
592 nil
593 nil)))))))
611 nil nil nil nil nil nil nil nil nil nil nil nil)