scilab_doc/intersci/csom.c

   1 int csom_(n, a, b, c)
   2      int *n;
   3      float *a, *b, *c;
   4 {
   5   int k;
   6   for (k = 0; k < *n; ++k)
   7       c[k] = a[k] + b[k];
   8   return(0);
   9 }