function complexphase, c

;+
; NAME:
;  complexphase
; PURPOSE: (one line)
;  Return the phase of a complex number
; DESCRIPTION:
;  Return the phase of a complex number
; CATEGORY:
;  Math
; CALLING SEQUENCE:
;  p = complexphase(c)
; INPUTS:
;  c - scalar or array; int, real, double or complex
; OPTIONAL INPUT PARAMETERS:
;  none
; KEYWORD INPUT PARAMETERS:
;  none
; KEYWORD OUTPUT PARAMETERS:
;  none
; OUTPUTS:
;  atan(im/real)
; COMMON BLOCKS:
;  None
; SIDE EFFECTS:
; RESTRICTIONS:
;  None
; PROCEDURE:
; MODIFICATION HISTORY:
;  Written 2000, by Leslie Young, SwRI
;-

    im = imaginary(c)
    re = real_part(c)

    return, atan(im,re)
;   
end