GAMMA (3sciport)

Computes log gamma

SYNOPSIS

  Call GAMMA( real1, signgam, real2 )
  TRUE_GAMMA = SIGN( EXP( real2 ), signgam )

ARGUMENTS

  real1           Real.
                  The input argument.

  signgam         Real.
                  The sign of the true result.

  real2           Real.
                  The log gamma of the true result.

DESCRIPTION

  The subroutine GAMMA returns two values: the sign of the true result and
  the log of the true result.

  In order to get the true gamma result, you must evaluate
  SIGN( EXP( result2 ),signgam ).

  For equations and other information, see Volume 3: UNICOS Math and
  Scientific Library Reference Manual SR-2081 7.0, Cray Research, Inc.