|
|
1.1 root 1: double d_prod(x,y)
2: float *x, *y;
3: {
4: return( (*x) * (*y) );
5: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.