← Back to branch summary

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

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-11-13 18:39:14 UTC
  • mto: (2.1.2 hoary) (3.2.1 sid) (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 3.
  • Revision ID: james.westby@ubuntu.com-20041113183914-ttig0evwuatnqosl
Tags: upstream-5.9.1
Import upstream version 5.9.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/numerical/slatec/zbesh.lisp
55
55
      (setf aa (/ 0.5 tol))
56
56
      (setf bb (* (f2cl-lib:i1mach 9) 0.5))
57
57
      (setf aa (min aa bb))
58
 
      (f2cl-lib:fformat t (("~A~%")) "az, aa = " az aa)
59
 
      (f2cl-lib:fformat t (("~A~%")) "fn     = " fn)
60
58
      (if (> az aa) (go label260))
61
59
      (if (> fn aa) (go label260))
62
60
      (setf aa (f2cl-lib:fsqrt aa))