MINICERN/mathlib/gen/c/clogam.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:01:55  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10 #if defined(CERNLIB_DOUBLE)
  11       FUNCTION CLGAMA(Z)
  12       COMPLEX CLGAMA,Z
  13       COMPLEX CLOGAM
  14 #include "gen/defc64.inc"
  15      +     WLGAMA,W
  16 #include "gen/def64.inc"
  17      +     D
  18 #if defined(CERNLIB_QF2C)
  19 #include "defdr.inc"
  20 #endif
  21
  22       SROUND(D)=D+(D-SNGL(D))
  23
  24       ENTRY CLOGAM(Z)
  25
  26       W=Z
  27       W=WLGAMA(W)
  28       CLGAMA=CMPLX(SROUND(DREAL(W)),SROUND(DIMAG(W)))
  29       RETURN
  30       END
  31 #endif