MINICERN/mathlib/gen/c/celfun.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:01  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10 #if defined(CERNLIB_DOUBLE)
  11       SUBROUTINE CELFUN(Z,AK2,SN,CN,DN)
  12       COMPLEX Z,SN,CN,DN
  13 #include "gen/defc64.inc"
  14      +    WSN,WCN,WDN
  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       CALL WELFUN
  23      1     (DCMPLX(DBLE(REAL(Z)),DBLE(AIMAG(Z))),DBLE(AK2),WSN,WCN,WDN)
  24       SN=CMPLX(SROUND(DREAL(WSN)),SROUND(DIMAG(WSN)))
  25       CN=CMPLX(SROUND(DREAL(WCN)),SROUND(DIMAG(WCN)))
  26       DN=CMPLX(SROUND(DREAL(WDN)),SROUND(DIMAG(WDN)))
  27       RETURN
  28       END
  29 #endif