Produs scalar a doi vectori

Se consideră vectorii X și Y de N componente. A calcula produsul scalar al celor doi vectori înseamnă a calcula suma termenilor de forma X(I)*Y(I).
Subprogramul este:

         SUBROUTINE PROSCA(X,Y,N,PRO)

         PRO=0.

         DO   10  I=1,N

         PRO=PRO+X(I)*Y(I)

10     CONTINUE

         RETURN

         END

(29 decembrie 2017)