Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0025/mtmpyd.for
There is 1 other file named mtmpyd.for in the archive. Click here to see a list.
DIMENSION A(25,3),B(25,3),C(25,2)
DATA A(1,1),B(1,2)/3.,3./,A(2,1),A(3,2)/1.,1./
DATA A(2,3),B(1,1),B(2,2),B(1,3)/1.,1.,1.,1./
DATA A(3,1),B(2,3)/4.,4./,A(1,2),A(2,2)/2.,2./
DATA B(2,1)/2./,A(3,3)/0./,A(1,3)/1./
CALL MTMPY(0,A,B,C,3,-3,2)
TYPE 10
10 FORMAT (/' MATRIX * TRANSPOSE MATRIX')
DO 20 I=1,3
20 TYPE 30, (C(I,J),J=1,2)
30 FORMAT( 1P2E20.7)
END