This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / r8dp.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:01:57  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10 #if defined(CERNLIB_DOUBLE)
11       FUNCTION C309R8(Z,ACC)
12       COMPLEX*16 C309R8,Z
13       DOUBLE PRECISION ACC
14       DOUBLE PRECISION X,Y,AX,AY,A
15
16 #if defined(CERNLIB_QF2C)
17 #include "defdr.inc"
18 #endif
19       X=DREAL(Z)
20       Y=DIMAG(Z)
21       AX=ABS(X)
22       AY=ABS(Y)
23       A=5*ACC*(AX+AY)
24       IF(AX .LT. A) X=0
25       IF(AY .LT. A) Y=0
26       C309R8=DCMPLX(X,Y)
27       RETURN
28       END
29 #endif