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

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.