code 34413;
   procedure LNGMATMAT(L, U, I, J, A, B, C, CC, D, DD);
   value L, U, I, J, C, CC; integer L, U, I, J;
   real C, CC, D, DD; array A, B;
   begin real E, EE;
      for L:= L step 1 until U do 
      begin DPMUL(A[I,L], B[L,J], E, EE); LNGADD(C, CC, E, EE, C, CC)
      end;
      D:= C; DD:= CC
   end LNGMATMAT

        eop