00001 #include "f2c.h" 00002 #ifdef __cplusplus 00003 extern "C" { 00004 #endif 00005 00006 #ifdef KR_headers 00007 shortint h_mod(a,b) short *a, *b; 00008 #else 00009 shortint h_mod(short *a, short *b) 00010 #endif 00011 { 00012 return( *a % *b); 00013 } 00014 #ifdef __cplusplus 00015 } 00016 #endif