Mercurial > hg > octave-nkf

diff liboctave/lo-specfun.cc @ 7176:6525eb2fba0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-14 20:42:06 by jwe]
author jwe
date Wed, 14 Nov 2007 20:42:07 +0000
parents a1dbe9d80eee
children 8a939b217863 059fadc0cbc3
line wrap: on
line diff
--- a/liboctave/lo-specfun.cc
+++ b/liboctave/lo-specfun.cc
@@ -411,9 +411,8 @@
 
       if (ierr == 0 || ierr == 3)
 	{
-	  if (! is_integer_value (alpha - 0.5))
-	    tmp += (2.0 / M_PI) * sin (M_PI * alpha)
-	      * zbesk (z, alpha, kode, ierr);
+	  tmp += (2.0 / M_PI) * sin (M_PI * alpha)
+	    * zbesk (z, alpha, kode, ierr);
 
 	  retval = bessel_return_value (tmp, ierr);
 	}