| blob | a175b534d2485b646a19847e4867f3a33b66b30d |
1 ;;; Compiled by f2cl version:
2 ;;; ("f2cl1.l,v 2edcbd958861 2012/05/30 03:34:52 toy $"
3 ;;; "f2cl2.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
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 3fe93de3be82 2012/05/06 02:17:14 toy $"
7 ;;; "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
8 ;;; "macros.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $")
10 ;;; Using Lisp CMU Common Lisp 20d (20D 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))
86 b-%offset%)
87 zero)
88 label10))
89 label20))
108 b-%offset%)
109 (* alpha
113 b-%offset%)))
114 label30))))
125 b-%offset%)
126 (/
130 b-%offset%)
134 a-%offset%))))
136 ((> i
140 nil)
145 b-%offset%)
150 b-%offset%)
151 (*
155 b-%offset%)
159 a-%offset%))))
160 label40))))
161 label50))
162 label60)))
175 b-%offset%)
176 (* alpha
180 b-%offset%)))
181 label70))))
191 b-%offset%)
192 (/
196 b-%offset%)
200 a-%offset%))))
208 b-%offset%)
213 b-%offset%)
214 (*
218 b-%offset%)
222 a-%offset%))))
223 label80))))
224 label90))
225 label100)))))
236 (* alpha
240 b-%offset%)))
244 ((> k
248 nil)
252 (*
256 a-%offset%)
260 b-%offset%))))
261 label110))
264 (/ temp
268 a-%offset%)))))
271 ((> k
275 nil)
279 (*
284 a-%offset%))
288 b-%offset%))))
289 label120))
292 (/ temp
297 a-%offset%)))))))
301 b-%offset%)
302 temp)
303 label130))
304 label140)))
314 (* alpha
318 b-%offset%)))
327 (*
331 a-%offset%)
335 b-%offset%))))
336 label150))
339 (/ temp
343 a-%offset%)))))
351 (*
356 a-%offset%))
360 b-%offset%))))
361 label160))
364 (/ temp
369 a-%offset%)))))))
373 b-%offset%)
374 temp)
375 label170))
376 label180)))))))
393 b-%offset%)
394 (* alpha
398 b-%offset%)))
399 label190))))
401 ((> k
404 nil)
414 b-%offset%)
419 b-%offset%)
420 (*
424 a-%offset%)
428 b-%offset%))))
429 label200))))
430 label210))
434 (/ one
438 a-%offset%)))
445 b-%offset%)
446 (* temp
450 b-%offset%)))
451 label220))))
452 label230)))
465 b-%offset%)
466 (* alpha
470 b-%offset%)))
471 label240))))
484 b-%offset%)
489 b-%offset%)
490 (*
494 a-%offset%)
498 b-%offset%))))
499 label250))))
500 label260))
504 (/ one
508 a-%offset%)))
515 b-%offset%)
516 (* temp
520 b-%offset%)))
521 label270))))
522 label280)))))
534 (/ one
538 a-%offset%))))
541 (/ one
546 a-%offset%))))))
553 b-%offset%)
554 (* temp
558 b-%offset%)))
559 label290))))
561 ((> j
564 nil)
574 a-%offset%)))
582 a-%offset%))
590 b-%offset%)
595 b-%offset%)
596 (* temp
600 b-%offset%))))
601 label300))))
602 label310))
611 b-%offset%)
612 (* alpha
616 b-%offset%)))
617 label320))))
618 label330)))
628 (/ one
632 a-%offset%))))
635 (/ one
640 a-%offset%))))))
647 b-%offset%)
648 (* temp
652 b-%offset%)))
653 label340))))
666 a-%offset%)))
674 a-%offset%))
682 b-%offset%)
687 b-%offset%)
688 (* temp
692 b-%offset%))))
693 label350))))
694 label360))
703 b-%offset%)
704 (* alpha
708 b-%offset%)))
709 label370))))
710 label380))))))))
712 end_label