2
COMPLEX FUNCTION CCBRT (Z)
3
C***BEGIN PROLOGUE CCBRT
4
C***PURPOSE Compute the cube root.
5
C***LIBRARY SLATEC (FNLIB)
7
C***TYPE COMPLEX (CBRT-S, DCBRT-D, CCBRT-C)
8
C***KEYWORDS CUBE ROOT, ELEMENTARY FUNCTIONS, FNLIB, ROOTS
9
C***AUTHOR Fullerton, W., (LANL)
12
C CCBRT(Z) calculates the complex cube root of Z. The principal root
13
C for which -PI .LT. arg(Z) .LE. +PI is returned.
16
C***ROUTINES CALLED CARG, CBRT
17
C***REVISION HISTORY (YYMMDD)
19
C 890531 Changed all specific intrinsics to generic. (WRB)
20
C 890531 REVISION DATE from Version 3.2
21
C 891214 Prologue converted to Version 4.0 format. (BAB)
22
C***END PROLOGUE CCBRT
24
C***FIRST EXECUTABLE STATEMENT CCBRT
28
CCBRT = CMPLX (R*COS(THETA), R*SIN(THETA))