|
|
1.1 root 1: /*
2: * "@(#)d_atn2.c 1.1"
3: */
4:
5: double d_atn2(x,y)
6: double *x, *y;
7: {
8: double atan2();
9: return( atan2(*x,*y) );
10: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.