BSD 3.0
double r_dim(a,b) float *a, *b; { return( *a > *b ? *a - *b : 0); }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.