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