Rename a module to prevent a name clash.

Add more prototypes.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@3 51d2df92-0e4f-0410-a727-bd43d766d6b6

1 files changed, 67 insertions, 0 deletions

diff --git a/src/cctk_GHExtensions.F90 b/src/cctk_GHExtensions.F90
new file mode 100644
index 0000000..d038413
--- /dev/null
+++ b/src/cctk_GHExtensions.F90
@@ -0,0 +1,67 @@
+/*@@
+  @file    $RCSfile$
+  @author  $Author$
+  @date    $Date$
+  @desc
+           Fortran 90 interface declarations for the routines
+           which have their C declarations in cctk_GHExtensions.h
+  @enddesc
+  @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_GHExtensions
+  implicit none
+
+  interface
+
+     subroutine CCTK_RegisterGHExtension (ierr, name)
+       implicit none
+       integer      ierr
+       character(*) name
+     end subroutine CCTK_RegisterGHExtension
+
+     subroutine CCTK_UnregisterGHExtension (ierr, name)
+       implicit none
+       integer      ierr
+       character(*) name
+     end subroutine CCTK_UnregisterGHExtension
+
+     subroutine CCTK_RegisterGHExtensionSetupGH (ierr, handle, func)
+       implicit none
+       integer       ierr
+       integer       handle
+       CCTK_FPOINTER func
+     end subroutine CCTK_RegisterGHExtensionSetupGH
+
+     subroutine CCTK_RegisterGHExtensionInitGH (ierr, handle, func)
+       implicit none
+       integer       ierr
+       integer       handle
+       CCTK_FPOINTER func
+     end subroutine CCTK_RegisterGHExtensionInitGH
+
+     subroutine CCTK_RegisterGHExtensionScheduleTraverseGH (ierr, handle, func)
+       implicit none
+       integer       ierr
+       integer       handle
+       CCTK_FPOINTER func
+     end subroutine CCTK_RegisterGHExtensionScheduleTraverseGH
+
+     subroutine CCTK_GHExtensionHandle (ierr, name)
+       implicit none
+       integer      ierr
+       character(*) name
+     end subroutine CCTK_GHExtensionHandle
+
+     subroutine CCTK_GHExtension (extension, GH, name)
+       implicit none
+       CCTK_POINTER          extension
+       CCTK_POINTER_TO_CONST GH
+       character(*)          name
+     end subroutine CCTK_GHExtension
+
+  end interface
+
+end module cctk_GHExtensions