moved to ck
authorGengbin Zheng <gzheng@illinois.edu>
Thu, 16 Mar 2006 16:32:16 +0000 (16:32 +0000)
committerGengbin Zheng <gzheng@illinois.edu>
Thu, 16 Mar 2006 16:32:16 +0000 (16:32 +0000)
src/langs/f90charm/charmf.C [deleted file]
src/langs/f90charm/charmf.h [deleted file]

diff --git a/src/langs/f90charm/charmf.C b/src/langs/f90charm/charmf.C
deleted file mode 100644 (file)
index 4151386..0000000
+++ /dev/null
@@ -1,113 +0,0 @@
-/*   define some FORTRAN interface for charm++ kernel functions
-     Gengbin Zheng    12/15/2000
-
-TODO:
-   add other fortran name styles like all captial.
-*/
-#include "charm++.h"
-#include <stdarg.h>
-#include "charmf.h"
-
-extern "C" int typesize(int type, int count)
-{
-  switch(type) {
-    case CMPI_DOUBLE_PRECISION : return count*sizeof(double);
-    case CMPI_INTEGER : return count*sizeof(int);
-    case CMPI_REAL : return count*sizeof(float);
-    case CMPI_COMPLEX: return 2*count*sizeof(double);
-    case CMPI_LOGICAL: return 2*count*sizeof(int);
-    case CMPI_CHAR:
-    case CMPI_BYTE:
-    case CMPI_PACKED:
-    default:
-      return 2*count;
-  }
-}         
-
-extern "C" void FTN_NAME(CKEXIT, ckexit)()
-{
-  CkExit();
-}
-
-extern "C" void FTN_NAME(CKMYPE, ckmype)(int *pe)
-{
-  *pe = CkMyPe();
-}
-
-extern "C" void FTN_NAME(CKNUMPES, cknumpes)(int *npe)
-{
-  *npe = CkNumPes();
-}
-
-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;
-  char str[100], temp_fmt[10];
-  int j;
-
-  va_list args;
-  va_start(args,format);
-  //format_len = strlen(format);
-  //for (ifmt=0; ifmt<format_len;) {
-  for (ifmt=0;;) {
-    if (format[ifmt]=='$') break; // $ is end of input
-    if (format[ifmt]=='%') {
-      temp_fmt[0]='%'; temp_len=1;
-      ifmt++;
-      for (j=0; ; j++) {
-       flag=0;
-       switch (format[ifmt]) {
-       case 'i': 
-       case 'd':
-         i = va_arg(args, int *);
-         temp_fmt[temp_len] = 'i'; temp_fmt[++temp_len]='\0';
-         str_len += sprintf(str+str_len,temp_fmt,*i); 
-         ifmt++;
-         flag=1; break; 
-       case 'e':
-       case 'f':
-         f = va_arg(args, float *);
-         temp_fmt[temp_len] = format[ifmt]; temp_fmt[++temp_len]='\0';
-         str_len += sprintf(str+str_len,temp_fmt,*f); 
-         ifmt++;
-         flag=1; break;
-       case 'E':
-       case 'F':
-         d = va_arg(args, double *);
-         temp_fmt[temp_len] = format[ifmt]+32; temp_fmt[++temp_len]='\0';
-         str_len += sprintf(str+str_len,temp_fmt,*d); 
-         ifmt++;
-         flag=1; break;
-       default:
-         if ((format[ifmt]=='.')&&(format[ifmt]<='9')||(format[ifmt]>='0')) {
-           temp_fmt[temp_len] = format[ifmt];
-           temp_len++; ifmt++;
-         }
-         else {
-           printf("Print format error!\n"); return;
-         }
-       } // end of switch
-       if (flag) break; // break for(j=0;;j++)
-      }
-    }
-    else if (format[ifmt]=='\\') {
-      ifmt++;
-      if (format[ifmt]=='n') { 
-       str[str_len] = '\n'; 
-       str_len++;
-       ifmt++;
-      }
-    }
-    else {
-      str[str_len] = format[ifmt]; 
-      str_len++;
-      ifmt++;
-    }
-  } // for (ifmt=0;;)
-  str[str_len]='\0';
-  CkPrintf("%s",str);
-  //vprintf(format, args);
-  //fflush(stdout);
-  va_end(args);
-}
diff --git a/src/langs/f90charm/charmf.h b/src/langs/f90charm/charmf.h
deleted file mode 100644 (file)
index cd0e277..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-#include "charm-api.h"
-
-#define CMPI_DOUBLE_PRECISION 0
-#define CMPI_INTEGER 1
-#define CMPI_REAL 2
-#define CMPI_COMPLEX 3
-#define CMPI_LOGICAL 4
-#define CMPI_CHAR 5
-#define CMPI_BYTE 6
-#define CMPI_PACKED 7 
-
-extern "C" int typesize(int type, int count);
-