Set the preprocessor flag F90CODE for Fortran 90 source files.

git-svn-id: http://svn.cactuscode.org/flesh/trunk@3521 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 37 insertions, 6 deletions

diff --git a/src/include/cctk.h b/src/include/cctk.h
index 74924b47..59ceaabd 100644
--- a/src/include/cctk.h
+++ b/src/include/cctk.h
@@ -72,12 +72,43 @@
 #define CCTK_LSSH(stag,dim) cctk_lssh((stag)+CCTK_NSTAGGER+(dim))
 #define CCTK_LSSH_IDX(stag,dim) ((stag)+CCTK_NSTAGGER*(dim))
 
-#define _DECLARE_CCTK_FUNCTIONS &&\
-        integer  CCTK_Equals, CCTK_MyProc, CCTK_nProcs, CCTK_IsThornActive&&\
-        external CCTK_Equals, CCTK_MyProc, CCTK_nProcs, CCTK_IsThornActive&&\
-        CCTK_POINTER CCTK_PointerTo, CCTK_NullPointer&&\
-        external     CCTK_PointerTo, CCTK_NullPointer
-
+#ifdef F90CODE
+
+#define _DECLARE_CCTK_FUNCTIONS                   \
+  external     CCTK_PointerTo                   &&\
+  CCTK_POINTER CCTK_PointerTo                   &&\
+  interface                                     &&\
+     integer function CCTK_Equals (arg1, arg2)  &&\
+       implicit none                            &&\
+       CCTK_POINTER_TO_CONST arg1               &&\
+       character(*) arg2                        &&\
+     end function CCTK_Equals                   &&\
+     integer function CCTK_MyProc (cctkGH)      &&\
+       implicit none                            &&\
+       CCTK_POINTER_TO_CONST cctkGH             &&\
+     end function CCTK_MyProc                   &&\
+     integer function CCTK_nProcs (cctkGH)      &&\
+       implicit none                            &&\
+       CCTK_POINTER_TO_CONST cctkGH             &&\
+     end function CCTK_nProcs                   &&\
+     integer function CCTK_IsThornActive (name) &&\
+       implicit none                            &&\
+       character(*) name                        &&\
+     end function CCTK_IsThornActive            &&\
+     CCTK_POINTER function CCTK_NullPointer ()  &&\
+       implicit none                            &&\
+     end function CCTK_NullPointer              &&\
+  end interface                                 &&
+
+#else /* ! F90CODE */
+
+#define _DECLARE_CCTK_FUNCTIONS \
+  integer      CCTK_Equals, CCTK_MyProc, CCTK_nProcs, CCTK_IsThornActive &&\
+  external     CCTK_Equals, CCTK_MyProc, CCTK_nProcs, CCTK_IsThornActive &&\
+  CCTK_POINTER CCTK_PointerTo, CCTK_NullPointer &&\
+  external     CCTK_PointerTo, CCTK_NullPointer &&
+
+#endif /* ! F90CODE */
 
 #endif /*FCODE*/