1 #include "stdio.h" 2 #include "f2c.h" 3 4 #ifdef KR_headers 5 extern VOID sig_die(); 6 abort_()7 int abort_() 8 #else 9 extern void sig_die(char*,int); 10 11 int abort_(void) 12 #endif 13 { 14 sig_die("Fortran abort routine called", 1); 15 return 0; 16 } 17