Mercurial > octave-nkf
changeset 4497:2a02f3a16fe0
[project @ 2003-09-04 18:48:13 by jwe]
author | jwe |
---|---|
date | Thu, 04 Sep 2003 18:48:13 +0000 |
parents | 124c137af3db |
children | 093e39f03506 |
files | liboctave/ChangeLog liboctave/lo-specfun.cc |
diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/ChangeLog Thu Sep 04 18:04:47 2003 +0000 +++ b/liboctave/ChangeLog Thu Sep 04 18:48:13 2003 +0000 @@ -1,3 +1,7 @@ +2003-09-04 John W. Eaton <jwe@bevo.che.wisc.edu> + + * lo-specfun.cc (xlgamma): Require nonnegative argument. + 2003-09-04 Petter Risholm <risholm@stud.ntnu.no> * ArrayN-idx.h (maybe_delete_elements): Implement function.
--- a/liboctave/lo-specfun.cc Thu Sep 04 18:04:47 2003 +0000 +++ b/liboctave/lo-specfun.cc Thu Sep 04 18:48:13 2003 +0000 @@ -153,7 +153,13 @@ { double result; double sgngam; + + if (x < 0) + (*current_liboctave_error_handler) + ("xlgamma: argument must be nonnegative"); + F77_FUNC (dlgams, DLGAMS) (x, result, sgngam); + return result; }