C++ (Cpp) __f90_set_argsの例

コード例 #1

/*
 * Initialize Fortran runtimes. This is for use when the main program is coded
 * in C, but the C code will also call Fortran-generated procedures.
 */
void
_PSC_ftn_init(int argc, char **argv)
{
  extern void __f90_set_args(int, char **);
  common_init();
  __f90_set_args(argc, argv); /* arge not used */
}

コード例 #2

ファイル: main.c プロジェクト: xyuan/Path64

int __f90_main(int argc, char **argv, char **arge)
{
	__f90_set_args(argc, argv);

        MAIN__();
        exit(0);
        return (0);
}