libf2c/libF77/main.c

   1 /* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
   2
   3 #include <stdio.h>
   4 #include "signal1.h"
   5
   6 #include <stdlib.h>
   7
   8 extern void f_exit (void);
   9 #ifndef NO_ONEXIT
  10 #define ONEXIT atexit
  11 extern int atexit (void (*)(void));
  12 #endif
  13
  14 extern void f_init (void);
  15 extern int MAIN__ (void);
  16 extern void f_setarg (int, char **);
  17 extern void f_setsig (void);
  18
  19 int
  20 main (int argc, char **argv)
  21 {
  22   f_setarg (argc, argv);
  23   f_setsig ();
  24   f_init ();
  25 #ifndef NO_ONEXIT
  26   ONEXIT (f_exit);
  27 #endif
  28   MAIN__ ();
  29 #ifdef NO_ONEXIT
  30   f_exit ();
  31 #endif
  32   exit (0);                     /* exit(0) rather than return(0) to bypass Cray bug */
  33   return 0;                     /* For compilers that complain of missing return values; */
  34   /* others will complain that this is unreachable code. */
  35 }