i_mod.c 211 B

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