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

        eop