TYPE 1
1;FORMAT(/,"MATRIX MULTIPLY, AXB=C; WILL HANDLE UP TO TWO 7X7
WILL MULTIPLY RECTANGULAR CONFORMING MATRICES")
TYPE 2
2;FORMAT(/,"LOAD DATA TAPE --- HIT CONTINUE")
PAUSE
TYPE 101
101;FORMAT(/,"NO. ROWS IN A  ")
ACCEPT 3,I
TYPE 102
102;FORMAT(/,"NO COLS. IN A = NO. ROWS IN B  ")
ACCEPT 3,J
TYPE 103
103;FORMAT(/,"NO. COLS. IN B  ")
ACCEPT 3,K
3;FORMAT(I)
DIMENSION A(49),B(49),C(7),AO(49)
TYPE 4
4;FORMAT(/,"A MATRIX VALUES BY ROWS:",/)
DO 5 IN=1,I
DO 5 JN=1,J
INDX=(J*IN+JN-J)
ACCEPT 6, A(INDX)
6;FORMAT(E)
5;CONTINUE
TYPE 7
7;FORMAT(/,"B MATRIX VALUES BY ROWS:",/)
DO 8 JN=1,J
DO 8 KN=1,K
INDX=(K*JN+KN-K)
ACCEPT 6, B(INDX)
8;CONTINUE
LEAP = 1
GO TO 11
28;LEAP = 2
GO TO 11
C;BEGIN MATRIX MULTIPLY
29;DO 10 IN=1,I
DO 30 KN=1,K
DUM=0
DO 31 JN=1,J
DUM=DUM+A(J*IN+JN-J)*B(K*JN+KN-K)
31;CONTINUE
C(KN)=DUM
30;CONTINUE
EN 10 M=1,K
AO(K*(IN-1)+M)=C(M)
10;CONTINUE
LEAP=3
C;OUTPUT ROUTINE
11;GO TO (12,14,16),LEAP
12;TYPE 13,I,J
13;FORMAT (/,/,"MATRIX A    ",I,"X   ",I,/)
IA=I
IB=J
GO TO 18
14;TYPE 15,J,K
15;FORMAT (/,/,"MATRIX B    ",I,"X   ",I,/)
IA=J
IB=K
GO TO 18
16;TYPE 17,I,K
17;FORMAT (/,/,"MATRIX C    ",I,"X   ",I,/)
IA=I
IB=K
18;DO 27 JA=1,IA
N=1
DO 25 JB=1,IB
INDX=(IB*JA+JB-IB)
GO TO (19,20,190),LEAP
19;TYPE 6,A(INDX)
GO TO 22
190;TYPE 6,AO(INDX)
GO TO 22
20;TYPE 6,B(INDX)
22;IF(JB-4*N)25,23,25
23;TYPE 24
24;FORMAT (/)
N=N+1
25;CONTINUE
TYPE 26
26;FORMAT (/,/)
27;CONTINUE
GO TO (28,29,1),LEAP
STOP
END