FUNCTION    CARG (Z)

C     [COMPLEX ARGUMENT]
C     [05-MAR-74]

      COMPLEX     Z

      CARG=ATAN2(AIMAG(Z),REAL(Z))
      RETURN

      END