      FUNCTION SQR(C,T)
      COMPLEX C,D
      REAL E(2),T
      EQUIVALENCE (D,E)
      D = C
      SQR = (E(1)*T)**2 + (E(2)*T)**2
      RETURN
      END
