code 34414;
   procedure LNGTAMMAT(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[L,I], B[L,J], E, EE); LNGADD(C, CC, E, EE, C, CC)
      end;
      D:= C; DD:= CC
   end LNGTAMMAT;
        eop