[cl-gsl-cvs] CVS update: cl-gsl/sf.lisp - cl-gsl-cvs@common-lisp.net - mailman3.common-lisp.net

7 Mar 2005

Update of /project/cl-gsl/cvsroot/cl-gsl
In directory common-lisp.net:/tmp/cvs-serv21923
Modified Files:
    sf.lisp 
Log Message:
Fixes for airy functions.
Date: Mon Mar  7 03:05:23 2005
Author: edenny
Index: cl-gsl/sf.lisp
diff -u cl-gsl/sf.lisp:1.1.1.1 cl-gsl/sf.lisp:1.2

--- cl-gsl/sf.lisp:1.1.1.1	Wed Mar  2 02:04:53 2005
+++ cl-gsl/sf.lisp	Mon Mar  7 03:05:21 2005
@@ -123,7 +123,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_Bi"
     ((x :double)
@@ -134,7 +134,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_Ai_scaled"
     ((x :double)
@@ -145,7 +145,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_Bi_scaled"
     ((x :double)
@@ -156,7 +156,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_Ai_deriv"
     ((x :double)
@@ -167,7 +167,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_Bi_deriv"
     ((x :double)
@@ -178,7 +178,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_Ai_deriv_scaled"
     ((x :double)
@@ -189,7 +189,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_Bi_deriv_scaled"
     ((x :double)
@@ -200,51 +200,43 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_zero_Ai"
-    ((x :double)
-     (mode gsl-mode-t))
+    ((x :unsigned-int))
   :double)
(defun-wrapper% "airy_zero_Ai_e"
-    ((x :double)
-     (mode gsl-mode-t)
+    ((x :unsigned-int)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_zero_Bi"
-    ((x :double)
-     (mode gsl-mode-t))
+    ((x :unsigned-int))
   :double)
(defun-wrapper% "airy_zero_Bi_e"
-    ((x :double)
-     (mode gsl-mode-t)
+    ((x :unsigned-int)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_zero_Ai_deriv"
-    ((x :double)
-     (mode gsl-mode-t))
+    ((x :unsigned-int))
   :double)
(defun-wrapper% "airy_zero_Ai_deriv_e"
-    ((x :double)
-     (mode gsl-mode-t)
+    ((x :unsigned-int)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
(defun-wrapper% "airy_zero_Bi_deriv"
-    ((x :double)
-     (mode gsl-mode-t))
+    ((x :unsigned-int))
   :double)
(defun-wrapper% "airy_zero_Bi_deriv_e"
-    ((x :double)
-     (mode gsl-mode-t)
+    ((x :unsigned-int)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
;;; Bessel Functions

    