V10/cmd/f2c/doc/dot.f

      FUNCTION DOT(N,X,Y)
      INTEGER N
      REAL X(N),Y(N)
      DOT = 0
      DO 10 I = 1, N
  10    DOT = DOT + X(I)*Y(I)
      END