code 34416;
   procedure LNGSEQVEC(L, U, IL, SHIFT, A, B, C, CC, D, DD);
   value L, U, IL, SHIFT, C, CC; integer L, U, IL, SHIFT;
   real C, CC, D, DD; array A, B;
   begin real E, EE;
      for L:= L step 1 until U do 
      begin DPMUL(A[IL], B[L + SHIFT], E, EE); IL:= IL + L;
         LNGADD(C, CC, E, EE, C, CC)
      end;
      D:= C; DD:= CC
   end LNGSEQVEC

        eop