Return to dot.f CVS log

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

Annotation of researchv10no/cmd/f2c/doc/dot.f, revision 1.1.1.1

1.1       root        1:       FUNCTION DOT(N,X,Y)
                      2:       INTEGER N
                      3:       REAL X(N),Y(N)
                      4:       DOT = 0
                      5:       DO 10 I = 1, N
                      6:   10    DOT = DOT + X(I)*Y(I)
                      7:       END

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