MINICERN/mathlib/gen/c/cwhitm.F

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