V7/usr/src/libF77/r_sqrt.c
Find at most
5
10
20
50
100
500
related files.
including files from this version of Unix.
double r_sqrt(x) float *x; { double sqrt(); return( sqrt(*x) ); }