Mercurial > hg > octave-max

comparison libcruft/slatec-fn/xdbetai.f @ 4079:c0532bbaefd7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-09-30 19:08:09 by jwe]
author jwe
date Mon, 30 Sep 2002 19:08:09 +0000
parents a2371c4a1d50
children
comparison
equal deleted inserted replaced
4078:bd51df637cb3 4079:c0532bbaefd7
1 subroutine xdbetai (x, a, b, result) 1 subroutine xdbetai (x, a, b, result)
2 external dbetai
2 double precision x, a, b, result, dbetai 3 double precision x, a, b, result, dbetai
3 result = dbetai (x, a, b) 4 result = dbetai (x, a, b)
4 return 5 return
5 end 6 end