Mercurial > hg > octave-nkf

annotate libcruft/slatec-fn/xdgamit.f @ 3278:9c9f0c035309

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-10-12 06:03:49 by jwe]
author jwe
date Tue, 12 Oct 1999 06:07:01 +0000
parents
children c0532bbaefd7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3278
9c9f0c035309 [project @ 1999-10-12 06:03:49 by jwe]
jwe
parents:
diff changeset
1 subroutine xdgamit (a, x, result)
9c9f0c035309 [project @ 1999-10-12 06:03:49 by jwe]
jwe
parents:
diff changeset
2 double precision a, x, result, dgamit
9c9f0c035309 [project @ 1999-10-12 06:03:49 by jwe]
jwe
parents:
diff changeset
3 result = dgamit (a, x)
9c9f0c035309 [project @ 1999-10-12 06:03:49 by jwe]
jwe
parents:
diff changeset
4 return
9c9f0c035309 [project @ 1999-10-12 06:03:49 by jwe]
jwe
parents:
diff changeset
5 end