Listing 7: Computes dot product of arrays x and y of n elements.

C     ex3.for  —  —  computes the dot proceduct of 
C     ARRAYS X AND Y OF N ELEMENTS
      SUBROUTINE DOT(X, Y, Z, N)
      REAL X(*), Y(*), Z(*)
      DO 15, I=1,N
      Z(I) = X(I) * Y(I)
 15   CONTINUE
      END