code 34412;
   procedure LNGTAMVEC(L, U, I, A, B, C, CC, D, DD);
   value L, U, I, C, CC; integer L, U, I;
   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], E, EE); LNGADD(C, CC, E, EE, C, CC)
      end;
      D:= C; DD:= CC
   end LNGTAMVEC;
        eop