Mercurial > hg > octave-nkf

view libcruft/slatec-fn/xdgamma.f @ 12408:187d48827b47 release-3-4-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
don't warn about coercing nested functions to subfunctions if yyparse failed
author John W. Eaton <jwe@octave.org>
date Tue, 08 Feb 2011 03:22:12 -0500
parents c0532bbaefd7
children
line wrap: on
line source

      subroutine xdgamma (x, result)
      external dgamma
      double precision x, result, dgamma
      result = dgamma (x)
      return
      end