Mercurial > octave-nkf

view libcruft/slatec-fn/xdgami.f @ 5210:996a08a3eb06 ss-2-9-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-03-15 20:46:03 by jwe]
author jwe
date Tue, 15 Mar 2005 20:46:03 +0000
parents c0532bbaefd7
children
line wrap: on
line source

      subroutine xdgami (a, x, result)
      external dgami
      double precision a, x, result, dgami
      result = dgami (a, x)
      return
      end