diff options
Diffstat (limited to 'src/IO/FortranBindingsIO.c')
-rw-r--r-- | src/IO/FortranBindingsIO.c | 38 |
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 |