00001 #ifndef FLIB 00002 #ifndef IDLLIB 00003 #ifdef DEBUG_MEM 00004 #include "xmem.h" 00005 #endif 00006 #include "cfortran.h" 00007 #include "jsoc_main.h" 00008 00009 int CallDoIt() 00010 { 00011 return DoIt(); 00012 } 00013 00014 int main(int argc, char **argv) 00015 { 00016 int status = JSOCMAIN_Main(argc, argv, module_name, CallDoIt); 00017 _exit(status); 00018 } 00019 #endif /* !IDLLIB */ 00020 #endif /* !FLIB */
1.5.7.1