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