diff options
Diffstat (limited to 'src/include/cctk.h')
-rw-r--r-- | src/include/cctk.h | 43 |
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*/ |