1 files changed, 8 insertions, 8 deletions

diff --git a/src/Ell_DBstructure.c b/src/Ell_DBstructure.c
index 2e812d3..ff0bf2b 100644
--- a/src/Ell_DBstructure.c
+++ b/src/Ell_DBstructure.c
@@ -91,7 +91,7 @@ int Ell_IsKey(const char *keychain) {
   return(retval);
 }
 
-void FMODIFIER FORTRAN_NAME(Ell_IsKey)(int *ierr, ONE_FORTSTRING_ARG) {
+void CCTK_FCALL CCTK_FNAME(Ell_IsKey)(int *ierr, ONE_FORTSTRING_ARG) {
   ONE_FORTSTRING_CREATE(key)
   *ierr = Ell_IsKey(key);
   free(key);
@@ -122,7 +122,7 @@ int Ell_DeleteKey(const char *keychain) {
   return(retval);
 }
 
-void FMODIFIER FORTRAN_NAME(Ell_DeleteKey)(int *ierr, ONE_FORTSTRING_ARG){
+void CCTK_FCALL CCTK_FNAME(Ell_DeleteKey)(int *ierr, ONE_FORTSTRING_ARG){
   ONE_FORTSTRING_CREATE(key);
   *ierr = Ell_DeleteKey(key);
   free(key);
@@ -153,7 +153,7 @@ int Ell_SetRealKey(CCTK_REAL value, const char *keychain) {
   return(retval);
 }
 
-void FMODIFIER FORTRAN_NAME(Ell_SetRealKey)
+void CCTK_FCALL CCTK_FNAME(Ell_SetRealKey)
      (int *ierr, CCTK_REAL *value, ONE_FORTSTRING_ARG) {
   ONE_FORTSTRING_CREATE(key)
   *ierr = Ell_SetRealKey(*value, key);
@@ -182,7 +182,7 @@ int Ell_SetIntKey(CCTK_INT value, const char *keychain) {
   return(retval);
 }
 
-void FMODIFIER FORTRAN_NAME(Ell_SetIntKey)
+void CCTK_FCALL CCTK_FNAME(Ell_SetIntKey)
      (int *ierr, CCTK_INT *value, ONE_FORTSTRING_ARG) {
   ONE_FORTSTRING_CREATE(key)
   *ierr = Ell_SetIntKey(*value, key);
@@ -210,7 +210,7 @@ int Ell_SetStrKey(char *value, const char *keychain) {
   return(retval);
 }
 
-void FMODIFIER FORTRAN_NAME(Ell_SetStringKey)
+void CCTK_FCALL CCTK_FNAME(Ell_SetStringKey)
      (int *ierr, TWO_FORTSTRINGS_ARGS) {
   TWO_FORTSTRINGS_CREATE(value,key)
   *ierr = Ell_SetStrKey(value, key);
@@ -255,7 +255,7 @@ int Ell_GetRealKey(CCTK_REAL *value, const char *keychain) {
   return(retval);
 }
 
-void FMODIFIER FORTRAN_NAME(Ell_GetRealKey)
+void CCTK_FCALL CCTK_FNAME(Ell_GetRealKey)
      (int *ierr, CCTK_REAL *value, ONE_FORTSTRING_ARG) {
   ONE_FORTSTRING_CREATE(key)
   *ierr = Ell_GetRealKey(value, key); 
@@ -290,7 +290,7 @@ int Ell_GetIntKey(CCTK_INT *value,const char *keychain) {
   return(retval);
 }
 
-void FMODIFIER FORTRAN_NAME(Ell_GetIntKey)
+void CCTK_FCALL CCTK_FNAME(Ell_GetIntKey)
      (int *ierr, CCTK_INT *value, ONE_FORTSTRING_ARG) {
   ONE_FORTSTRING_CREATE(key)
   *ierr = Ell_GetIntKey(value, key);
@@ -324,7 +324,7 @@ int Ell_GetStrKey(char *value, const char *keychain) {
   return(retval);
 }
 
-void FMODIFIER FORTRAN_NAME(Ell_GetStrKey)
+void CCTK_FCALL CCTK_FNAME(Ell_GetStrKey)
      (int *nchar, char **cstring,ONE_FORTSTRING_ARG)
 {   
    int i;