This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / csqrtk.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:01:58  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10       COMPLEX FUNCTION CSQRTK(Z,N,M)
11       COMPLEX Z,SZ
12       NF=N+5
13       SZ=SQRT(Z)
14       S=ABS(AIMAG(SZ))
15       GOTO (21,22),M
16    21 GOTO (9,2,2,9,11,11,2,2,11),NF
17    22 GOTO (2,11,2,2,2,2,2,9,2),NF
18     9 SZ=CMPLX(0.0,-S)
19       GOTO 2
20    11 SZ=CMPLX(0.0,S)
21     2 CSQRTK=SZ
22       RETURN
23       END