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     ! 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.