示例#1
0
文件: main.c 项目: xyuan/Path64
int __f90_main(int argc, char **argv, char **arge)
{
	__f90_set_args(argc, argv);

        MAIN__();
        exit(0);
        return (0);
}
示例#2
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;
}
示例#3
0
文件: main.c 项目: luchik/pcc-libs
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;
}
示例#5
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; */
}
示例#6
0
文件: main.c 项目: VargMon/dd-wrt
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. */
}
示例#7
0
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. */
}
示例#8
0
文件: dtimee.c 项目: zangel/uquad
/* Main program alias */ int dtimee_ () { MAIN__ (); return 0; }
示例#9
0
/* Main program alias */ int test5_ () {
    MAIN__ ();
    return 0;
}
示例#10
0
/* Main program alias */ int version_ () { MAIN__ (); return 0; }
示例#11
0
文件: stimaa.c 项目: zangel/uquad
/* Main program alias */ int stimaa_ () { MAIN__ (); return 0; }
示例#12
0
/* Main program alias */ int tstfft_ () { MAIN__ (); return 0; }
示例#13
0
   Main program alias */ int zblat1_ () {
    MAIN__ ();
    return 0;
}
示例#14
0
/* Main program alias */ int oscillator_ () { MAIN__ (); return 0; }
示例#15
0
/* Main program alias */ int lapack_version__ () { MAIN__ (); return 0; }
示例#16
0
int MAIN_()
  {
    return MAIN__();
  }
示例#17
0
文件: zchkaa.c 项目: kstraube/hysim
/* Main program alias */ int zchkaa_ () { MAIN__ (); return 0; }
示例#18
0
/* Main program alias */ int dchkrfp_ () {
    MAIN__ ();
    return 0;
}
示例#19
0
/* Main program alias */ int main () { MAIN__ (); return 0; }
示例#20
0
/* Main program alias */ int commnt_ () { MAIN__ (); return 0; }