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; }