Return to dot.c CVS log

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

Annotation of researchv10no/cmd/f2c/doc/dot.c, revision 1.1

1.1     ! root        1: /* dot.f -- translated by f2c (version of 17 January 1992  0:17:58).
        !             2:    You must link the resulting object file with the libraries:
        !             3:        -lF77 -lI77 -lm -lc   (in that order)
        !             4: */
        !             5: 
        !             6: #include "f2c.h"
        !             7: 
        !             8: doublereal dot_(n, x, y)
        !             9: integer *n;
        !            10: real *x, *y;
        !            11: {
        !            12:     /* System generated locals */
        !            13:     integer i__1;
        !            14:     real ret_val;
        !            15: 
        !            16:     /* Local variables */
        !            17:     static integer i;
        !            18: 
        !            19:     /* Parameter adjustments */
        !            20:     --y;
        !            21:     --x;
        !            22: 
        !            23:     /* Function Body */
        !            24:     ret_val = (float)0.;
        !            25:     i__1 = *n;
        !            26:     for (i = 1; i <= i__1; ++i) {
        !            27: /* L10: */
        !            28:        ret_val += x[i] * y[i];
        !            29:     }
        !            30:     return ret_val;
        !            31: } /* dot_ */
        !            32: 

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