REAL FUNCTION MAG(C)
      COMPLEX C,D
      REAL E(2)
      EQUIVALENCE (D,E)
      D = C
      MAG = ABS(E(1)) + ABS(E(2))
      RETURN
      END