Return to dot.f CVS log

Up to [Research Unix] / researchv10no / cmd / f2c / doc

researchv10 Norman

      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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.