code 34417;
   procedure LNGSCAPRD1(LA, SA, LB, SB, N, A, B, C, CC, D, DD);
   value LA, SA, LB, SB, N, C, CC; integer LA, SA, LB, SB,N;
   real C, CC, D, DD; array A, B;
   begin real E, EE; integer K;
      for K:= 1 step 1 until N do 
      begin DPMUL(A[LA], B[LB], E, EE); LA:= LA + SA; LB:= LB + SB;
         LNGADD(C, CC, E, EE, C, CC)
      end;
      D:= C; DD:= CC
   end;
        eop