| blob | 94396d3dba0c2404262b115d3847f2554698f638 |
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))
60 incx)))))
68 incy)))))
79 zero)
80 label10)))
86 (* beta
90 y-%offset%)))
91 label20)))))
100 zero)
102 label30)))
108 (* beta
112 y-%offset%)))
114 label40))))))))
125 (* alpha
130 ((> i
132 nil)
135 (+
137 (* temp1
141 ap-%offset%))))
143 (+ temp2
144 (*
149 ap-%offset%))
153 x-%offset%))))
155 label50))
158 (* temp1
165 ap-%offset%)))
168 label60)))
176 (* alpha
182 ((> k
184 j
186 nil)
189 (+
191 (* temp1
195 ap-%offset%))))
197 (+ temp2
198 (*
203 ap-%offset%))
207 x-%offset%))))
210 label70))
213 (* temp1
220 ap-%offset%)))
225 label80)))))
233 (* alpha
238 (* temp1
243 ap-%offset%)))))
250 (+
252 (* temp1
256 ap-%offset%))))
258 (+ temp2
259 (*
264 ap-%offset%))
268 x-%offset%))))
270 label90))
279 label100)))
287 (* alpha
292 (* temp1
297 ap-%offset%)))))
302 ((> k
304 n
306 nil)
311 (+
313 (* temp1
317 ap-%offset%))))
319 (+ temp2
320 (*
325 ap-%offset%))
329 x-%offset%))))
330 label110))
341 label120))))))
343 end_label