C MATRIX MULTIPLIER DIMENSION A(36), B(36), C(36) TYPE 200 TYPE 201 READ 1,1,I 1 FORMAT (I) TYPE 202 DO 10 M=1,I DO 10 N=1,I INDX=M+I*(N-1) ACCEPT 2,A(INDX) 2 FORMAT (E) 10 CONTINUE TYPE 15 15 FORMAT (/) TYPE 202 DO 20 M=1,I DO 20 N=1,I INDX=M+I*(N-1) ACCEPT 2,B(INDX) C(INDX)=0 20 CONTINUE DO 30 M=1,I DO 30 N=1,I DO 30 K=1,I IC=N+I*(M-1) IA=M+I*(K-1) IB=K+I*(N-1) C(IC)=C(IC)+A(IA)*B(IB) 30 CONTINUE TYPE 15 DO 40 M=1,I TYPE 21 DO 40 N=1,I INDX=N+I*(M-1) TYPE 2, C(INDX) 40 CONTINUE 21 FORMAT (/) TYPE 15 200 FORMAT (/,"MATRIX MULTIPLIER",/) 201 FORMAT ("DIMENSION IS:") 202 FORMAT (/,"ENTER MATRIX. SEPARATE ROW ELEMENTS WITH SPACES",/) END