V7/usr/src/libF77/h_dnnt.c
Find at most
5
10
20
50
100
500
related files.
including files from this version of Unix.
short h_dnnt(x) double *x; { return( (*x)>=0 ? (short) (*x + .5) : (short) (*x - .5) ); }