[lisplab-cvs] r145 - trunk/shared/slatec/src

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Sun Mar 21 07:05:08 2010
New Revision: 145

Log:
fix sign to dsign

Modified:
   trunk/shared/slatec/src/derf.lisp

Modified: trunk/shared/slatec/src/derf.lisp
==============================================================================
--- trunk/shared/slatec/src/derf.lisp	(original)
+++ trunk/shared/slatec/src/derf.lisp	Sun Mar 21 07:05:08 2010
@@ -64,8 +64,8 @@
           (setf derf (* x (+ 1.0 (dcsevl (- (* 2.0 x x) 1.0) erfcs nterf)))))
       (go end_label)
      label20
-      (if (<= y xbig) (setf derf (f2cl-lib:sign (- 1.0 (derfc y)) x)))
-      (if (> y xbig) (setf derf (f2cl-lib:sign 1.0 x)))
+      (if (<= y xbig) (setf derf (f2cl-lib:dsign (- 1.0 (derfc y)) x)))
+      (if (> y xbig) (setf derf (f2cl-lib:dsign 1.0 x)))
       (go end_label)
      end_label
       (return (values derf nil)))))