[Scipy-svn] r5317 - trunk/scipy/special/specfun

[scipy-svn at scipy.org]

Author: cdavid
Date: 2009-01-02 01:53:00 -0600 (Fri, 02 Jan 2009)
New Revision: 5317

Modified:
   trunk/scipy/special/specfun/specfun.f
Log:
BUG: fix #834 (by R. Kern).

Modified: trunk/scipy/special/specfun/specfun.f
===================================================================
--- trunk/scipy/special/specfun/specfun.f	2009-01-02 07:52:43 UTC (rev 5316)
+++ trunk/scipy/special/specfun/specfun.f	2009-01-02 07:53:00 UTC (rev 5317)
@@ -9016,7 +9016,7 @@
 C       ====================================================
 C
         IMPLICIT COMPLEX*16 (C,Z)
-        IMPLICIT DOUBLE PRECISION (D-H,O-Y)
+        IMPLICIT DOUBLE PRECISION (A,D-H,O-Y)
         PI=3.141592653589793D0
         EL=0.5772156649015328D0
         X=DBLE(Z)