00001 #include "ck.h" 00002 00003 #undef CMK_G95 00004 00005 #ifdef CMK_G95 00006 extern "C" void g95_runtime_start(int argc, char *argv[]); 00007 extern "C" void g95_runtime_stop(); 00008 #endif 00009 00010 #ifndef __BIGSIM__ 00011 int main(int argc, char **argv) 00012 { 00013 int stack_top=0; 00014 memory_stack_top = &stack_top; 00015 #ifdef CMK_G95 00016 g95_runtime_start(argc, argv); 00017 #endif 00018 ConverseInit(argc, argv, (CmiStartFn) _initCharm, 0, 0); 00019 #ifdef CMK_G95 00020 // FIXME: not right place to call, but not calling it does not quite hurt 00021 g95_runtime_stop(); 00022 #endif 00023 return 0; 00024 } 00025 #endif
1.5.5