From 3fa1586a6386dbcb68bc4275069b3e35461a64b2 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6>
Date: Tue, 18 May 2004 21:56:39 +0000
Subject: Add two more header files worth of interfaces

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@8 51d2df92-0e4f-0410-a727-bd43d766d6b6
---
 src/cctk.F90           |  2 ++
 src/cctk_IO.F90        | 50 ++++++++++++++++++++++++++++++++++
 src/cctk_IOMethods.F90 | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++
 src/make.code.defn     |  2 ++
 4 files changed, 127 insertions(+)
 create mode 100644 src/cctk_IO.F90
 create mode 100644 src/cctk_IOMethods.F90

diff --git a/src/cctk.F90 b/src/cctk.F90
index 4197da3..f6564ec 100644
--- a/src/cctk.F90
+++ b/src/cctk.F90
@@ -29,5 +29,7 @@ module cctk
   use cctk_GNU
   use cctk_Groups
   use cctk_GroupsOnGH
+  use cctk_IO
+  use cctk_IOMethods
   implicit none
 end module cctk
diff --git a/src/cctk_IO.F90 b/src/cctk_IO.F90
new file mode 100644
index 0000000..c6a65a8
--- /dev/null
+++ b/src/cctk_IO.F90
@@ -0,0 +1,50 @@
+/*@@
+  @file    $RCSfile$
+  @author  $Author$
+  @date    $Date$
+  @desc
+           Fortran 90 interface declarations for the routines
+           which have their C declarations in cctk_IO.h
+  @enddesc
+  @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_IO
+  implicit none
+
+  interface
+
+     subroutine CCTK_OutputGH (ierr, GH)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+     end subroutine CCTK_OutputGH
+
+     subroutine CCTK_OutputVarAs (ierr, GH, var, alias)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       character(*)          var
+       character(*)          alias
+     end subroutine CCTK_OutputVarAs
+
+     subroutine CCTK_OutputVar (ierr, GH, var)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       character(*)          var
+     end subroutine CCTK_OutputVar
+
+     subroutine CCTK_OutputVarByMethod (ierr, GH, var, method)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST GH
+       character(*)          var
+       character(*)          method
+     end subroutine CCTK_OutputVarByMethod
+     
+  end interface
+  
+end module cctk_Groups
diff --git a/src/cctk_IOMethods.F90 b/src/cctk_IOMethods.F90
new file mode 100644
index 0000000..bbfbc57
--- /dev/null
+++ b/src/cctk_IOMethods.F90
@@ -0,0 +1,73 @@
+/*@@
+  @file    $RCSfile$
+  @author  $Author$
+  @date    $Date$
+  @desc
+           Fortran 90 interface declarations for the routines
+           which have their C declarations in cctk_IOMethods.h
+  @enddesc
+  @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_IOMethods
+  implicit none
+
+  interface
+
+     subroutine CCTKi_RegisterIOMethod (ierr, thorn, name)
+       implicit none
+       integer ierr
+       character(*) thorn
+       character(*) name
+     end subroutine CCTKi_RegisterIOMethod
+
+     subroutine CCTK_RegisterIOMethodOutputGH (ierr, handle, OutputGH)
+       implicit none
+       integer       ierr
+       integer       handle
+       CCTK_FPOINTER OutputGH
+     end subroutine CCTK_RegisterIOMethodOutputGH
+
+     subroutine CCTK_RegisterIOMethodTimeToOutput (ierr, handle, TimeToOutput)
+       implicit none
+       integer       ierr
+       integer       handle
+       CCTK_FPOINTER TimeToOutput
+     end subroutine CCTK_RegisterIOMethodTimeToOutput
+
+     subroutine CCTK_RegisterIOMethodTriggerOutput (ierr, handle, TriggerOutput)
+       implicit none
+       integer       ierr
+       integer       handle
+       CCTK_FPOINTER TriggerOutput
+     end subroutine CCTK_RegisterIOMethodTriggerOutput
+
+     subroutine CCTK_RegisterIOMethodOutputVarAs (ierr, handle, OutputVarAs)
+       implicit none
+       integer       ierr
+       integer       handle
+       CCTK_FPOINTER OutputVarAs
+     end subroutine CCTK_RegisterIOMethodOutputVarAs
+
+     subroutine CCTK_IOMethodImplementation (imp, handle)
+       implicit none
+       character(*) imp
+       integer      handle
+     end subroutine CCTK_IOMethodImplementation
+
+     subroutine CCTK_IOMethod (method, handle)
+       implicit none
+       character(*) method
+       integer      handle
+     end subroutine CCTK_IOMethod
+
+     subroutine CCTK_NumIOMethods (num)
+       implicit none
+       integer num
+     end subroutine CCTK_NumIOMethods
+
+  end interface
+  
+end module cctk_IOMethods
diff --git a/src/make.code.defn b/src/make.code.defn
index 31bab3c..34ae018 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -22,6 +22,8 @@ SRCS =	cctk.F90                        \
         cctk_GNU.F90                    \
         cctk_Groups.F90                 \
         cctk_GroupsOnGH.F90             \
+        cctk_IO.F90                     \
+        cctk_IOMethods.F90              \
         util_Table.F90
 
 else
-- 
cgit v1.2.3