aboutsummaryrefslogtreecommitdiff
path: root/src/cctk_IO.F90
diff options
context:
space:
mode:
Diffstat (limited to 'src/cctk_IO.F90')
-rw-r--r--src/cctk_IO.F9050
1 files changed, 50 insertions, 0 deletions
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