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)
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))
17 (in-package "FFTPACK5")
20 (defun cost1b (n inc x lenx wsave lensav work lenwrk ier
)
21 (declare (type (array double-float
(*)) work wsave x
)
22 (type (f2cl-lib:integer4
) ier lenwrk lensav lenx inc n
))
23 (f2cl-lib:with-multi-array-data
24 ((x double-float x-%data% x-%offset%
)
25 (wsave double-float wsave-%data% wsave-%offset%
)
26 (work double-float work-%data% work-%offset%
))
28 (declare (type (f2cl-lib:integer4
) ier1
))
33 (f2cl-lib:int-mul inc
(f2cl-lib:int-add n
(f2cl-lib:int-sub
1)))
39 (f2cl-lib:int-add
(f2cl-lib:int-mul
2 n
)
42 (f2cl-lib:flog
(f2cl-lib:freal n
))
43 (f2cl-lib:flog
2.0d0
)))
48 ((< lenwrk
(f2cl-lib:int-add n
(f2cl-lib:int-sub
1)))
52 (if (= n
1) (go end_label
))
53 (multiple-value-bind (var-0 var-1 var-2 var-3 var-4 var-5
)
54 (costb1 n inc x wsave
(aref work
0) ier1
)
55 (declare (ignore var-0 var-1 var-2 var-3 var-4
))
60 (xerfft "COST1B" -
5)))
64 (return (values nil nil nil nil nil nil nil nil ier
)))))
66 (in-package #:cl-user
)
67 #+#.
(cl:if
(cl:find-package
'#:f2cl
) '(and) '(or))
68 (eval-when (:load-toplevel
:compile-toplevel
:execute
)
69 (setf (gethash 'fortran-to-lisp
::cost1b
70 fortran-to-lisp
::*f2cl-function-info
*)
71 (fortran-to-lisp::make-f2cl-finfo
72 :arg-types
'((fortran-to-lisp::integer4
) (fortran-to-lisp::integer4
)
73 (array double-float
(*)) (fortran-to-lisp::integer4
)
74 (array double-float
(*)) (fortran-to-lisp::integer4
)
75 (array double-float
(*)) (fortran-to-lisp::integer4
)
76 (fortran-to-lisp::integer4
))
77 :return-values
'(nil nil nil nil nil nil nil nil
79 :calls
'(fortran-to-lisp::costb1 fortran-to-lisp
::xerfft
))))