diff options
-rw-r--r-- | src/cactus.F90 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/cactus.F90 b/src/cactus.F90 index 5d0c278..1255a99 100644 --- a/src/cactus.F90 +++ b/src/cactus.F90 @@ -6,6 +6,9 @@ module cactus implicit none public + external cctk_pointerto + CCTK_POINTER cctk_pointerto + interface ! from Cactus: @@ -133,12 +136,23 @@ module cactus CCTK_POINTER cctkgh end function cctk_nprocs + function cctk_nullpointer () + implicit none + CCTK_POINTER cctk_nullpointer + end function cctk_nullpointer + subroutine cctk_paramwarn (thorn, message) implicit none character*(*) thorn character*(*) message end subroutine cctk_paramwarn +!!$ function cctk_pointerto (var) +!!$ implicit none +!!$ CCTK_POINTER cctk_pointerto +!!$ ??? var +!!$ end function cctk_pointerto + subroutine cctk_reductionarrayhandle (handle, reduction) implicit none integer handle |