-/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
-char id_libF77[] = "@(#)main.c 2.15 8/25/83";
-
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved. The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ *
+ * @(#)main.c 5.2 6/26/85
+ */
#include <stdio.h>
#include <signal.h>
#include "../libI77/fiodefs.h"
f_init();
MAIN_();
f_exit();
+return 0;
}
struct action {
else
signal(s, SIG_DFL); /* shouldn't happen again, but ... */
-#if vax
-sigsetmask(0); /* don't block */
-#endif
-
if (act->mesg)
{
fprintf(units[STDERR].ufd, "*** %s", act->mesg);
}
putc('\n', units[STDERR].ufd);
}
-f_exit();
-_cleanup();
-
-if(act->core)
- {
- /* now get a core */
-#if vax
- signal(SIGILL, SIG_DFL);
-#else pdp11
- signal(SIGIOT, SIG_DFL);
-#endif
- abort();
- }
-exit(s);
+f77_abort( s, act->core );
}