h_mod.c 207 B

12345678910111213141516
  1. #include "f2c.h"
  2. #ifdef __cplusplus
  3. extern "C" {
  4. #endif
  5. #ifdef KR_headers
  6. shortint h_mod(a,b) short *a, *b;
  7. #else
  8. shortint h_mod(short *a, short *b)
  9. #endif
  10. {
  11. return( *a % *b);
  12. }
  13. #ifdef __cplusplus
  14. }
  15. #endif