Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50144/mtmpyd.f4
There are no other files named mtmpyd.f4 in the archive.
	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