?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Use github theme and add some comments
[maxima.git] / share / fftpack5 / lisp / c1f5kb.lisp
blob568e4ebef7639ff2f3da2de617e4d3a908b26873
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 $")
9
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 single-float))
16
17 (in-package "FFTPACK5")
18
19
20 (let ((tr11 0.3090169943749474d0)
21 (ti11 0.9510565162951536d0)
22 (tr12 -0.8090169943749475d0)
23 (ti12 0.5877852522924731d0))
24 (declare (type (double-float) tr11 ti11 tr12 ti12))
25 (defun c1f5kb (ido l1 na cc in1 ch in2 wa)
26 (declare (type (array double-float (*)) wa ch cc)
27 (type (f2cl-lib:integer4) in2 in1 na l1 ido))
28 (f2cl-lib:with-multi-array-data
29 ((cc double-float cc-%data% cc-%offset%)
30 (ch double-float ch-%data% ch-%offset%)
31 (wa double-float wa-%data% wa-%offset%))
32 (prog ((di2 0.0d0) (di5 0.0d0) (dr2 0.0d0) (dr5 0.0d0) (di4 0.0d0)
33 (di3 0.0d0) (dr4 0.0d0) (dr3 0.0d0) (i 0) (ci4 0.0d0) (cr4 0.0d0)
34 (ci5 0.0d0) (cr5 0.0d0) (ci3 0.0d0) (cr3 0.0d0) (ci2 0.0d0)
35 (cr2 0.0d0) (chold2 0.0d0) (chold1 0.0d0) (tr3 0.0d0) (tr4 0.0d0)
36 (tr2 0.0d0) (tr5 0.0d0) (ti3 0.0d0) (ti4 0.0d0) (ti2 0.0d0)
37 (ti5 0.0d0) (k 0))
38 (declare (type (f2cl-lib:integer4) k i)
39 (type (double-float) ti5 ti2 ti4 ti3 tr5 tr2 tr4 tr3 chold1
40 chold2 cr2 ci2 cr3 ci3 cr5 ci5 cr4 ci4
41 dr3 dr4 di3 di4 dr5 dr2 di5 di2))
42 (if (or (> ido 1) (= na 1)) (go label102))
43 (f2cl-lib:fdo (k 1 (f2cl-lib:int-add k 1))
44 ((> k l1) nil)
45 (tagbody
46 (setf ti5
47 (-
48 (f2cl-lib:fref cc-%data%
49 (2 k 1 2)
50 ((1 in1) (1 l1) (1 ido) (1 5))
51 cc-%offset%)
52 (f2cl-lib:fref cc-%data%
53 (2 k 1 5)
54 ((1 in1) (1 l1) (1 ido) (1 5))
55 cc-%offset%)))
56 (setf ti2
57 (+
58 (f2cl-lib:fref cc-%data%
59 (2 k 1 2)
60 ((1 in1) (1 l1) (1 ido) (1 5))
61 cc-%offset%)
62 (f2cl-lib:fref cc-%data%
63 (2 k 1 5)
64 ((1 in1) (1 l1) (1 ido) (1 5))
65 cc-%offset%)))
66 (setf ti4
67 (-
68 (f2cl-lib:fref cc-%data%
69 (2 k 1 3)
70 ((1 in1) (1 l1) (1 ido) (1 5))
71 cc-%offset%)
72 (f2cl-lib:fref cc-%data%
73 (2 k 1 4)
74 ((1 in1) (1 l1) (1 ido) (1 5))
75 cc-%offset%)))
76 (setf ti3
77 (+
78 (f2cl-lib:fref cc-%data%
79 (2 k 1 3)
80 ((1 in1) (1 l1) (1 ido) (1 5))
81 cc-%offset%)
82 (f2cl-lib:fref cc-%data%
83 (2 k 1 4)
84 ((1 in1) (1 l1) (1 ido) (1 5))
85 cc-%offset%)))
86 (setf tr5
87 (-
88 (f2cl-lib:fref cc-%data%
89 (1 k 1 2)
90 ((1 in1) (1 l1) (1 ido) (1 5))
91 cc-%offset%)
92 (f2cl-lib:fref cc-%data%
93 (1 k 1 5)
94 ((1 in1) (1 l1) (1 ido) (1 5))
95 cc-%offset%)))
96 (setf tr2
97 (+
98 (f2cl-lib:fref cc-%data%
99 (1 k 1 2)
100 ((1 in1) (1 l1) (1 ido) (1 5))
101 cc-%offset%)
102 (f2cl-lib:fref cc-%data%
103 (1 k 1 5)
104 ((1 in1) (1 l1) (1 ido) (1 5))
105 cc-%offset%)))
106 (setf tr4
107 (-
108 (f2cl-lib:fref cc-%data%
109 (1 k 1 3)
110 ((1 in1) (1 l1) (1 ido) (1 5))
111 cc-%offset%)
112 (f2cl-lib:fref cc-%data%
113 (1 k 1 4)
114 ((1 in1) (1 l1) (1 ido) (1 5))
115 cc-%offset%)))
116 (setf tr3
117 (+
118 (f2cl-lib:fref cc-%data%
119 (1 k 1 3)
120 ((1 in1) (1 l1) (1 ido) (1 5))
121 cc-%offset%)
122 (f2cl-lib:fref cc-%data%
123 (1 k 1 4)
124 ((1 in1) (1 l1) (1 ido) (1 5))
125 cc-%offset%)))
126 (setf chold1
127 (+
128 (f2cl-lib:fref cc-%data%
129 (1 k 1 1)
130 ((1 in1) (1 l1) (1 ido) (1 5))
131 cc-%offset%)
132 tr2
133 tr3))
134 (setf chold2
135 (+
136 (f2cl-lib:fref cc-%data%
137 (2 k 1 1)
138 ((1 in1) (1 l1) (1 ido) (1 5))
139 cc-%offset%)
140 ti2
141 ti3))
142 (setf cr2
143 (+
144 (f2cl-lib:fref cc-%data%
145 (1 k 1 1)
146 ((1 in1) (1 l1) (1 ido) (1 5))
147 cc-%offset%)
148 (* tr11 tr2)
149 (* tr12 tr3)))
150 (setf ci2
151 (+
152 (f2cl-lib:fref cc-%data%
153 (2 k 1 1)
154 ((1 in1) (1 l1) (1 ido) (1 5))
155 cc-%offset%)
156 (* tr11 ti2)
157 (* tr12 ti3)))
158 (setf cr3
159 (+
160 (f2cl-lib:fref cc-%data%
161 (1 k 1 1)
162 ((1 in1) (1 l1) (1 ido) (1 5))
163 cc-%offset%)
164 (* tr12 tr2)
165 (* tr11 tr3)))
166 (setf ci3
167 (+
168 (f2cl-lib:fref cc-%data%
169 (2 k 1 1)
170 ((1 in1) (1 l1) (1 ido) (1 5))
171 cc-%offset%)
172 (* tr12 ti2)
173 (* tr11 ti3)))
174 (setf (f2cl-lib:fref cc-%data%
175 (1 k 1 1)
176 ((1 in1) (1 l1) (1 ido) (1 5))
177 cc-%offset%)
178 chold1)
179 (setf (f2cl-lib:fref cc-%data%
180 (2 k 1 1)
181 ((1 in1) (1 l1) (1 ido) (1 5))
182 cc-%offset%)
183 chold2)
184 (setf cr5 (+ (* ti11 tr5) (* ti12 tr4)))
185 (setf ci5 (+ (* ti11 ti5) (* ti12 ti4)))
186 (setf cr4 (- (* ti12 tr5) (* ti11 tr4)))
187 (setf ci4 (- (* ti12 ti5) (* ti11 ti4)))
188 (setf (f2cl-lib:fref cc-%data%
189 (1 k 1 2)
190 ((1 in1) (1 l1) (1 ido) (1 5))
191 cc-%offset%)
192 (- cr2 ci5))
193 (setf (f2cl-lib:fref cc-%data%
194 (1 k 1 5)
195 ((1 in1) (1 l1) (1 ido) (1 5))
196 cc-%offset%)
197 (+ cr2 ci5))
198 (setf (f2cl-lib:fref cc-%data%
199 (2 k 1 2)
200 ((1 in1) (1 l1) (1 ido) (1 5))
201 cc-%offset%)
202 (+ ci2 cr5))
203 (setf (f2cl-lib:fref cc-%data%
204 (2 k 1 3)
205 ((1 in1) (1 l1) (1 ido) (1 5))
206 cc-%offset%)
207 (+ ci3 cr4))
208 (setf (f2cl-lib:fref cc-%data%
209 (1 k 1 3)
210 ((1 in1) (1 l1) (1 ido) (1 5))
211 cc-%offset%)
212 (- cr3 ci4))
213 (setf (f2cl-lib:fref cc-%data%
214 (1 k 1 4)
215 ((1 in1) (1 l1) (1 ido) (1 5))
216 cc-%offset%)
217 (+ cr3 ci4))
218 (setf (f2cl-lib:fref cc-%data%
219 (2 k 1 4)
220 ((1 in1) (1 l1) (1 ido) (1 5))
221 cc-%offset%)
222 (- ci3 cr4))
223 (setf (f2cl-lib:fref cc-%data%
224 (2 k 1 5)
225 ((1 in1) (1 l1) (1 ido) (1 5))
226 cc-%offset%)
227 (- ci2 cr5))
228 label101))
229 (go end_label)
230 label102
231 (f2cl-lib:fdo (k 1 (f2cl-lib:int-add k 1))
232 ((> k l1) nil)
233 (tagbody
234 (setf ti5
235 (-
236 (f2cl-lib:fref cc-%data%
237 (2 k 1 2)
238 ((1 in1) (1 l1) (1 ido) (1 5))
239 cc-%offset%)
240 (f2cl-lib:fref cc-%data%
241 (2 k 1 5)
242 ((1 in1) (1 l1) (1 ido) (1 5))
243 cc-%offset%)))
244 (setf ti2
245 (+
246 (f2cl-lib:fref cc-%data%
247 (2 k 1 2)
248 ((1 in1) (1 l1) (1 ido) (1 5))
249 cc-%offset%)
250 (f2cl-lib:fref cc-%data%
251 (2 k 1 5)
252 ((1 in1) (1 l1) (1 ido) (1 5))
253 cc-%offset%)))
254 (setf ti4
255 (-
256 (f2cl-lib:fref cc-%data%
257 (2 k 1 3)
258 ((1 in1) (1 l1) (1 ido) (1 5))
259 cc-%offset%)
260 (f2cl-lib:fref cc-%data%
261 (2 k 1 4)
262 ((1 in1) (1 l1) (1 ido) (1 5))
263 cc-%offset%)))
264 (setf ti3
265 (+
266 (f2cl-lib:fref cc-%data%
267 (2 k 1 3)
268 ((1 in1) (1 l1) (1 ido) (1 5))
269 cc-%offset%)
270 (f2cl-lib:fref cc-%data%
271 (2 k 1 4)
272 ((1 in1) (1 l1) (1 ido) (1 5))
273 cc-%offset%)))
274 (setf tr5
275 (-
276 (f2cl-lib:fref cc-%data%
277 (1 k 1 2)
278 ((1 in1) (1 l1) (1 ido) (1 5))
279 cc-%offset%)
280 (f2cl-lib:fref cc-%data%
281 (1 k 1 5)
282 ((1 in1) (1 l1) (1 ido) (1 5))
283 cc-%offset%)))
284 (setf tr2
285 (+
286 (f2cl-lib:fref cc-%data%
287 (1 k 1 2)
288 ((1 in1) (1 l1) (1 ido) (1 5))
289 cc-%offset%)
290 (f2cl-lib:fref cc-%data%
291 (1 k 1 5)
292 ((1 in1) (1 l1) (1 ido) (1 5))
293 cc-%offset%)))
294 (setf tr4
295 (-
296 (f2cl-lib:fref cc-%data%
297 (1 k 1 3)
298 ((1 in1) (1 l1) (1 ido) (1 5))
299 cc-%offset%)
300 (f2cl-lib:fref cc-%data%
301 (1 k 1 4)
302 ((1 in1) (1 l1) (1 ido) (1 5))
303 cc-%offset%)))
304 (setf tr3
305 (+
306 (f2cl-lib:fref cc-%data%
307 (1 k 1 3)
308 ((1 in1) (1 l1) (1 ido) (1 5))
309 cc-%offset%)
310 (f2cl-lib:fref cc-%data%
311 (1 k 1 4)
312 ((1 in1) (1 l1) (1 ido) (1 5))
313 cc-%offset%)))
314 (setf (f2cl-lib:fref ch-%data%
315 (1 k 1 1)
316 ((1 in2) (1 l1) (1 5) (1 ido))
317 ch-%offset%)
318 (+
319 (f2cl-lib:fref cc-%data%
320 (1 k 1 1)
321 ((1 in1) (1 l1) (1 ido) (1 5))
322 cc-%offset%)
323 tr2
324 tr3))
325 (setf (f2cl-lib:fref ch-%data%
326 (2 k 1 1)
327 ((1 in2) (1 l1) (1 5) (1 ido))
328 ch-%offset%)
329 (+
330 (f2cl-lib:fref cc-%data%
331 (2 k 1 1)
332 ((1 in1) (1 l1) (1 ido) (1 5))
333 cc-%offset%)
334 ti2
335 ti3))
336 (setf cr2
337 (+
338 (f2cl-lib:fref cc-%data%
339 (1 k 1 1)
340 ((1 in1) (1 l1) (1 ido) (1 5))
341 cc-%offset%)
342 (* tr11 tr2)
343 (* tr12 tr3)))
344 (setf ci2
345 (+
346 (f2cl-lib:fref cc-%data%
347 (2 k 1 1)
348 ((1 in1) (1 l1) (1 ido) (1 5))
349 cc-%offset%)
350 (* tr11 ti2)
351 (* tr12 ti3)))
352 (setf cr3
353 (+
354 (f2cl-lib:fref cc-%data%
355 (1 k 1 1)
356 ((1 in1) (1 l1) (1 ido) (1 5))
357 cc-%offset%)
358 (* tr12 tr2)
359 (* tr11 tr3)))
360 (setf ci3
361 (+
362 (f2cl-lib:fref cc-%data%
363 (2 k 1 1)
364 ((1 in1) (1 l1) (1 ido) (1 5))
365 cc-%offset%)
366 (* tr12 ti2)
367 (* tr11 ti3)))
368 (setf cr5 (+ (* ti11 tr5) (* ti12 tr4)))
369 (setf ci5 (+ (* ti11 ti5) (* ti12 ti4)))
370 (setf cr4 (- (* ti12 tr5) (* ti11 tr4)))
371 (setf ci4 (- (* ti12 ti5) (* ti11 ti4)))
372 (setf (f2cl-lib:fref ch-%data%
373 (1 k 2 1)
374 ((1 in2) (1 l1) (1 5) (1 ido))
375 ch-%offset%)
376 (- cr2 ci5))
377 (setf (f2cl-lib:fref ch-%data%
378 (1 k 5 1)
379 ((1 in2) (1 l1) (1 5) (1 ido))
380 ch-%offset%)
381 (+ cr2 ci5))
382 (setf (f2cl-lib:fref ch-%data%
383 (2 k 2 1)
384 ((1 in2) (1 l1) (1 5) (1 ido))
385 ch-%offset%)
386 (+ ci2 cr5))
387 (setf (f2cl-lib:fref ch-%data%
388 (2 k 3 1)
389 ((1 in2) (1 l1) (1 5) (1 ido))
390 ch-%offset%)
391 (+ ci3 cr4))
392 (setf (f2cl-lib:fref ch-%data%
393 (1 k 3 1)
394 ((1 in2) (1 l1) (1 5) (1 ido))
395 ch-%offset%)
396 (- cr3 ci4))
397 (setf (f2cl-lib:fref ch-%data%
398 (1 k 4 1)
399 ((1 in2) (1 l1) (1 5) (1 ido))
400 ch-%offset%)
401 (+ cr3 ci4))
402 (setf (f2cl-lib:fref ch-%data%
403 (2 k 4 1)
404 ((1 in2) (1 l1) (1 5) (1 ido))
405 ch-%offset%)
406 (- ci3 cr4))
407 (setf (f2cl-lib:fref ch-%data%
408 (2 k 5 1)
409 ((1 in2) (1 l1) (1 5) (1 ido))
410 ch-%offset%)
411 (- ci2 cr5))
412 label103))
413 (if (= ido 1) (go end_label))
414 (f2cl-lib:fdo (i 2 (f2cl-lib:int-add i 1))
415 ((> i ido) nil)
416 (tagbody
417 (f2cl-lib:fdo (k 1 (f2cl-lib:int-add k 1))
418 ((> k l1) nil)
419 (tagbody
420 (setf ti5
421 (-
422 (f2cl-lib:fref cc-%data%
423 (2 k i 2)
424 ((1 in1) (1 l1) (1 ido) (1 5))
425 cc-%offset%)
426 (f2cl-lib:fref cc-%data%
427 (2 k i 5)
428 ((1 in1) (1 l1) (1 ido) (1 5))
429 cc-%offset%)))
430 (setf ti2
431 (+
432 (f2cl-lib:fref cc-%data%
433 (2 k i 2)
434 ((1 in1) (1 l1) (1 ido) (1 5))
435 cc-%offset%)
436 (f2cl-lib:fref cc-%data%
437 (2 k i 5)
438 ((1 in1) (1 l1) (1 ido) (1 5))
439 cc-%offset%)))
440 (setf ti4
441 (-
442 (f2cl-lib:fref cc-%data%
443 (2 k i 3)
444 ((1 in1) (1 l1) (1 ido) (1 5))
445 cc-%offset%)
446 (f2cl-lib:fref cc-%data%
447 (2 k i 4)
448 ((1 in1) (1 l1) (1 ido) (1 5))
449 cc-%offset%)))
450 (setf ti3
451 (+
452 (f2cl-lib:fref cc-%data%
453 (2 k i 3)
454 ((1 in1) (1 l1) (1 ido) (1 5))
455 cc-%offset%)
456 (f2cl-lib:fref cc-%data%
457 (2 k i 4)
458 ((1 in1) (1 l1) (1 ido) (1 5))
459 cc-%offset%)))
460 (setf tr5
461 (-
462 (f2cl-lib:fref cc-%data%
463 (1 k i 2)
464 ((1 in1) (1 l1) (1 ido) (1 5))
465 cc-%offset%)
466 (f2cl-lib:fref cc-%data%
467 (1 k i 5)
468 ((1 in1) (1 l1) (1 ido) (1 5))
469 cc-%offset%)))
470 (setf tr2
471 (+
472 (f2cl-lib:fref cc-%data%
473 (1 k i 2)
474 ((1 in1) (1 l1) (1 ido) (1 5))
475 cc-%offset%)
476 (f2cl-lib:fref cc-%data%
477 (1 k i 5)
478 ((1 in1) (1 l1) (1 ido) (1 5))
479 cc-%offset%)))
480 (setf tr4
481 (-
482 (f2cl-lib:fref cc-%data%
483 (1 k i 3)
484 ((1 in1) (1 l1) (1 ido) (1 5))
485 cc-%offset%)
486 (f2cl-lib:fref cc-%data%
487 (1 k i 4)
488 ((1 in1) (1 l1) (1 ido) (1 5))
489 cc-%offset%)))
490 (setf tr3
491 (+
492 (f2cl-lib:fref cc-%data%
493 (1 k i 3)
494 ((1 in1) (1 l1) (1 ido) (1 5))
495 cc-%offset%)
496 (f2cl-lib:fref cc-%data%
497 (1 k i 4)
498 ((1 in1) (1 l1) (1 ido) (1 5))
499 cc-%offset%)))
500 (setf (f2cl-lib:fref ch-%data%
501 (1 k 1 i)
502 ((1 in2) (1 l1) (1 5) (1 ido))
503 ch-%offset%)
504 (+
505 (f2cl-lib:fref cc-%data%
506 (1 k i 1)
507 ((1 in1) (1 l1) (1 ido) (1 5))
508 cc-%offset%)
509 tr2
510 tr3))
511 (setf (f2cl-lib:fref ch-%data%
512 (2 k 1 i)
513 ((1 in2) (1 l1) (1 5) (1 ido))
514 ch-%offset%)
515 (+
516 (f2cl-lib:fref cc-%data%
517 (2 k i 1)
518 ((1 in1) (1 l1) (1 ido) (1 5))
519 cc-%offset%)
520 ti2
521 ti3))
522 (setf cr2
523 (+
524 (f2cl-lib:fref cc-%data%
525 (1 k i 1)
526 ((1 in1) (1 l1) (1 ido) (1 5))
527 cc-%offset%)
528 (* tr11 tr2)
529 (* tr12 tr3)))
530 (setf ci2
531 (+
532 (f2cl-lib:fref cc-%data%
533 (2 k i 1)
534 ((1 in1) (1 l1) (1 ido) (1 5))
535 cc-%offset%)
536 (* tr11 ti2)
537 (* tr12 ti3)))
538 (setf cr3
539 (+
540 (f2cl-lib:fref cc-%data%
541 (1 k i 1)
542 ((1 in1) (1 l1) (1 ido) (1 5))
543 cc-%offset%)
544 (* tr12 tr2)
545 (* tr11 tr3)))
546 (setf ci3
547 (+
548 (f2cl-lib:fref cc-%data%
549 (2 k i 1)
550 ((1 in1) (1 l1) (1 ido) (1 5))
551 cc-%offset%)
552 (* tr12 ti2)
553 (* tr11 ti3)))
554 (setf cr5 (+ (* ti11 tr5) (* ti12 tr4)))
555 (setf ci5 (+ (* ti11 ti5) (* ti12 ti4)))
556 (setf cr4 (- (* ti12 tr5) (* ti11 tr4)))
557 (setf ci4 (- (* ti12 ti5) (* ti11 ti4)))
558 (setf dr3 (- cr3 ci4))
559 (setf dr4 (+ cr3 ci4))
560 (setf di3 (+ ci3 cr4))
561 (setf di4 (- ci3 cr4))
562 (setf dr5 (+ cr2 ci5))
563 (setf dr2 (- cr2 ci5))
564 (setf di5 (- ci2 cr5))
565 (setf di2 (+ ci2 cr5))
566 (setf (f2cl-lib:fref ch-%data%
567 (1 k 2 i)
568 ((1 in2) (1 l1) (1 5) (1 ido))
569 ch-%offset%)
570 (-
571 (*
572 (f2cl-lib:fref wa-%data%
573 (i 1 1)
574 ((1 ido) (1 4) (1 2))
575 wa-%offset%)
576 dr2)
577 (*
578 (f2cl-lib:fref wa-%data%
579 (i 1 2)
580 ((1 ido) (1 4) (1 2))
581 wa-%offset%)
582 di2)))
583 (setf (f2cl-lib:fref ch-%data%
584 (2 k 2 i)
585 ((1 in2) (1 l1) (1 5) (1 ido))
586 ch-%offset%)
587 (+
588 (*
589 (f2cl-lib:fref wa-%data%
590 (i 1 1)
591 ((1 ido) (1 4) (1 2))
592 wa-%offset%)
593 di2)
594 (*
595 (f2cl-lib:fref wa-%data%
596 (i 1 2)
597 ((1 ido) (1 4) (1 2))
598 wa-%offset%)
599 dr2)))
600 (setf (f2cl-lib:fref ch-%data%
601 (1 k 3 i)
602 ((1 in2) (1 l1) (1 5) (1 ido))
603 ch-%offset%)
604 (-
605 (*
606 (f2cl-lib:fref wa-%data%
607 (i 2 1)
608 ((1 ido) (1 4) (1 2))
609 wa-%offset%)
610 dr3)
611 (*
612 (f2cl-lib:fref wa-%data%
613 (i 2 2)
614 ((1 ido) (1 4) (1 2))
615 wa-%offset%)
616 di3)))
617 (setf (f2cl-lib:fref ch-%data%
618 (2 k 3 i)
619 ((1 in2) (1 l1) (1 5) (1 ido))
620 ch-%offset%)
621 (+
622 (*
623 (f2cl-lib:fref wa-%data%
624 (i 2 1)
625 ((1 ido) (1 4) (1 2))
626 wa-%offset%)
627 di3)
628 (*
629 (f2cl-lib:fref wa-%data%
630 (i 2 2)
631 ((1 ido) (1 4) (1 2))
632 wa-%offset%)
633 dr3)))
634 (setf (f2cl-lib:fref ch-%data%
635 (1 k 4 i)
636 ((1 in2) (1 l1) (1 5) (1 ido))
637 ch-%offset%)
638 (-
639 (*
640 (f2cl-lib:fref wa-%data%
641 (i 3 1)
642 ((1 ido) (1 4) (1 2))
643 wa-%offset%)
644 dr4)
645 (*
646 (f2cl-lib:fref wa-%data%
647 (i 3 2)
648 ((1 ido) (1 4) (1 2))
649 wa-%offset%)
650 di4)))
651 (setf (f2cl-lib:fref ch-%data%
652 (2 k 4 i)
653 ((1 in2) (1 l1) (1 5) (1 ido))
654 ch-%offset%)
655 (+
656 (*
657 (f2cl-lib:fref wa-%data%
658 (i 3 1)
659 ((1 ido) (1 4) (1 2))
660 wa-%offset%)
661 di4)
662 (*
663 (f2cl-lib:fref wa-%data%
664 (i 3 2)
665 ((1 ido) (1 4) (1 2))
666 wa-%offset%)
667 dr4)))
668 (setf (f2cl-lib:fref ch-%data%
669 (1 k 5 i)
670 ((1 in2) (1 l1) (1 5) (1 ido))
671 ch-%offset%)
672 (-
673 (*
674 (f2cl-lib:fref wa-%data%
675 (i 4 1)
676 ((1 ido) (1 4) (1 2))
677 wa-%offset%)
678 dr5)
679 (*
680 (f2cl-lib:fref wa-%data%
681 (i 4 2)
682 ((1 ido) (1 4) (1 2))
683 wa-%offset%)
684 di5)))
685 (setf (f2cl-lib:fref ch-%data%
686 (2 k 5 i)
687 ((1 in2) (1 l1) (1 5) (1 ido))
688 ch-%offset%)
689 (+
690 (*
691 (f2cl-lib:fref wa-%data%
692 (i 4 1)
693 ((1 ido) (1 4) (1 2))
694 wa-%offset%)
695 di5)
696 (*
697 (f2cl-lib:fref wa-%data%
698 (i 4 2)
699 ((1 ido) (1 4) (1 2))
700 wa-%offset%)
701 dr5)))
702 label104))
703 label105))
704 (go end_label)
705 end_label
706 (return (values nil nil nil nil nil nil nil nil))))))
707
708 (in-package #:cl-user)
709 #+#.(cl:if (cl:find-package '#:f2cl) '(and) '(or))
710 (eval-when (:load-toplevel :compile-toplevel :execute)
711 (setf (gethash 'fortran-to-lisp::c1f5kb
712 fortran-to-lisp::*f2cl-function-info*)
713 (fortran-to-lisp::make-f2cl-finfo
714 :arg-types '((fortran-to-lisp::integer4) (fortran-to-lisp::integer4)
715 (fortran-to-lisp::integer4) (array double-float (*))
716 (fortran-to-lisp::integer4) (array double-float (*))
717 (fortran-to-lisp::integer4) (array double-float (*)))
718 :return-values '(nil nil nil nil nil nil nil nil)
719 :calls 'nil)))
720
Maxima, a Computer Algebra System