carg.f
FUNCTION CARG (Z)
C***BEGIN PROLOGUE CARG
C***PURPOSE Compute the argument of a complex number.
C***LIBRARY SLATEC (FNLIB)
C***CATEGORY A4A
C***TYPE COMPLEX (CARG-C)
C***KEYWORDS ARGUMENT OF A COMPLEX NUMBER, ELEMENTARY FUNCTIONS, FNLIB
C***AUTHOR Fullerton, W., (LANL)
C***DESCRIPTION
C
C CARG(Z) calculates the argument of the complex number Z. Note
C that CARG returns a real result. If Z = X+iY, then CARG is ATAN(Y/X),
C except when both X and Y are zero, in which case the result
C will be zero.
C
C***REFERENCES (NONE)
C***ROUTINES CALLED (NONE)
C***REVISION HISTORY (YYMMDD)
C 770401 DATE WRITTEN
C 861211 REVISION DATE from Version 3.2
C 891214 Prologue converted to Version 4.0 format. (BAB)
C***END PROLOGUE CARG