| blob | 6f71a53bebd586fb6ef082d0eaa1d889d4160de7 |
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))
37 n2 s))
40 xwork facv face coescl ierr)
42 alpha ccoef coef)
81 nnumt-%offset%)
86 nnumt-%offset%)
91 ccoef-%offset%)
95 coef-%offset%))
103 ddeg-%offset%)
109 deg-%offset%))
110 label20))))
111 label40))
112 label60))
122 coescl-%offset%)
128 ccoef-%offset%))))
129 label80))
130 label90))
144 alpha-%offset%)
146 label110))))
147 label110
155 alpha-%offset%)
161 nnumt-%offset%))
163 label200))
176 (+ sum
182 ddeg-%offset%)))
183 label220))
188 alpha-%offset%)
189 sum)
190 label300))))
191 label300
205 nil)
208 (+ sum
217 ddeg-%offset%)
225 ddeg-%offset%))))
226 label310))
227 label320))
233 alpha-%offset%)
234 sum)
235 label330))
236 label400))
249 (+ sum
255 ddeg-%offset%)))
256 label420))
261 alpha-%offset%)
262 sum)
263 label500))))
264 label500
271 (*
278 n)
280 rwork-%offset%)
281 ntur))
287 ((<
295 n)
297 rtol)
304 2
305 n)
307 rwork-%offset%)
308 lmfpn)
311 label510))
313 ((<
322 rtol)
329 n)
331 rwork-%offset%)
332 lmfpn)
342 (+ sum
346 coescl-%offset%)))
347 label550))
351 beta-%offset%)
353 label600))
365 (+ sum
366 (*
370 coescl-%offset%)
376 ddeg-%offset%))))
377 label610))
378 label620))
382 beta-%offset%)
384 label700))
393 beta-%offset%))
398 beta-%offset%))
399 label800))
411 coef-%offset%)))
417 coescl-%offset%)
421 (+
425 face-%offset%)
431 (+ sum
432 (*
436 facv-%offset%)
442 deg-%offset%))))
443 label810))
447 coescl-%offset%)
452 coef-%offset%)))))
453 label820))
454 label900))
456 end_label
459 nil
460 nil
461 nil
462 nil
463 nil
464 nil
465 nil
466 nil
467 nil
468 nil
469 nil
470 nil
471 nil
472 nil
473 nil
474 nil
475 nil
476 ierr))))))