Added TCharmInit routines, which are used by silly serial clients.
authorOrion Lawlor <olawlor@acm.org>
Tue, 28 May 2002 22:05:59 +0000 (22:05 +0000)
committerOrion Lawlor <olawlor@acm.org>
Tue, 28 May 2002 22:05:59 +0000 (22:05 +0000)
src/libs/ck-libs/tcharm/tcharm.C
src/libs/ck-libs/tcharm/tcharmc.h
src/libs/ck-libs/tcharm/tcharmf.h

index 8d570b96365f2b95a55077b27b823bcde877dee7..0b1e03e7469028ace87de44d5e64388ab1c44da7 100644 (file)
@@ -708,5 +708,19 @@ CDECL double TCharmWallTimer(void)
   }
 }
 
+//These silly routines are used for serial startup:
+extern void _initCharm(int argc, char **argv);
+CDECL void TCharmInit(int *argc,char ***argv) {
+       ConverseInit(*argc, *argv, (CmiStartFn) _initCharm,1,1);
+       _initCharm(*argc,*argv);
+}
+
+FDECL void FTN_NAME(TCHARM_INIT,tcharm_init)(void) 
+{
+       int argc=1;
+       char *argv[2]={"foo",NULL};
+       ConverseInit(argc,argv, (CmiStartFn) _initCharm,1,1);
+       _initCharm(argc,argv);
+}
 
 #include "tcharm.def.h"
index 65367b6f38d2a6e1a47b704420f6c3e05532df87..f3a3cf29b4c36ff2040bb3c133934c6995f8b72b 100644 (file)
@@ -60,6 +60,9 @@ void TCharmDone(void);
 /*Get the local wall clock*/
 double TCharmWallTimer(void);
 
+/*Standalone startup routine*/
+void TCharmInit(int *argc,char ***argv);
+
 #ifdef __cplusplus
 };
 #endif
index 79dae79080ace8a75116b29c99f8d33140d77778..f029eddcd2ffb7bb628ddedf46c3a752ad543be5 100644 (file)
@@ -13,4 +13,5 @@
        external tcharm_done
 
        external tcharm_readonly_globals
+       external tcharm_init