      Function GCExp(Arg)
C
C     Working-precision complex exponentiation.
C
      Complex*16 GCExp, Arg
C
      GCExp = Exp(Arg)
      Return
      End
