int __f90_main(int argc, char **argv, char **arge)
{
__f90_set_args(argc, argv);
MAIN__();
exit(0);
return (0);
}
// address: 8048824
int main(int argc, char *argv[], char *envp[]) {
__size32 local0; // m[esp - 40]
f_setarg();
f_setsig();
f_init();
atexit();
MAIN__(local0);
exit(0);
return;
}
int
main(int argc, char **argv, char **arge)
{
xargc = argc;
xargv = argv;
signal(SIGFPE, sigfdie); /* ignore underflow, enable overflow */
signal(SIGIOT, sigidie);
MAIN__();
f_exit();
return 0;
}
/* Main procedure for fortran programs. All we do is set up the environment
for the Fortran program. */
int
main (int argc, char *argv[])
{
/* Set up the runtime environment. */
set_args (argc, argv);
/* Call the Fortran main program. Internally this is a function
called MAIN__ */
MAIN__ ();
/* Bye-bye! */
return 0;
}
int main(int argc, char ** argv)
{
#if G77
#pragma message "We assume that the default fortran compiler is g77"
f_setarg(argc, argv);
f_setsig();
f_init();
#endif
#if GFORT
#pragma message "We assume that the default fortran compiler is gfortran"
_gfortran_set_args (argc, argv);
#endif
MAIN__();
return 0; /* For compilers that complain of missing return values; */
}
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. */
}
main(int argc, char **argv)
#endif
{
xargc = argc;
xargv = argv;
signal1(SIGFPE, sigfdie); /* ignore underflow, enable overflow */
#ifdef SIGIOT
signal1(SIGIOT, sigidie);
#endif
#ifdef SIGTRAP
signal1(SIGTRAP, sigtrdie);
#endif
#ifdef SIGQUIT
if(signal1(SIGQUIT,sigqdie) == SIG_IGN)
signal1(SIGQUIT, SIG_IGN);
#endif
if(signal1(SIGINT, sigindie) == SIG_IGN)
signal1(SIGINT, SIG_IGN);
signal1(SIGTERM,sigtdie);
#ifdef pdp11
ldfps(01200); /* detect overflow as an exception */
#endif
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. */
}
/* Main program alias */ int dtimee_ () { MAIN__ (); return 0; }
/* Main program alias */ int test5_ () {
MAIN__ ();
return 0;
}
/* Main program alias */ int version_ () { MAIN__ (); return 0; }
/* Main program alias */ int stimaa_ () { MAIN__ (); return 0; }
/* Main program alias */ int tstfft_ () { MAIN__ (); return 0; }
Main program alias */ int zblat1_ () {
MAIN__ ();
return 0;
}
/* Main program alias */ int oscillator_ () { MAIN__ (); return 0; }
/* Main program alias */ int lapack_version__ () { MAIN__ (); return 0; }
int MAIN_()
{
return MAIN__();
}
/* Main program alias */ int zchkaa_ () { MAIN__ (); return 0; }
/* Main program alias */ int dchkrfp_ () {
MAIN__ ();
return 0;
}
/* Main program alias */ int main () { MAIN__ (); return 0; }
/* Main program alias */ int commnt_ () { MAIN__ (); return 0; }
