take care of fortran names.
authorGengbin Zheng <gzheng@illinois.edu>
Tue, 3 Dec 2002 18:52:13 +0000 (18:52 +0000)
committerGengbin Zheng <gzheng@illinois.edu>
Tue, 3 Dec 2002 18:52:13 +0000 (18:52 +0000)
src/langs/f90charm/charmf.C
src/langs/f90charm/charmf.h
src/langs/f90charm/f90main.C

index a60a77c7131dd20bc443f73f64630cb1700e2243..4151386340df16966a3e8cd36a81d8b9d543ad8a 100644 (file)
@@ -24,22 +24,22 @@ extern "C" int typesize(int type, int count)
   }
 }         
 
-extern "C" void ckexit_()
+extern "C" void FTN_NAME(CKEXIT, ckexit)()
 {
   CkExit();
 }
 
-extern "C" void ckmype_(int *pe)
+extern "C" void FTN_NAME(CKMYPE, ckmype)(int *pe)
 {
   *pe = CkMyPe();
 }
 
-extern "C" void cknumpes_(int *npe)
+extern "C" void FTN_NAME(CKNUMPES, cknumpes)(int *npe)
 {
   *npe = CkNumPes();
 }
 
-extern "C" void ckprintf_(const char *format, ...)
+extern "C" void FTN_NAME(CKPRINTF, ckprintf)(const char *format, ...)
 {
   int ifmt, format_len, str_len=0, temp_len, flag;
   int *i; float *f; double *d;
index 65202c820913e77c96515ae2e6d08cf36d8fcd39..cd0e27740162ae0109bcfab2a47cac36aea3f8e2 100644 (file)
@@ -1,3 +1,4 @@
+#include "charm-api.h"
 
 #define CMPI_DOUBLE_PRECISION 0
 #define CMPI_INTEGER 1
@@ -9,3 +10,4 @@
 #define CMPI_PACKED 7 
 
 extern "C" int typesize(int type, int count);
+
index 816a60c93c6cbc639f93fb5bf8fa74dd614ae35c..43e7a1f383a8a01167f3ba8f927082aa7c52f857 100644 (file)
@@ -7,7 +7,7 @@ extern void _initCharm(int argc, char **argv);
 
 CkChareID mainhandle;
 
-extern "C" void conversemain_(int *argc,char _argv[][80],int length[])
+extern "C" void FTN_NAME(CONVERSEMAIN, conversemain)(int *argc,char _argv[][80],int length[])
 {
   int i;
   char **argv = new char*[*argc+2];