Mercurial > hg > octave-lojdl
changeset 3120:a2371c4a1d50
[project @ 1997-11-30 23:56:25 by jwe]
author | jwe |
---|---|
date | Sun, 30 Nov 1997 23:56:37 +0000 |
parents | f3e1da120048 |
children | 923049908004 |
files | libcruft/ChangeLog libcruft/slatec-fn/xdacosh.f libcruft/slatec-fn/xdasinh.f libcruft/slatec-fn/xdatanh.f libcruft/slatec-fn/xdbetai.f libcruft/slatec-fn/xderf.f libcruft/slatec-fn/xderfc.f libcruft/slatec-fn/xdgami.f |
diffstat | 8 files changed, 41 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/libcruft/ChangeLog +++ b/libcruft/ChangeLog @@ -1,3 +1,9 @@ +Sun Nov 30 17:55:20 1997 John W. Eaton <jwe@bevo.che.wisc.edu> + + * slatec-fn/xdgami.f, slatec-fn/xdbetai.f, slatec-fn/xderfc.f, + slatec-fn/xderf.f, slatec-fn/xdatanh.f, slatec-fn/xdasinh.f, + slatec-fn/xdacosh.f: New files. + Sat Nov 29 13:02:14 1997 John W. Eaton <jwe@bevo.che.wisc.edu> * specfun/ribesl.f (ribesl): Use d1mach to get machine parameters.
new file mode 100644 --- /dev/null +++ b/libcruft/slatec-fn/xdacosh.f @@ -0,0 +1,5 @@ + subroutine xdacosh (x, result) + double precision x, result, dacosh + result = dacosh (x) + return + end
new file mode 100644 --- /dev/null +++ b/libcruft/slatec-fn/xdasinh.f @@ -0,0 +1,5 @@ + subroutine xdasinh (x, result) + double precision x, result, dasinh + result = dasinh (x) + return + end
new file mode 100644 --- /dev/null +++ b/libcruft/slatec-fn/xdatanh.f @@ -0,0 +1,5 @@ + subroutine xdatanh (x, result) + double precision x, result, datanh + result = datanh (x) + return + end
new file mode 100644 --- /dev/null +++ b/libcruft/slatec-fn/xdbetai.f @@ -0,0 +1,5 @@ + subroutine xdbetai (x, a, b, result) + double precision x, a, b, result, dbetai + result = dbetai (x, a, b) + return + end
new file mode 100644 --- /dev/null +++ b/libcruft/slatec-fn/xderf.f @@ -0,0 +1,5 @@ + subroutine xderf (x, result) + double precision x, result, derf + result = derf (x) + return + end