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