Power 6/32 Unix version 1.2b
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.