V7M/src/libF77/r_mod.c
Compare this file to the similar file:
41: 32V/usr/src/libF77/r_mod.c
41: V7/usr/src/libF77/r_mod.c
33: V7/usr/src/libF77/d_mod.c
33: 32V/usr/src/libF77/d_mod.c
27: NetBSD-5.0.2/external/bsd/pcc/dist/pcc-libs/libF77/r_mod.c
27: NetBSD-5.0.2/external/bsd/pcc/dist/pcc-libs/libF77/d_mod.c
Show the results in this format:
double r_mod(x,y) float *x, *y; { return(*x - (*y) * ( (long int) (*x / *y)) ); }