summaryrefslogtreecommitdiff
path: root/src/IO/FortranBindingsIO.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/IO/FortranBindingsIO.c')
-rw-r--r--src/IO/FortranBindingsIO.c38
1 files changed, 0 insertions, 38 deletions
diff --git a/src/IO/FortranBindingsIO.c b/src/IO/FortranBindingsIO.c
index a70fa229..32790df6 100644
--- a/src/IO/FortranBindingsIO.c
+++ b/src/IO/FortranBindingsIO.c
@@ -28,8 +28,6 @@ CCTK_FILEVERSION(IO_FortranBindingsIO_c)
void CCTK_FCALL CCTK_FNAME (CCTK_OutputGH)
(int *istat, const cGH *GH);
-void CCTK_FCALL CCTK_FNAME (CCTK_OutputVar)
- (int *istat, const cGH *GH, ONE_FORTSTRING_ARG);
void CCTK_FCALL CCTK_FNAME (CCTKi_RegisterIOMethod)
(int *handle, TWO_FORTSTRING_ARG);
@@ -71,42 +69,6 @@ void CCTK_FCALL CCTK_FNAME (CCTK_OutputGH)
}
/*@@
- @routine CCTK_OutputVar
- @date
- @author
- @desc
- Fortran binding for CCTK_OutputVar
- @enddesc
- @var istat
- @vdesc error code
- @vtype int
- @vio out
- @endva
- @var GH
- @vdesc grid hierachy
- @vtype const GH *
- @vio in
- @endvar
- @var name
- @vdesc Name of variable to outut
- @vtype const char *
- @vio in
- @endvar
- @returntype int
- @returndesc
-
- @endreturndesc
-@@*/
-void CCTK_FCALL CCTK_FNAME (CCTK_OutputVar)
- (int *istat, const cGH *GH, ONE_FORTSTRING_ARG)
-{
- ONE_FORTSTRING_CREATE (var);
- *istat = CCTK_OutputVar (GH, var);
- free (var);
-}
-
-
- /*@@
@routine CCTKi_RegisterIOMethod
@date
@author