Changed "iargc/getarg" to "tcharm_iargc/tcharm_getarg".
authorOrion Lawlor <olawlor@acm.org>
Fri, 19 Jul 2002 23:41:44 +0000 (23:41 +0000)
committerOrion Lawlor <olawlor@acm.org>
Fri, 19 Jul 2002 23:41:44 +0000 (23:41 +0000)
This avoids a name conflict with the serial versions.

src/libs/ck-libs/tcharm/tcharm.C
src/libs/ck-libs/tcharm/tcharmf.h

index 8c138cc1c38984d80065cc5833bf9719c341fd19..1cb87d52aef78424a5f5e214aca5cc58430be7a7 100644 (file)
@@ -720,16 +720,18 @@ CDECL double TCharmWallTimer(void)
 /*Include Fortran-style "iargc" and "getarg" routines.
 These are needed to get access to the command-line arguments from Fortran.
 */
-FDECL int FTN_NAME(IARGC,iargc)(void) {
-  TCHARMAPI("iargc");
+FDECL int FTN_NAME(TCHARM_IARGC,tcharm_iargc)(void) {
+  TCHARMAPI("tcharm_iargc");
   return CkGetArgc()-1;
 }
 
-FDECL void FTN_NAME(GETARG,getarg)(int *i_p,char *dest,int destLen) {
-  TCHARMAPI("getarg");
+FDECL void FTN_NAME(TCHARM_GETARG,tcharm_getarg)
+       (int *i_p,char *dest,int destLen) 
+{
+  TCHARMAPI("tcharm_getarg");
   int i=*i_p;
-  if (i<0) CkAbort("getarg called with negative argument!");
-  if (i>=CkGetArgc()) CkAbort("getarg called with argument > iargc!");
+  if (i<0) CkAbort("tcharm_getarg called with negative argument!");
+  if (i>=CkGetArgc()) CkAbort("tcharm_getarg called with argument > iargc!");
   const char *src=CkGetArgv()[i];
   strcpy(dest,src);
   for (i=strlen(dest);i<destLen;i++) dest[i]=' ';
index 331bb92318eae50b5a12d8a6e3fc6fb88416976e..f319658d33803f6708755bef7d1d7608c3920b97 100644 (file)
@@ -15,5 +15,5 @@
        external tcharm_readonly_globals
        external tcharm_init
 
-       integer, external :: iargc
-       external getarg
+       integer, external :: tcharm_iargc
+       external tcharm_getarg