Mercurial > octave-nkf

view libcruft/slatec-fn/xdgami.f @ 12121:87237a866c71 release-3-2-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
this branch is no longer maintained and is closed for further development
author John W. Eaton <jwe@octave.org>
date Sat, 22 Jan 2011 01:00:54 -0500
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