Mercurial > octave
diff liboctave/lo-specfun.cc @ 4490:1aed172ab84a
[project @ 2003-08-28 19:03:06 by jwe]
| author | jwe |
|---|---|
| date | Thu, 28 Aug 2003 19:03:13 +0000 |
| parents | 84fe3ca3a246 |
| children | 2a02f3a16fe0 |
line wrap: on
line diff
--- a/liboctave/lo-specfun.cc Thu Aug 28 16:08:26 2003 +0000 +++ b/liboctave/lo-specfun.cc Thu Aug 28 19:03:13 2003 +0000 @@ -219,7 +219,7 @@ F77_FUNC (zbesj, ZBESJ) (zr, zi, alpha, kode, 1, &yr, &yi, nz, ierr); - if (zi == 0.0 && zr > 0.0) + if (zi == 0.0 && zr >= 0.0) yi = 0.0; retval = bessel_return_value (Complex (yr, yi), ierr); @@ -272,7 +272,7 @@ F77_FUNC (zbesy, ZBESY) (zr, zi, alpha, kode, 1, &yr, &yi, nz, &wr, &wi, ierr); - if (zi == 0.0 && zr > 0.0) + if (zi == 0.0 && zr >= 0.0) yi = 0.0; } @@ -314,7 +314,7 @@ F77_FUNC (zbesi, ZBESI) (zr, zi, alpha, kode, 1, &yr, &yi, nz, ierr); - if (zi == 0.0 && zr > 0.0) + if (zi == 0.0 && zr >= 0.0) yi = 0.0; retval = bessel_return_value (Complex (yr, yi), ierr); @@ -365,7 +365,7 @@ { F77_FUNC (zbesk, ZBESK) (zr, zi, alpha, kode, 1, &yr, &yi, nz, ierr); - if (zi == 0.0 && zr > 0.0) + if (zi == 0.0 && zr >= 0.0) yi = 0.0; } @@ -616,7 +616,7 @@ F77_FUNC (zairy, ZAIRY) (zr, zi, id, kode, ar, ai, nz, ierr); - if (zi == 0.0 && (! scaled || zr > 0.0)) + if (zi == 0.0 && (! scaled || zr >= 0.0)) ai = 0.0; return bessel_return_value (Complex (ar, ai), ierr); @@ -637,7 +637,7 @@ F77_FUNC (zbiry, ZBIRY) (zr, zi, id, kode, ar, ai, ierr); - if (zi == 0.0 && (! scaled || zr > 0.0)) + if (zi == 0.0 && (! scaled || zr >= 0.0)) ai = 0.0; return bessel_return_value (Complex (ar, ai), ierr);