111.100 REM ***********MTXMPY*********** A1=A11.REAL : B1=A11.IMAG : C1=A12.REAL : D1=A12.IMAG E1=A21.REAL : F1=A21.IMAG : G1=A22.REAL : H1=A22.IMAG A2=B11.REAL : B2=B11.IMAG : C2=B12.REAL : D2=B12.IMAG E2=B21.REAL : F2=B21.IMAG : G2=B22.REAL : H2=B22.IMAG C11.REAL=A1*A2-B1*B2+C1*E2-D1*F2 C11.IMAG=B1*A2+A1*B2+C1*F2+D1*E2 C12.REAL=A1*C2-B1*D2+C1*G2-D1*H2 C12.IMAG=B1*C2+A1*D2+D1*G2+C1*H2 C21.REAL=A2*E1-B2*F1+E2*G1-F2*H1 C21.IMAG=A2*F1+B2*E1+E2*H1+F2*G1 C22.REAL=C2*E1-D2*F1+G1*G2-H1*H2 C22.IMAG=C2*F1+D2*E1+H1*G2+G1*H2 RETURN