BSD 4.0
double d_prod(x,y) float *x, *y; { return( (*x) * (*y) ); }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.