diff options
Diffstat (limited to 'libf2c/libF77/main.c')
-rw-r--r-- | libf2c/libF77/main.c | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/libf2c/libF77/main.c b/libf2c/libF77/main.c deleted file mode 100644 index a3955cb..0000000 --- a/libf2c/libF77/main.c +++ /dev/null @@ -1,35 +0,0 @@ -/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */ - -#include <stdio.h> -#include "signal1.h" - -#include <stdlib.h> - -extern void f_exit (void); -#ifndef NO_ONEXIT -#define ONEXIT atexit -extern int atexit (void (*)(void)); -#endif - -extern void f_init (void); -extern int MAIN__ (void); -extern void f_setarg (int, char **); -extern void f_setsig (void); - -int -main (int argc, char **argv) -{ - f_setarg (argc, argv); - f_setsig (); - f_init (); -#ifndef NO_ONEXIT - ONEXIT (f_exit); -#endif - MAIN__ (); -#ifdef NO_ONEXIT - f_exit (); -#endif - exit (0); /* exit(0) rather than return(0) to bypass Cray bug */ - return 0; /* For compilers that complain of missing return values; */ - /* others will complain that this is unreachable code. */ -} |