DIMENSION A(1500,ADIM),B((1500,BDIM).C(1500,CDIM)
            EQUIVALENCE(N,ADIM(2)),(P,BDIM(2))
            INTEGER I,J,K,L,M,N,P
            VECTOR VALUES ADIM = 2,0,0
            VECTOR VALUES BDIM = 2,0,0
            VECTOR VALUES CDIM = 2,0,0
READ        READ FORMAT INPUT,M,N,P,A(1,1)...A(M,N),B(1,1)..B(N,P)
            PRINT FORMAT INVAL,M,N,P,A(1,1)...A(M,N),B(1,1)..B(N,P)
            CDIM(2) = P
            THROUGH Q, FOR I = 1,1, I .G. M
            THROUGH Q, FOR J = 1,1, J .G. P
            C(I,J) = 0
            THROUGH Q, FOR K = 1,1, K .G. N
Q            C(I,J) = C(I,J) + A(I,K)*B(K,J)
            PRINT FORMAT RESULT,C(1,1)...C(M,P)
            TRANSFER TO READ
          R
          R FORMAT SPECIFICATIONS
          R
            VECTOR VALUES INPUT = $3I4/(6F122.4)*$
            VECTOR VALUES INVAL = $13H0INPUT*VALUES/4H0M = I6,56,3HN = I6
          1 ,S6,3HP = I6//(1H0,8F13.4)*$
            VECTOR VALUES RESULT = $9H1C MATRIXC//(1H0,8F13.4)*$
            END OF PROGRAM