Mercurial > octave

annotate liboctave/external/slatec-fn/xdbetai.f @ 23434:f4d4d83f15c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: rename cruft/ directory to external/ * liboctave/external: Renamed from liboctave/cruft. * * configure.ac: Rename XTRA_CRUFT_SH_LDFLAGS to XTRA_EXTERNAL_SH_LDFLAGS. Rename CRUFT_DLL_DEFS to EXTERNAL_DLL_DEFS. * install.txi: Update documentation to refer to liboctave/external. * HACKING: Update explanation of directory tree. * liboctave/module.mk: Update build system to include liboctave/external * liboctave/numeric/module.mk: Update CPPFLAGS to find Faddeeva in external/ directory. * lo-blas-proto.h, lo-lapack-proto.h: Update comments which referred to cruft directory.
author Rik <rik@octave.org>
date Mon, 24 Apr 2017 21:03:38 -0700
parents liboctave/cruft/slatec-fn/xdbetai.f@648dabbb4c6b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3120
a2371c4a1d50 [project @ 1997-11-30 23:56:25 by jwe]
jwe
parents:
diff changeset
1 subroutine xdbetai (x, a, b, result)
4079
c0532bbaefd7 [project @ 2002-09-30 19:08:09 by jwe]
jwe
parents: 3120
diff changeset
2 external dbetai
3120
a2371c4a1d50 [project @ 1997-11-30 23:56:25 by jwe]
jwe
parents:
diff changeset
3 double precision x, a, b, result, dbetai
a2371c4a1d50 [project @ 1997-11-30 23:56:25 by jwe]
jwe
parents:
diff changeset
4 result = dbetai (x, a, b)
a2371c4a1d50 [project @ 1997-11-30 23:56:25 by jwe]
jwe
parents:
diff changeset
5 return
a2371c4a1d50 [project @ 1997-11-30 23:56:25 by jwe]
jwe
parents:
diff changeset
6 end