| blob | 36ed5f4cf469dbe8bebdab63868b142c85cc7446 |
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))
47 y-%offset%))
59 double-float
62 y-%offset%)
64 double-float
67 qr-%offset%)
68 k par ipar)
71 label30))
75 double-float
78 y-%offset%)
80 double-float
83 qr-%offset%)
84 par ipar)
90 double-float
93 y-%offset%)
94 tz)
106 tz-%offset%)))
110 qr-%offset%)
111 beta)
112 label100
116 qr-%offset%)
117 (+
122 y-%offset%)
123 sigma)
130 double-float
133 y-%offset%)
134 tz k)
139 label110
143 qr-%offset%)
148 tz-%offset%)))))
149 label120
153 qr-%offset%)
158 qr-%offset%))))))
161 label140
170 y-%offset%)
177 tz-%offset%)
178 sigma))
182 qr-%offset%)
183 beta)
184 label150
188 qr-%offset%)
195 double-float
198 y-%offset%)
199 tz k)
204 label160
208 qr-%offset%)
209 (* lambda$
213 tz-%offset%)))))
214 label170
218 qr-%offset%)
223 qr-%offset%))))))))))
228 double-float
231 qr-%offset%)
239 yp-%offset%)
242 double-float
245 qr-%offset%)
246 1
248 double-float
251 qr-%offset%)
253 label220
257 pivot-%offset%)
258 j)))
266 yp-%offset%))
273 (>= sigma
277 yp-%offset%))
283 yp-%offset%))
285 label240))
291 pivot-%offset%))
295 pivot-%offset%)
299 pivot-%offset%))
303 pivot-%offset%)
304 i)
308 yp-%offset%)
312 yp-%offset%))
316 yp-%offset%)
317 sigma)
325 qr-%offset%))
329 qr-%offset%)
333 qr-%offset%))
337 qr-%offset%)
338 sigma)
339 label250))
340 label260
344 double-float
347 qr-%offset%)
348 1
350 double-float
353 qr-%offset%)
359 label270
365 qr-%offset%))
373 qr-%offset%)
379 (* beta
382 double-float
386 qr-%offset%)
387 1
389 double-float
393 qr-%offset%)
401 qr-%offset%)
406 qr-%offset%)
407 (*
411 qr-%offset%)
412 sigma)))
413 label280))
418 yp-%offset%)
423 yp-%offset%)
428 qr-%offset%)
430 label290))
431 label300))
436 qr-%offset%))
440 tz-%offset%)
449 label330
451 (+ sum
452 (*
456 qr-%offset%)
460 tz-%offset%))))))
461 label340
465 tz-%offset%)
470 alpha-%offset%)))))
475 label360
481 yp-%offset%)
482 (/
486 tz-%offset%)
487 ypnorm))))
492 label370
496 yp-%offset%)
501 yp-%offset%)))))
502 label380
507 (+
511 qr-%offset%)
515 qr-%offset%)))
519 label430
521 (+ sum
522 (*
526 qr-%offset%)
530 alpha-%offset%))))))
531 label440
537 alpha-%offset%)))))
541 label450
547 tz-%offset%)
554 tz-%offset%)
563 tz-%offset%)
568 tz-%offset%)
569 (* sigma
573 yp-%offset%))))
574 label470))
576 end_label
596 nil nil)