| blob | bdc8eedd5e7bfc8256ae04a6c704e04902848bf3 |
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))
81 c-%offset%)
83 label10))
84 label20)))
90 ((> i
93 nil)
98 c-%offset%)
99 (* beta
103 c-%offset%)))
104 label30))
108 c-%offset%)
110 (* beta
115 c-%offset%)))
117 label40)))))
130 c-%offset%)
132 label50))
133 label60)))
141 c-%offset%)
143 (* beta
148 c-%offset%)))
157 c-%offset%)
158 (* beta
162 c-%offset%)))
163 label70))
164 label80))))))
181 c-%offset%)
183 label90)))
186 ((> i
189 nil)
194 c-%offset%)
195 (* beta
199 c-%offset%)))
200 label100))
204 c-%offset%)
206 (* beta
211 c-%offset%)))
217 c-%offset%)
223 c-%offset%))
233 (* alpha
238 a-%offset%)))
241 ((> i
245 nil)
250 c-%offset%)
251 (+
255 c-%offset%)
256 (* temp
260 a-%offset%))))
261 label110))
265 c-%offset%)
267 (+
272 c-%offset%))
274 (* temp
278 a-%offset%))))
280 label120))
281 label130)))
294 c-%offset%)
296 label140)))
301 c-%offset%)
303 (* beta
308 c-%offset%)))
317 c-%offset%)
318 (* beta
322 c-%offset%)))
323 label150)))
328 c-%offset%)
334 c-%offset%))
344 (* alpha
349 a-%offset%)))
354 c-%offset%)
356 (+
361 c-%offset%))
363 (* temp
367 a-%offset%))))
376 c-%offset%)
377 (+
381 c-%offset%)
382 (* temp
386 a-%offset%))))
387 label160))))
388 label170))
389 label180)))))
397 ((> i
399 nil)
406 (+ temp
407 (*
412 a-%offset%))
416 a-%offset%))))
417 label190))
423 c-%offset%)
429 c-%offset%)
431 (* beta
435 c-%offset%))))))
436 label200))
444 (+ rtemp
445 (*
450 a-%offset%))
454 a-%offset%))))
456 label210))
462 c-%offset%)
468 c-%offset%)
471 (* beta
476 c-%offset%))))
478 label220)))
490 (+ rtemp
491 (*
496 a-%offset%))
500 a-%offset%))))
502 label230))
508 c-%offset%)
514 c-%offset%)
517 (* beta
522 c-%offset%))))
533 (+ temp
534 (*
539 a-%offset%))
543 a-%offset%))))
544 label240))
550 c-%offset%)
556 c-%offset%)
558 (* beta
562 c-%offset%))))))
563 label250))
564 label260))))))
566 end_label