← Back to branch summary

~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to src/numerical/slatec/dqagie.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Barry deFreese
  • Date: 2006-07-06 17:04:52 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20060706170452-j9ypoqc1kjfnz221
Tags: 5.9.3-1ubuntu1
* Re-sync with Debian
* Comment out backward-delete-char-untabify in maxima.el (Closes Malone #5273)
* debian/control: build-dep automake -> automake1.9 (Closes BTS: #374663)

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/numerical/slatec/dqagie.lisp
1
 
;;; Compiled by f2cl version 2.0 beta Date: 2005/06/20 01:53:39 
2
 
;;; Using Lisp CMU Common Lisp Snapshot 2005-06 (19B)
 
1
;;; Compiled by f2cl version 2.0 beta Date: 2006/01/31 15:11:05 
 
2
;;; Using Lisp CMU Common Lisp Snapshot 2006-01 (19C)
3
3
;;; 
4
4
;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
5
5
;;;           (:coerce-assigns :as-needed) (:array-type ':array)
6
6
;;;           (:array-slicing t) (:declare-common nil)
7
7
;;;           (:float-format double-float))
8
8
 
9
 
(in-package "SLATEC")
 
9
(in-package :slatec)
10
10
 
11
11
 
12
12
(defun dqagie
59
59
      (f2cl-lib:fset (f2cl-lib:fref elist-%data% (1) ((1 *)) elist-%offset%)
60
60
                     0.0)
61
61
      (f2cl-lib:fset (f2cl-lib:fref iord-%data% (1) ((1 *)) iord-%offset%) 0)
62
 
      (if (and (<= epsabs 0.0) (< epsrel (max (* 50.0 epmach) 5.0e-29)))
 
62
      (if (and (<= epsabs 0.0) (< epsrel (max (* 50.0 epmach) 5.e-29)))
63
63
          (setf ier 6))
64
64
      (if (= ier 6) (go label999))
65
65
      (setf boun bound)
160
160
             (abs
161
161
              (- (f2cl-lib:fref rlist-%data% (maxerr) ((1 *)) rlist-%offset%)
162
162
                 area12))
163
 
             (* 1.0e-5 (abs area12)))
 
163
             (* 1.e-5 (abs area12)))
164
164
            (< erro12 (* 0.99 errmax)))
165
165
           (go label10))
166
166
          (if extrap (setf iroff2 (f2cl-lib:int-add iroff2 1)))