00001 #include "stdio.h" 00002 #include "f2c.h" 00003 #ifdef __cplusplus 00004 extern "C" { 00005 #endif 00006 00007 #ifdef KR_headers 00008 extern VOID sig_die(); 00009 00010 int abort_() 00011 #else 00012 extern void sig_die(const char*,int); 00013 00014 int abort_(void) 00015 #endif 00016 { 00017 sig_die("Fortran abort routine called", 1); 00018 return 0; /* not reached */ 00019 } 00020 #ifdef __cplusplus 00021 } 00022 #endif