MINICERN/mathlib/gen/c/cgplg.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:00  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10 #if defined(CERNLIB_DOUBLE)
  11       FUNCTION CGPLG(N,M,X)
  12 C
  13       COMPLEX    CGPLG
  14 #include "gen/defc64.inc"
  15      +   WGPLG,W
  16 #include "gen/def64.inc"
  17      +   D
  18 #if defined(CERNLIB_QF2C)
  19 #include "defdr.inc"
  20 #endif
  21 #include "gen/gcmpfun.inc"
  22       SROUND(D)=D+(D-SNGL(D))
  23       W=WGPLG(N,M,DBLE(X))
  24       CGPLG =CMPLX(SROUND(DREAL(W)),SROUND(DIMAG(W)))
  25       RETURN
  26       END
  27 #endif