/* * "@(#)h_mod.c 1.1" */ short h_mod(a,b) short *a, *b; { return( *a % *b); }